| 1 | WVPATE ;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 | ;
|
|---|
| 13 | EXIT ;EP
|
|---|
| 14 | D KILLALL^WVUTL8
|
|---|
| 15 | Q
|
|---|
| 16 | ;
|
|---|
| 17 | ;
|
|---|
| 18 | PATIENT ;EP
|
|---|
| 19 | D TITLE^WVUTL5("EDIT PATIENT CASE DATA")
|
|---|
| 20 | PATIENT1 ;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 | ;
|
|---|
| 34 | SCREEN(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 | ;
|
|---|
| 46 | CASEDATA(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 | ;
|
|---|
| 55 | AUTOADD(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 | ;
|
|---|
| 83 | STUFF ; 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
|
|---|
