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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSOVWI 1090 printed Dec 13, 2024@02:36:27 Page 2
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
