APSPLBLT.m

APSPLBLT ; IHS/DSD/ENM/CIA/PLS - TEST LABEL ALIGNMENT ;11-Jan-2004 19:21;PLS

 ;;7.0;IHS PHARMACY MODIFICATIONS;;01/15/04

 ;

 U IO

 ;THE FOLLOWING LINE NOW LOOKS AT THE APSP CONTROL FILE FOR VARIABLES

A G END:'$D(^APSPCTRL(PSOSITE,0)) S X=^(0),C=0 ;IHS/DSD/ENM 08/01/96

 S W=$P(X,"^",4),P=$P(X,"^",5),B=$P(X,"^",6),E=$P(X,"^",7),PSZTAB=$P(X,"^",10) G END:'W ;IHS/DSD/ENM 09.28.93

A1 F I=1:1:B W !

 S X="XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"

 W !,?PSZTAB,$E(X,1,W) F I=1:1:P-2 W !,?PSZTAB,"X",?(W-1+PSZTAB),"X"

 W !,?PSZTAB,$E(X,1,W) F I=1:1:E W !

 G END:C S C=1 G A1

END W @IOF Q

APSPLBLT  ; IHS/DSD/ENM/CIA/PLS - TEST LABEL ALIGNMENT ;11-Jan-2004 19:21;PLS

 +1       ;;7.0;IHS PHARMACY MODIFICATIONS;;01/15/04

 +2       ;

 +3        USE IO

 +4       ;THE FOLLOWING LINE NOW LOOKS AT THE APSP CONTROL FILE FOR VARIABLES

A         ;IHS/DSD/ENM 08/01/96

           IF '$DATA(^APSPCTRL(PSOSITE,0))

               GOTO END

           SET X=^(0)

           SET C=0

 +1       ;IHS/DSD/ENM 09.28.93

           SET W=$PIECE(X,"^",4)

           SET P=$PIECE(X,"^",5)

           SET B=$PIECE(X,"^",6)

           SET E=$PIECE(X,"^",7)

           SET PSZTAB=$PIECE(X,"^",10)

           IF 'W

               GOTO END

A1         FOR I=1:1:B

               WRITE !

 +1        SET X="XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"

 +2        WRITE !,?PSZTAB,$EXTRACT(X,1,W)

           FOR I=1:1:P-2

               WRITE !,?PSZTAB,"X",?(W-1+PSZTAB),"X"

 +3        WRITE !,?PSZTAB,$EXTRACT(X,1,W)

           FOR I=1:1:E

               WRITE !

 +4        IF C

               GOTO END

           SET C=1

           GOTO A1

END        WRITE @IOF

           QUIT