Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: WVPATE

WVPATE.m

Go to the documentation of this file.
  1. WVPATE ;HCIOFO/FT,JR-PATIENT CASE DATA EDIT; ;4/3/01 13:13
  1. ;;1.0;WOMEN'S HEALTH;**3,13,14**;Sep 30, 1998
  1. ;; Original routine created by IHS/ANMC/MWR
  1. ;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
  1. ;; CALLED BY OPTION: "WV EDIT PATIENT CASE DATA".
  1. ;
  1. ; This routine uses the following IAs:
  1. ; #1625 - $$GET^XUA4A72 (supported)
  1. ;
  1. D SETVARS^WVUTL5
  1. F D PATIENT Q:WVPOP
  1. ;
  1. EXIT ;EP
  1. D KILLALL^WVUTL8
  1. Q
  1. ;
  1. ;
  1. PATIENT ;EP
  1. D TITLE^WVUTL5("EDIT PATIENT CASE DATA")
  1. PATIENT1 ;EP
  1. ;---> TO AVOID @IOF AND TITLE.
  1. ;---> SELECT PATIENT.
  1. ; Quit if no default case manager
  1. I '$$DCM^WVUTL9(DUZ(2)) D NODCM^WVUTL9 S WVPOP=1 Q
  1. N Y
  1. W !!," Select the patient you wish to add or edit."
  1. D PATLKUP^WVUTL8(.Y,"ADD")
  1. I Y<0 S WVPOP=1 Q
  1. S WVDFN=+Y
  1. D SCREEN(WVDFN) S WVPOP=0
  1. Q
  1. ;
  1. ;
  1. SCREEN(WVDFN) ;EP
  1. ;---> EDIT PATIENT CASE DATA WITH SCREENMAN.
  1. ;---> REQUIRED VARIABLES: WVDFN=DFN OF PATIENT.
  1. I '$P($G(^WV(790,WVDFN,0)),U,10) D STUFF
  1. N DR
  1. S DR="[WV PATIENT-FORM-1]"
  1. D DDS^WVFMAN(790,DR,WVDFN,"","",.WVPOP)
  1. N DIR W !,"Do you wish to PRINT this patient's Case Data?"
  1. S DIR(0)="Y",DIR("B")="NO" D ^DIR K DIR W !
  1. D:Y PRTCASE^WVPATP(WVDFN)
  1. Q
  1. ;
  1. CASEDATA(WVDFN) ;EP
  1. ;---> CALLED AFTER ADD/EDIT OF NOTIFICATIONS.
  1. N DIR W !,"Do you wish to EDIT this patient's Case Data?"
  1. S DIR("?",1)=" Enter YES to edit this patient's Case Manager, "
  1. S DIR("?")=" PAP Regimen, Current Need, etc."
  1. S DIR(0)="Y",DIR("B")="NO" D ^DIR K DIR W !
  1. D:Y SCREEN(WVDFN)
  1. Q
  1. ;
  1. AUTOADD(DFN,SITE,Y,WVPRMT) ;EP
  1. ;---> AUTOMATIC ADD OF A NEW PATIENT TO "WV PATIENT FILE".
  1. ;---> SET CASEMANAGER TO SITE PARAMETER DEFAULT.
  1. ;---> SET PAP TX NEED (#.11), PAP REGIMEN (#.16)="Undetermined",
  1. ;---> MAM TX NEED (#.18)="Undetermined".
  1. ;---> PARAMETERS:
  1. ; 1 - DFN (REQUIRED) IEN OF PATIENT IN ^DPT(
  1. ; 2 - SITE (REQUIRED) DUZ(2) FOR DEFAULT CASE MANAGER
  1. ; 3 - Y (RETURNED) FROM ^DICN: IEN OR -1 FAILURE TO ADD PT
  1. ; 4 - WVPRMT (OPTIONAL) EQUALS 1 IF PROMPT WHEN FAILURE
  1. ;
  1. ;---> SET CASE MANAGER DEFAULT.
  1. N WVCMGR,DIC S WVCMGR=$S($D(SITE):$P(^WV(790.02,SITE,0),U,2),1:"")
  1. S:'$G(WVPRMT) WVPRMT=0
  1. S DIC("DR")=".1////"_WVCMGR_";.11///Undetermined;.16///Undetermined"
  1. S DIC("DR")=DIC("DR")_";.18///Undetermined"
  1. S DIC("DR")=DIC("DR")_";.21////"_DT
  1. S (DINUM,X)=DFN
  1. K DD,DO S DIC="^WV(790,",DIC(0)="ML",DLAYGO=790
  1. D FILE^DICN K DIC
  1. ;---> IF Y<0, CHECK PERMISSIONS.
  1. I Y<0,WVPRMT D Q
  1. .W !!?5,"* UNABLE to add this patient to the Women's Health database."
  1. .W !?5," Please contact your site manager to check permissions."
  1. .D DIRZ^WVUTL3
  1. S Y=+Y
  1. Q
  1. ;
  1. STUFF ; Stuff case manager if none
  1. Q:'+$G(WVDFN)
  1. Q:'+$G(DUZ(2))
  1. S $P(^WV(790,WVDFN,0),U,10)=$P($G(^WV(790.02,DUZ(2),0)),U,2)
  1. Q