DGPAR2.m

DGPAR2 ;ALB/LDB - MAS PARAMETERS ENTRY/EDIT CONT. ; 15 MAY 90

 ;;5.3;Registration;;Aug 13, 1993

 ;

EN ;called from DGPAR1 to continue display of parameters

 S X=$P(DGZE,"^",5) W !?4,"'",$P(DGDV1,"^",2),"' on G&L",?25,": ",$S($P(DGZE,"^",5):"YES",1:"NO")

 S X=+$P(DGZE,"^",6) W !?4,"Combined/Separate G&L: ",$S(X:"SEPARATE",1:"COMBINED")

 S DGDV1="10/10^DRUG PROFILE^ROUTING SLIP" F I=1:1:3 S X=$P(DGDV,"^",I) W:$X>4 !?4 W $P(DGDV1,"^",I)," printer",?25,": ",$S(X]"":X,1:"NOT SPECIFIED")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DGPAR2   498     printed  Apr 09, 2024@21:54:23                                                                                                                                                                                                       Page 2

DGPAR2    ;ALB/LDB - MAS PARAMETERS ENTRY/EDIT CONT. ; 15 MAY 90

 +1       ;;5.3;Registration;;Aug 13, 1993

 +2       ;

EN        ;called from DGPAR1 to continue display of parameters

 +1        SET X=$PIECE(DGZE,"^",5)

           WRITE !?4,"'",$PIECE(DGDV1,"^",2),"' on G&L",?25,": ",$SELECT($PIECE(DGZE,"^",5):"YES",1:"NO")

 +2        SET X=+$PIECE(DGZE,"^",6)

           WRITE !?4,"Combined/Separate G&L: ",$SELECT(X:"SEPARATE",1:"COMBINED")

 +3        SET DGDV1="10/10^DRUG PROFILE^ROUTING SLIP"

           FOR I=1:1:3

               SET X=$PIECE(DGDV,"^",I)

               if $X>4

                   WRITE !?4

               WRITE $PIECE(DGDV1,"^",I)," printer",?25,": ",$SELECT(X]"":X,1:"NOT SPECIFIED")

 +4        QUIT