PSOVWI.m

PSOVWI ;IHS/DSD/JCM - DISPLAY ENTRIES IN FILES IN A CAPTIONED FORMAT ; 07/20/92 14:38

 ;;7.0;OUTPATIENT PHARMACY;;DEC 1997

 ;

 ; This routine will display entries in certain files

 ; in a captioned format.  It calls EN^DIQ

 ;

 ; Input Variables: PSOVWI("DIC") The global root for DIC

 ; External Calls: ^DIC,EN^DIQ

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

START ;

 K PSOVWI("DA'S")

 D SELECT ; Select Entries To View

 G:'$D(PSOVWI("DA'S")) END

 D DISP ; Display enties

 G START

END D EOJ ; Clean up variables

 Q

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

SELECT ; Select Entries to View

 S DIC=PSOVWI("DIC")

 S DIC(0)="AEQM"

 D ^DIC K DIC,DR

 I Y>0 S PSOVWI("DA'S",+Y)="",DIC("A")="ANOTHER ONE: " G SELECT

 K:$D(DTOUT)!($D(DUOUT)) PSOVWI("DA'S")

 Q

DISP ; Calls EN^DIQ to display entries in captioned form

 ;

 F PSOVWI("DA")=0:0 S DIC=PSOVWI("DIC"),PSOVWI("DA")=$O(PSOVWI("DA'S",PSOVWI("DA"))) Q:'PSOVWI("DA")  S DA=PSOVWI("DA") D EN^DIQ K DIC,DR,DA

 Q

EOJ ; Clean up variables

 K PSOVWI,X,Y,DIC,DTOUT,DUOUT

 Q

PSOVWI    ;IHS/DSD/JCM - DISPLAY ENTRIES IN FILES IN A CAPTIONED FORMAT ; 07/20/92 14:38

 +1       ;;7.0;OUTPATIENT PHARMACY;;DEC 1997

 +2       ;

 +3       ; This routine will display entries in certain files

 +4       ; in a captioned format.  It calls EN^DIQ

 +5       ;

 +6       ; Input Variables: PSOVWI("DIC") The global root for DIC

 +7       ; External Calls: ^DIC,EN^DIQ

 +8       ;--------------------------------------------------------------

START     ;

 +1        KILL PSOVWI("DA'S")

 +2       ; Select Entries To View

           DO SELECT

 +3        IF '$DATA(PSOVWI("DA'S"))

               GOTO END

 +4       ; Display enties

           DO DISP

 +5        GOTO START

END       ; Clean up variables

           DO EOJ

 +1        QUIT 

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

SELECT    ; Select Entries to View

 +1        SET DIC=PSOVWI("DIC")

 +2        SET DIC(0)="AEQM"

 +3        DO ^DIC

           KILL DIC,DR

 +4        IF Y>0

               SET PSOVWI("DA'S",+Y)=""

               SET DIC("A")="ANOTHER ONE: "

               GOTO SELECT

 +5        IF $DATA(DTOUT)!($DATA(DUOUT))

               KILL PSOVWI("DA'S")

 +6        QUIT 

DISP      ; Calls EN^DIQ to display entries in captioned form

 +1       ;

 +2        FOR PSOVWI("DA")=0:0

               SET DIC=PSOVWI("DIC")

               SET PSOVWI("DA")=$ORDER(PSOVWI("DA'S",PSOVWI("DA")))

               IF 'PSOVWI("DA")

                   QUIT 

               SET DA=PSOVWI("DA")

               DO EN^DIQ

               KILL DIC,DR,DA

 +3        QUIT 

EOJ       ; Clean up variables

 +1        KILL PSOVWI,X,Y,DIC,DTOUT,DUOUT

 +2        QUIT