source: WorldVistAEHR/trunk/r/WOMENS_HEALTH-WV/WVPATE.m

Last change on this file was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.6 KB
Line 
1WVPATE ;HCIOFO/FT,JR-PATIENT CASE DATA EDIT; ;4/3/01 13:13
2 ;;1.0;WOMEN'S HEALTH;**3,13,14**;Sep 30, 1998
3 ;; Original routine created by IHS/ANMC/MWR
4 ;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
5 ;; CALLED BY OPTION: "WV EDIT PATIENT CASE DATA".
6 ;
7 ; This routine uses the following IAs:
8 ; #1625 - $$GET^XUA4A72 (supported)
9 ;
10 D SETVARS^WVUTL5
11 F D PATIENT Q:WVPOP
12 ;
13EXIT ;EP
14 D KILLALL^WVUTL8
15 Q
16 ;
17 ;
18PATIENT ;EP
19 D TITLE^WVUTL5("EDIT PATIENT CASE DATA")
20PATIENT1 ;EP
21 ;---> TO AVOID @IOF AND TITLE.
22 ;---> SELECT PATIENT.
23 ; Quit if no default case manager
24 I '$$DCM^WVUTL9(DUZ(2)) D NODCM^WVUTL9 S WVPOP=1 Q
25 N Y
26 W !!," Select the patient you wish to add or edit."
27 D PATLKUP^WVUTL8(.Y,"ADD")
28 I Y<0 S WVPOP=1 Q
29 S WVDFN=+Y
30 D SCREEN(WVDFN) S WVPOP=0
31 Q
32 ;
33 ;
34SCREEN(WVDFN) ;EP
35 ;---> EDIT PATIENT CASE DATA WITH SCREENMAN.
36 ;---> REQUIRED VARIABLES: WVDFN=DFN OF PATIENT.
37 I '$P($G(^WV(790,WVDFN,0)),U,10) D STUFF
38 N DR
39 S DR="[WV PATIENT-FORM-1]"
40 D DDS^WVFMAN(790,DR,WVDFN,"","",.WVPOP)
41 N DIR W !,"Do you wish to PRINT this patient's Case Data?"
42 S DIR(0)="Y",DIR("B")="NO" D ^DIR K DIR W !
43 D:Y PRTCASE^WVPATP(WVDFN)
44 Q
45 ;
46CASEDATA(WVDFN) ;EP
47 ;---> CALLED AFTER ADD/EDIT OF NOTIFICATIONS.
48 N DIR W !,"Do you wish to EDIT this patient's Case Data?"
49 S DIR("?",1)=" Enter YES to edit this patient's Case Manager, "
50 S DIR("?")=" PAP Regimen, Current Need, etc."
51 S DIR(0)="Y",DIR("B")="NO" D ^DIR K DIR W !
52 D:Y SCREEN(WVDFN)
53 Q
54 ;
55AUTOADD(DFN,SITE,Y,WVPRMT) ;EP
56 ;---> AUTOMATIC ADD OF A NEW PATIENT TO "WV PATIENT FILE".
57 ;---> SET CASEMANAGER TO SITE PARAMETER DEFAULT.
58 ;---> SET PAP TX NEED (#.11), PAP REGIMEN (#.16)="Undetermined",
59 ;---> MAM TX NEED (#.18)="Undetermined".
60 ;---> PARAMETERS:
61 ; 1 - DFN (REQUIRED) IEN OF PATIENT IN ^DPT(
62 ; 2 - SITE (REQUIRED) DUZ(2) FOR DEFAULT CASE MANAGER
63 ; 3 - Y (RETURNED) FROM ^DICN: IEN OR -1 FAILURE TO ADD PT
64 ; 4 - WVPRMT (OPTIONAL) EQUALS 1 IF PROMPT WHEN FAILURE
65 ;
66 ;---> SET CASE MANAGER DEFAULT.
67 N WVCMGR,DIC S WVCMGR=$S($D(SITE):$P(^WV(790.02,SITE,0),U,2),1:"")
68 S:'$G(WVPRMT) WVPRMT=0
69 S DIC("DR")=".1////"_WVCMGR_";.11///Undetermined;.16///Undetermined"
70 S DIC("DR")=DIC("DR")_";.18///Undetermined"
71 S DIC("DR")=DIC("DR")_";.21////"_DT
72 S (DINUM,X)=DFN
73 K DD,DO S DIC="^WV(790,",DIC(0)="ML",DLAYGO=790
74 D FILE^DICN K DIC
75 ;---> IF Y<0, CHECK PERMISSIONS.
76 I Y<0,WVPRMT D Q
77 .W !!?5,"* UNABLE to add this patient to the Women's Health database."
78 .W !?5," Please contact your site manager to check permissions."
79 .D DIRZ^WVUTL3
80 S Y=+Y
81 Q
82 ;
83STUFF ; Stuff case manager if none
84 Q:'+$G(WVDFN)
85 Q:'+$G(DUZ(2))
86 S $P(^WV(790,WVDFN,0),U,10)=$P($G(^WV(790.02,DUZ(2),0)),U,2)
87 Q
Note: See TracBrowser for help on using the repository browser.