APSPVIEW.m

APSPVIEW ; IHS/DSD/ENM - VIEW APSP ENTRIES ;  [ 09/03/97   1:30 PM ]

 ;;6.0;IHS PHARMACY MODIFICATIONS;;09/03/97

 ;

 ; This routine will display entries in certain files

 ; in a captioned format.  It calls EN^DIQ

 ;

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

 ; External Calls: ^DIC,EN^DIQ

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

START ;

 K APSPVIEW("DA'S")

 D SELECT ; Select Entries To View

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

 D DISP ; Display enties

 G START

END D EOJ ; Clean up variables

 Q

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

SELECT ; Select Entries to View

 S DIC=APSPVIEW("DIC")

 S DIC(0)="AEQM"

 D ^DIC K DIC,DR

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

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

 Q

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

 ;

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

 Q

EOJ ; Clean up variables

 K APSPVIEW,X,Y,DIC,DTOUT,DUOUT

 Q

APSPVIEW  ; IHS/DSD/ENM - VIEW APSP ENTRIES ;  [ 09/03/97   1:30 PM ]

 +1       ;;6.0;IHS PHARMACY MODIFICATIONS;;09/03/97

 +2       ;

 +3       ; This routine will display entries in certain files

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

 +5       ;

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

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

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

START     ;

 +1        KILL APSPVIEW("DA'S")

 +2       ; Select Entries To View

           DO SELECT

 +3        IF '$DATA(APSPVIEW("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=APSPVIEW("DIC")

 +2        SET DIC(0)="AEQM"

 +3        DO ^DIC

           KILL DIC,DR

 +4        IF Y>0

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

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

               GOTO SELECT

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

               KILL APSPVIEW("DA'S")

 +6        QUIT 

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

 +1       ;

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

               SET DIC=APSPVIEW("DIC")

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

               IF 'APSPVIEW("DA")

                   QUIT 

               SET DA=APSPVIEW("DA")

               DO EN^DIQ

               KILL DIC,DR,DA

 +3        QUIT 

EOJ       ; Clean up variables

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

 +2        QUIT