| 1 | WVRPSNPR ;HCIOFO/FT,JR IHS/ANMC/MWR - REPORT: RETRIEVE A SNAPSHOT;
|
|---|
| 2 | ;;1.0;WOMEN'S HEALTH;;Sep 30, 1998
|
|---|
| 3 | ;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
|
|---|
| 4 | ;; CALLED BY OPTION: "WV PRINT/RETRIEVE SNAPSHOT" TO DISPLAY A
|
|---|
| 5 | ;; PREVIOUS SNAPSHOT.
|
|---|
| 6 | ;
|
|---|
| 7 | D SETVARS^WVUTL5 S WVPOP=0,WVFAC=DUZ(2) K ^TMP("WVF",$J)
|
|---|
| 8 | N A,B,C,D,E,F,G,H,J,K,L,M,N,P,Q,R,S,X,Y
|
|---|
| 9 | D TITLE^WVUTL5("RETRIEVE A PROGRAM SNAPSHOT")
|
|---|
| 10 | D RETRIEVE G:WVPOP EXIT
|
|---|
| 11 | D DEVICE G:WVPOP EXIT
|
|---|
| 12 | D LOADVARS
|
|---|
| 13 | D ^WVRPSNP1
|
|---|
| 14 | ;
|
|---|
| 15 | EXIT ;EP
|
|---|
| 16 | D KILLALL^WVUTL8
|
|---|
| 17 | Q
|
|---|
| 18 | ;
|
|---|
| 19 | ;
|
|---|
| 20 | RETRIEVE ;EP
|
|---|
| 21 | ;---> RETRIEVE A SNAPSHOT
|
|---|
| 22 | N DIC,Y
|
|---|
| 23 | W !!?3,"Select the Snapshot you wish to display or print."
|
|---|
| 24 | D DIC^WVFMAN(790.71,"QEMA",.Y," Select Snapshot: ")
|
|---|
| 25 | I Y<0 S WVPOP=1 Q
|
|---|
| 26 | S WVDTIEN=+Y
|
|---|
| 27 | Q
|
|---|
| 28 | ;
|
|---|
| 29 | DEVICE ;EP
|
|---|
| 30 | ;---> GET DEVICE AND POSSIBLY QUEUE TO TASKMAN.
|
|---|
| 31 | S ZTRTN="DEQUEUE^WVRPSNPR"
|
|---|
| 32 | F WVSV="DT","DTIEN" D
|
|---|
| 33 | .I $D(@("WV"_WVSV)) S ZTSAVE("WV"_WVSV)=""
|
|---|
| 34 | D ZIS^WVUTL2(.WVPOP,1)
|
|---|
| 35 | Q
|
|---|
| 36 | ;
|
|---|
| 37 | DEQUEUE ;EP
|
|---|
| 38 | ;---> QUEUED REPORT
|
|---|
| 39 | N A,B,C,D,E,F,G,H,J,K,L,M,N,P,Q,R,S,X,Y
|
|---|
| 40 | D SETVARS^WVUTL5,LOADVARS,^WVRPSNP1,EXIT
|
|---|
| 41 | Q
|
|---|
| 42 | ;
|
|---|
| 43 | LOADVARS ;EP
|
|---|
| 44 | S Y=^WV(790.71,WVDTIEN,0)
|
|---|
| 45 | S WVDT=+Y
|
|---|
| 46 | 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)
|
|---|
| 47 | 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)
|
|---|
| 48 | 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)
|
|---|
| 49 | S R=$P(Y,U,17),M=$P(Y,U,18)
|
|---|
| 50 | Q
|
|---|
