| 1 | WVPROF1 ;HCIOFO/FT,JR IHS/ANMC/MWR - DISPLAY PATIENT PROFILE; ;7/30/98 11:39
|
|---|
| 2 | ;;1.0;WOMEN'S HEALTH;;Sep 30, 1998
|
|---|
| 3 | ;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
|
|---|
| 4 | ;; SETUP AND EDIT CODE FOR DISPLAYING PATIENT PROFILE.
|
|---|
| 5 | ;; CALLED BY WVPROF.
|
|---|
| 6 | ;
|
|---|
| 7 | D DISPLAY Q:WVPOP
|
|---|
| 8 | D ^WVPROF3
|
|---|
| 9 | Q
|
|---|
| 10 | ;
|
|---|
| 11 | ;
|
|---|
| 12 | DISPLAY ;EP
|
|---|
| 13 | ;---> WVCONF=DISPLAY "CONFIDENTIAL PATIENT INFO" BANNER.
|
|---|
| 14 | ;---> WVTITLE=TITLE AT TOP OF DISPLAY HEADER.
|
|---|
| 15 | ;---> WVCHAGE=DISPLAY CHART AND AGE IN HEADER.
|
|---|
| 16 | ;---> WVSUBH=CODE TO EXECUTE FOR SUBHEADER (COLUMN TITLES).
|
|---|
| 17 | ;---> WVCODE=CODE TO EXECUTE AS 3RD PIECE OF DIR(0) (AFTER DIR READ).
|
|---|
| 18 | ;---> WVCRT=1 IF OUTPUT IS TO SCREEN (ALLOWS SELECTIONS TO EDIT).
|
|---|
| 19 | ;---> WVTAB=6 IF OUTPUT IS TO SCREEN, =3 IF OUTPUT IS TO PRINTER.
|
|---|
| 20 | ;---> WVPRMT(1,Q)=PROMPTS FOR DIR.
|
|---|
| 21 | ;
|
|---|
| 22 | U IO
|
|---|
| 23 | I '$D(WVDFN)!('$D(WVNAME))!('$D(WVCHRT)) D Q
|
|---|
| 24 | .W !!,"INSUFFICIENT PATIENT INFORMATION.",!!
|
|---|
| 25 | .D DIRZ^WVUTL3 S WVPOP=1
|
|---|
| 26 | ;
|
|---|
| 27 | S WVCONF=1,WVCHAGE=1
|
|---|
| 28 | S WVTITLE="* * * Patient Profile * * *" D CENTERT^WVUTL5(.WVTITLE)
|
|---|
| 29 | S WVCODE="Q:'$D(^TMP(""WV"",$J,2,+X)) "
|
|---|
| 30 | S WVCODE=WVCODE_"D EDIT^WVPROF1 N X D SORT^WVPROF2,COPYGBL^WVPROF"
|
|---|
| 31 | ;---> IF PROFILE IS BEING ACCESSED BY A USER FROM OUTSIDE OF THE
|
|---|
| 32 | ;---> PACKAGE (NOT WOMEN'S HEALTH STAFF), THEN OFFER DISPLAY/PRINT
|
|---|
| 33 | ;---> OF PROCEDURE; DO NOT OFFER EDIT OF PROCEDURE.
|
|---|
| 34 | D:$G(WVPUSER)
|
|---|
| 35 | .S WVCODE="D PRINTPCD^WVPROF1"
|
|---|
| 36 | S (WVACCP,N,WVPOP,Z)=0
|
|---|
| 37 | D TOPHEAD^WVUTL7
|
|---|
| 38 | S WVTAB=$S(WVCRT:6,1:3)
|
|---|
| 39 | Q
|
|---|
| 40 | ;
|
|---|
| 41 | ;
|
|---|
| 42 | EDIT ;EP
|
|---|
| 43 | ;---> FROM BROWSE, WVPOP IN TO EDIT A SINGLE PROCEDURE.
|
|---|
| 44 | ;---> NOTE: PIECE 10 OF EACH TMP NODE IS THE IEN FOR THAT ENTRY
|
|---|
| 45 | ;---> IN ITS RESPECTIVE FILE (PROCDURE FILE OR NOTIFICATION FILE).
|
|---|
| 46 | D SETVARS^WVUTL5
|
|---|
| 47 | S X=+X,DA=$P(^TMP("WV",$J,2,X),U,10)
|
|---|
| 48 | S WVNN=X N X D
|
|---|
| 49 | .I $P(^TMP("WV",$J,2,WVNN),U)=1 D Q
|
|---|
| 50 | ..D EDIT2^WVPROC1(DA,.WVPOP) Q:WVPOP
|
|---|
| 51 | .I $P(^TMP("WV",$J,2,WVNN),U)=2 D EDIT2^WVNOTIF(DA) Q
|
|---|
| 52 | .W !!?3,*7,"This is neither a PROCEDURE nor a NOTIFICATION. "
|
|---|
| 53 | .W "It cannot be edited here."
|
|---|
| 54 | .D DIRZ^WVUTL3 Q
|
|---|
| 55 | ;---> BACK UP 5 RECORDS AFTER EDIT.
|
|---|
| 56 | S N=$S(WVNN<6:1,1:WVNN-5),Z=0 K WVNN
|
|---|
| 57 | Q
|
|---|
| 58 | ;
|
|---|
| 59 | ;
|
|---|
| 60 | PRINTPCD ;EP
|
|---|
| 61 | ;---> FROM BROWSE, PRINT THIS PROCEDURE.
|
|---|
| 62 | ;---> NOTE: PIECE 10 OF EACH TMP NODE IS THE IEN FOR THAT ENTRY
|
|---|
| 63 | ;---> IN ITS RESPECTIVE FILE (PROCDURE FILE OR NOTIFICATION FILE).
|
|---|
| 64 | D SETVARS^WVUTL5
|
|---|
| 65 | S X=+X,DA=$P(^TMP("WV",$J,2,X),U,10)
|
|---|
| 66 | S WVN=X N X D
|
|---|
| 67 | .I $P(^TMP("WV",$J,2,WVN),U)=1 D TOP^WVPRPCD(DA) Q
|
|---|
| 68 | .W !!?3,*7,"This is not a PROCEDURE. "
|
|---|
| 69 | .D DIRZ^WVUTL3 Q
|
|---|
| 70 | ;---> BACK UP 5 RECORDS AFTER EDIT.
|
|---|
| 71 | S N=$S(WVN<6:1,1:WVN-5),Z=0 K WVN
|
|---|
| 72 | Q
|
|---|
| 73 | ;
|
|---|
| 74 | ;
|
|---|
| 75 | SUBHEAD ;EP
|
|---|
| 76 | ;---> SUB HEADER FOR BRIEF DISPLAY OF PROCEDURES ONLY.
|
|---|
| 77 | W !?WVTAB,"DATE",?16,"PROCEDURE",?27,"RESULTS/DIAGNOSIS",?71,"STATUS",!
|
|---|
| 78 | W ?WVTAB,"--------",?16,"---------",?27,"----------------------------"
|
|---|
| 79 | W ?71,"------"
|
|---|
| 80 | Q
|
|---|
