AULOCATE.m

AULOCATE ;CURSOR PLACEMENT UTILITY [ 04/26/85  9:39 AM ]

 ;IHS-OKLA CITY AREA OFFICE-LMD

 ; "DY" is the vertical parameter, "DX" is the horizontal

 X $P(^%ZIS(2,^%ZIS(1,+$I,"SUBTYPE"),1),"^",5)

END Q

AULOCATE  ;CURSOR PLACEMENT UTILITY [ 04/26/85  9:39 AM ]

 +1       ;IHS-OKLA CITY AREA OFFICE-LMD

 +2       ; "DY" is the vertical parameter, "DX" is the horizontal

 +3        XECUTE $PIECE(^%ZIS(2,^%ZIS(1,+$IO,"SUBTYPE"),1),"^",5)

END        QUIT