ABSPOSN7.m

ABSPOSN7 ; IHS/FCS/DRS - NCPDP Fms F ILC A/R ;   [ 09/12/2002  10:17 AM ]

 ;;1.0;PHARMACY POINT OF SALE;**3**;JUN 21, 2001;Build 38

 ;----------------------------------------------------------------------

WCENTER(TEXT,MARGIN) ;

 W ?MARGIN-$L(TEXT)/2,TEXT,!

 Q

 ;----------------------------------------------------------------------

 ;Display screen header

HEADER(TEXT) ;EP

 W @IOF

 W !

 D WCENTER(TEXT,80)

 D WCENTER($TR($J("",$L(TEXT))," ","-"),80)

 Q

 ;----------------------------------------------------------------------

 ;Device PROMPT (returns %ZIS variables eg: IOM, IOSL, IOF....)

DEVICE(PROMPT,EXIT) ;EP

 N %ZIS,POP

 W !!

 S %ZIS=""

 S %ZIS("A")=PROMPT

 S %ZIS("B")=""

 D ^%ZIS

 I POP S EXIT=1 Q

 U IO

 Q

 ;---------------------------------------------------------------------

YNPROMPT(PROMPT,DFLT) ;EP 

 N %,%Y,U

 S U="^"

 S %=$S(DFLT="Yes":1,DFLT="No":2,1:0)

 W PROMPT

 D YN^DICN

 Q $S(%=1:"Yes",%=2:"No",1:"")

 ;--------------------------------------------------------------------

CONTINUE(EXIT) ;EP

 N DIR,X,Y

 S DIR(0)="E" D ^DIR

 S:Y=0 EXIT=1

 Q

 ;--------------------------------------------------------------------

ABSPOSN7  ; IHS/FCS/DRS - NCPDP Fms F ILC A/R ;   [ 09/12/2002  10:17 AM ]

 +1       ;;1.0;PHARMACY POINT OF SALE;**3**;JUN 21, 2001;Build 38

 +2       ;----------------------------------------------------------------------

WCENTER(TEXT,MARGIN) ;

 +1        WRITE ?MARGIN-$LENGTH(TEXT)/2,TEXT,!

 +2        QUIT 

 +3       ;----------------------------------------------------------------------

 +4       ;Display screen header

HEADER(TEXT) ;EP

 +1        WRITE @IOF

 +2        WRITE !

 +3        DO WCENTER(TEXT,80)

 +4        DO WCENTER($TRANSLATE($JUSTIFY("",$LENGTH(TEXT))," ","-"),80)

 +5        QUIT 

 +6       ;----------------------------------------------------------------------

 +7       ;Device PROMPT (returns %ZIS variables eg: IOM, IOSL, IOF....)

DEVICE(PROMPT,EXIT) ;EP

 +1        NEW %ZIS,POP

 +2        WRITE !!

 +3        SET %ZIS=""

 +4        SET %ZIS("A")=PROMPT

 +5        SET %ZIS("B")=""

 +6        DO ^%ZIS

 +7        IF POP

               SET EXIT=1

               QUIT 

 +8        USE IO

 +9        QUIT 

 +10      ;---------------------------------------------------------------------

YNPROMPT(PROMPT,DFLT) ;EP 

 +1        NEW %,%Y,U

 +2        SET U="^"

 +3        SET %=$SELECT(DFLT="Yes":1,DFLT="No":2,1:0)

 +4        WRITE PROMPT

 +5        DO YN^DICN

 +6        QUIT $SELECT(%=1:"Yes",%=2:"No",1:"")

 +7       ;--------------------------------------------------------------------

CONTINUE(EXIT) ;EP

 +1        NEW DIR,X,Y

 +2        SET DIR(0)="E"

           DO ^DIR

 +3        IF Y=0

               SET EXIT=1

 +4        QUIT 

 +5       ;--------------------------------------------------------------------