Code review comment for lp:~jontai/openvista-gtm-integration/bug381117

Revision history for this message
JSHER (joel-sher) wrote :

Yes,add the line as you describe.

> So just to be perfectly clear.. you're suggesting adding the line:
>
> I Y="*" D DOLRO Q
>
> as the first line of ORDER^ZOSVGUX and ORDER^ZOSVONT?
>
> So the ORDER subroutine in both would read:
>
> ORDER ;SAVE PART OF SYMBOL TABLE IN LOCATION SPECIFIED BY X
> I Y="*" D DOLRO Q
> S (Y,Y1)=$P(Y,"*",1) I $D(@Y)=0 F %=0:0 S Y=$O(@Y) Q:Y=""!(Y[Y1)
> Q:Y="" S %=$D(@Y) S:%#2 @(X_"Y)="_Y) I %>9 S %X=Y_"(",%Y=X_"Y," D %XY^%RCR
> F %=0:0 S Y=$O(@Y) Q:Y=""!(Y'[Y1) S %=$D(@Y) S:%#2 @(X_"Y)="_Y) I %>9 S
> %X=Y_"(",%Y=X_"Y," D %XY^%RCR
> K %,X,Y,Y1

« Back to merge proposal