WVRPSNPR ;HCIOFO/FT,JR IHS/ANMC/MWR - REPORT: RETRIEVE A SNAPSHOT;
;;1.0;WOMEN'S HEALTH;;Sep 30, 1998
;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
;; CALLED BY OPTION: "WV PRINT/RETRIEVE SNAPSHOT" TO DISPLAY A
;; PREVIOUS SNAPSHOT.
;
D SETVARS^WVUTL5 S WVPOP=0,WVFAC=DUZ(2) K ^TMP("WVF",$J)
N A,B,C,D,E,F,G,H,J,K,L,M,N,P,Q,R,S,X,Y
D TITLE^WVUTL5("RETRIEVE A PROGRAM SNAPSHOT")
D RETRIEVE G:WVPOP EXIT
D DEVICE G:WVPOP EXIT
D LOADVARS
D ^WVRPSNP1
;
EXIT ;EP
D KILLALL^WVUTL8
Q
;
;
RETRIEVE ;EP
;---> RETRIEVE A SNAPSHOT
N DIC,Y
W !!?3,"Select the Snapshot you wish to display or print."
D DIC^WVFMAN(790.71,"QEMA",.Y," Select Snapshot: ")
I Y<0 S WVPOP=1 Q
S WVDTIEN=+Y
Q
;
DEVICE ;EP
;---> GET DEVICE AND POSSIBLY QUEUE TO TASKMAN.
S ZTRTN="DEQUEUE^WVRPSNPR"
F WVSV="DT","DTIEN" D
.I $D(@("WV"_WVSV)) S ZTSAVE("WV"_WVSV)=""
D ZIS^WVUTL2(.WVPOP,1)
Q
;
DEQUEUE ;EP
;---> QUEUED REPORT
N A,B,C,D,E,F,G,H,J,K,L,M,N,P,Q,R,S,X,Y
D SETVARS^WVUTL5,LOADVARS,^WVRPSNP1,EXIT
Q
;
LOADVARS ;EP
S Y=^WV(790.71,WVDTIEN,0)
S WVDT=+Y
S WVFAC=$P(Y,U,2),A=$P(Y,U,3),B=$P(Y,U,4),C=$P(Y,U,5),D=$P(Y,U,6)
S E=$P(Y,U,7),F=$P(Y,U,8),G=$P(Y,U,9),H=$P(Y,U,10),S=$P(Y,U,11)
S J=$P(Y,U,12),K=$P(Y,U,13),L=$P(Y,U,14),P=$P(Y,U,15),Q=$P(Y,U,16)
S R=$P(Y,U,17),M=$P(Y,U,18)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HWVRPSNPR 1359 printed Apr 09, 2024@21:48:46 Page 2
WVRPSNPR ;HCIOFO/FT,JR IHS/ANMC/MWR - REPORT: RETRIEVE A SNAPSHOT;
+1 ;;1.0;WOMEN'S HEALTH;;Sep 30, 1998
+2 ;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
+3 ;; CALLED BY OPTION: "WV PRINT/RETRIEVE SNAPSHOT" TO DISPLAY A
+4 ;; PREVIOUS SNAPSHOT.
+5 ;
+6 DO SETVARS^WVUTL5
SET WVPOP=0
SET WVFAC=DUZ(2)
KILL ^TMP("WVF",$JOB)
+7 NEW A,B,C,D,E,F,G,H,J,K,L,M,N,P,Q,R,S,X,Y
+8 DO TITLE^WVUTL5("RETRIEVE A PROGRAM SNAPSHOT")
+9 DO RETRIEVE
if WVPOP
GOTO EXIT
+10 DO DEVICE
if WVPOP
GOTO EXIT
+11 DO LOADVARS
+12 DO ^WVRPSNP1
+13 ;
EXIT ;EP
+1 DO KILLALL^WVUTL8
+2 QUIT
+3 ;
+4 ;
RETRIEVE ;EP
+1 ;---> RETRIEVE A SNAPSHOT
+2 NEW DIC,Y
+3 WRITE !!?3,"Select the Snapshot you wish to display or print."
+4 DO DIC^WVFMAN(790.71,"QEMA",.Y," Select Snapshot: ")
+5 IF Y<0
SET WVPOP=1
QUIT
+6 SET WVDTIEN=+Y
+7 QUIT
+8 ;
DEVICE ;EP
+1 ;---> GET DEVICE AND POSSIBLY QUEUE TO TASKMAN.
+2 SET ZTRTN="DEQUEUE^WVRPSNPR"
+3 FOR WVSV="DT","DTIEN"
Begin DoDot:1
+4 IF $DATA(@("WV"_WVSV))
SET ZTSAVE("WV"_WVSV)=""
End DoDot:1
+5 DO ZIS^WVUTL2(.WVPOP,1)
+6 QUIT
+7 ;
DEQUEUE ;EP
+1 ;---> QUEUED REPORT
+2 NEW A,B,C,D,E,F,G,H,J,K,L,M,N,P,Q,R,S,X,Y
+3 DO SETVARS^WVUTL5
DO LOADVARS
DO ^WVRPSNP1
DO EXIT
+4 QUIT
+5 ;
LOADVARS ;EP
+1 SET Y=^WV(790.71,WVDTIEN,0)
+2 SET WVDT=+Y
+3 SET WVFAC=$PIECE(Y,U,2)
SET A=$PIECE(Y,U,3)
SET B=$PIECE(Y,U,4)
SET C=$PIECE(Y,U,5)
SET D=$PIECE(Y,U,6)
+4 SET E=$PIECE(Y,U,7)
SET F=$PIECE(Y,U,8)
SET G=$PIECE(Y,U,9)
SET H=$PIECE(Y,U,10)
SET S=$PIECE(Y,U,11)
+5 SET J=$PIECE(Y,U,12)
SET K=$PIECE(Y,U,13)
SET L=$PIECE(Y,U,14)
SET P=$PIECE(Y,U,15)
SET Q=$PIECE(Y,U,16)
+6 SET R=$PIECE(Y,U,17)
SET M=$PIECE(Y,U,18)
+7 QUIT
