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

DGPREP1.m

Go to the documentation of this file.
  1. DGPREP1 ;ALB/SCK,PWC - Program to Display Pre-Registration List Cont. 1 ;Jul 29, 2019@12:00
  1. ;;5.3;Registration;**109,136,574,903,980**;Aug 13, 1993;Build 4
  1. ;
  1. ; Subroutine DIREDT Linetag 26-29 added by patch DG*5.3*903 which was submitted to
  1. ; OSEHRA on 04/02/2015 by HP. This update was authored by James Harris 2014-2015
  1. ;
  1. Q
  1. EH ; Edit call log information
  1. ; Variables
  1. ; PTIFN - Patients IEN returned from the SELPAT procedure
  1. ;
  1. N PTIFN,D,X,DA,DR
  1. S PTIFN=""
  1. D SELPAT
  1. Q:'$D(PTIFN)
  1. S DIC="^DGS(41.43,",DIC(0)="EQZ"
  1. S X=PTIFN,D="C"
  1. S DIC("A")="Select LOG ENTRY: "
  1. S DIC("S")="I $P(^(0),U,2)=PTIFN"
  1. ;
  1. D IX^DIC K DIC
  1. ;
  1. I Y>0 D
  1. . S DA=+Y
  1. . S DIE="^DGS(41.43,"
  1. . S DR="3;2///^S X=$P(^VA(200,DUZ,0),U)"
  1. . D ^DIE K DIE
  1. . I '$D(Y) D
  1. .. S DGPDFN=PTIFN
  1. .. D BLDHIST^DGPREP0
  1. .. S X=$$SETSTR^VALM1(^TMP("DGPRERG",$J,DGPCH,0),"",1,110)
  1. .. S X=$$SETFLD^VALM1(DGPTAT,X,"HIST")
  1. .. S ^TMP("DGPRERG",$J,DGPCH,0)=X
  1. S VALMBCK="R"
  1. Q
  1. ;
  1. SELPAT ; Select patient if no patient is passed in
  1. N VALMI,VALMAT,VALMY,X
  1. D FULL^VALM1
  1. D EN^VALM2(XQORNOD(0),"S") S VALMI=0
  1. I '$D(VALMY) S VALMBCK="R" Q
  1. S DGPN1="",DGPCH=$O(VALMY(DGPN1))
  1. S PTIFN="",PTIFN=$O(^TMP("DGPRERG",$J,"DFN",DGPCH,PTIFN))
  1. Q
  1. ;
  1. EDIT ; Edit Patient Information
  1. ; Variables
  1. ; DGPDIV - Division IEN from ^TMP
  1. ; DGPSTMP - Date/Time stamp from UPDLOG function
  1. ; DGPIFN - Patients IEN from ^TMP
  1. ; DGPP1-3,5 - Local Var's for $O
  1. ; DGPNEW -
  1. ; DGPFLG - Flag used to indicate a connect status of 'C'
  1. ; DGPST - Call status returned by SELST function
  1. ; DGPDA - IEN of Call log entry returned from UPDLOG function
  1. ; DGPCH - Entry in the VALMY, selected entries, array
  1. ;
  1. N VALMI,VALMAT,VALMY,X,DGPN5,DGPDIV,DGPSTMP,DGPIFN,DGPP1,DGPP2,DGPP3,DGPNEW,DGPFLG
  1. ;
  1. D FULL^VALM1
  1. D EN^VALM2(XQORNOD(0),"S") S VALMI=0
  1. I '$D(VALMY) S VALMBCK="R" Q
  1. S DGPN1="",DGPCH=$O(VALMY(DGPN1))
  1. S DGPIFN="",DGPIFN=$O(^TMP("DGPRERG",$J,"DFN",DGPCH,DGPIFN))
  1. S DGPDIV="",DGPDIV=$O(^TMP("DGPRERG",$J,"DIV",DGPCH,DGPDIV))
  1. S DGNEW=0,DGPFLG=0
  1. ;
  1. ; *** Check patient sensitivity before proceeding
  1. S DIC=2,DIC(0)="ENQ",X=DGPIFN D ^DIC K DIC
  1. Q:Y<0
  1. ;
  1. ; *** Check lock status before continuing
  1. S DGPN5="",DGPN5=$O(^DGS(41.42,"B",DGPIFN,DGPN5))
  1. I DGPN5]"" L +^DGS(41.42,DGPN5):2 I '$T W *7,!,"Another User is Editing this Patient" S VALMBCK="R" Q
  1. ;
  1. S (DA,DFN)=DGPIFN
  1. ;
  1. S DGPFLG=1
  1. S DGPSTMP=""
  1. D INITLE(.DGPSTMP)
  1. ;
  1. I DGPCH]""&(DGPFLG) D
  1. . S X=$$SETSTR^VALM1(^TMP("DGPRERG",$J,DGPCH,0),"",1,110)
  1. . ;S X=$$SETSTR^VALM1("*",X,8,1)
  1. . I $G(DGPSTMP)]"" S X=$$SETSTR^VALM1($$FMTE^XLFDT(DGPSTMP,"2D"),X,70,8)
  1. . S ^TMP("DGPRERG",$J,DGPCH,0)=X
  1. . S DIE="^DGS(41.42,",DA=DGPN5
  1. . S DR="4///Y" I DGPSTMP]"" S DR=DR_";3///^S X=DGPSTMP"
  1. . D ^DIE K DIE
  1. L -^DGS(41.42,DGPN5)
  1. K DGPENT,DGPN1,DGPCH,DGPLOC,DGPST,DGPN5,DGPFLG
  1. Q
  1. ;
  1. INITLE(DGPY) ; Initialize for Load/Edit
  1. ; Variables
  1. ; Input:
  1. ; DGPY - Null value
  1. ;
  1. ; Returns:
  1. ; DGPY - Returns the date/time stamp entered into ^DGS(41.41,.
  1. ;
  1. ; Local:
  1. ; DGPRFLG - This flag is used by the Patient Load/Edit routines
  1. ; to indicate they were called by preregistration
  1. ; DGPLOC - Flag used by DG10 to indicate preselection of a patient
  1. ;
  1. N DGPRFLG
  1. S (DGPRFLG,DGPLOC)=1
  1. W !!
  1. D ^DG10
  1. Q:$G(DGPFLG)&($G(DGRPOUT))
  1. ;
  1. S DGPST=$$SELST
  1. I DGPST']"" S VALMBCK="R" Q
  1. ;
  1. I DGPST'="L" D
  1. . S DGPDA=$$UPDLOG(DGPIFN,DGPST,DGPDIV) Q:DGPDA'>0
  1. . I '$G(DGMODE),$P($G(^DGS(41.43,DGPDA,0)),U,4)]"" D
  1. .. S X=$$SETSTR^VALM1(^TMP("DGPRERG",$J,DGPCH,0),"",1,110)
  1. .. S DGPP1=$E(X,1,34),DGPP2=$E(X,35,38),DGPP3=$E(X,39,110)
  1. .. S DGPP2=$P(^DGS(41.43,DGPDA,0),U,4)_DGPP2
  1. .. S X=DGPP1_$E(DGPP2,1,4)_DGPP3
  1. .. S ^TMP("DGPRERG",$J,DGPCH,0)=X
  1. ;
  1. W !
  1. S DIR(0)="YA",DIR("A")="Date/Time stamp this patient? ",DIR("B")="YES"
  1. D ^DIR K DIR
  1. W !
  1. I Y D
  1. . K DD,DO
  1. . S DGPY=$$NOW^XLFDT
  1. . S DIC="^DGS(41.41,",DIC(0)="EQZ",X=DFN
  1. . S DIC("DR")="1///^S X=DGPY;2////^S X=DUZ"
  1. . D FILE^DICN
  1. . K DIC
  1. ;
  1. Q
  1. STAT ; Display call history
  1. K PTIFN D SELPAT
  1. I $D(PTIFN) D
  1. . D EN^DGPREP2
  1. K PTIFN
  1. Q
  1. ;
  1. SELST() ; Function to select status for call log
  1. ; Returns:
  1. ; Status code as a SOC
  1. ;
  1. K DIRUT
  1. N DIR
  1. W !!
  1. S DIR(0)="41.43,3"
  1. S DIR("A")="STATUS OF CALL",DIR("B")="CONNECTED"
  1. S DIR("?",1)="Enter the status of the current call from the list below."
  1. S DIR("?")="Entries must be in uppercase, and match on of these codes."
  1. D ^DIR K DIR
  1. Q $G(Y)
  1. ;
  1. UPDLOG(DFN,DGPS,DGPDV) ; Update PRE-REGISTRATION CALL LOG File, #41.43
  1. ;
  1. ; Variables
  1. ; Input:
  1. ; DFN - The IEN of the patient being called
  1. ; DGPS - Status of the call attempt
  1. ; DGPDV - Division IEN (used for sorting)
  1. ;
  1. ; Returns:
  1. ; The IEN of the CALL LOG, File #41.43, entry that was added.
  1. ; 0 is returned if the user ^'s out.
  1. ;
  1. K DD,DO
  1. S DIC="^DGS(41.43,"
  1. S DIC(0)="L"
  1. S X=$$NOW^XLFDT
  1. D FILE^DICN
  1. I Y<0 W *7,"Problem adding to file - PRE-REGISTRATION CALL LOG"
  1. I Y'<0 D
  1. . S DIE="^DGS(41.43,"
  1. . ;VSR (PWC) patch DG*5.3*980 change four slashes to three slashes for validation before filing except for DUZ
  1. . S DR="1///^S X=DFN;2////^S X=DUZ;3///^S X=DGPS;5///^S X=$S(+DGPDV>0:DGPDV,1:"""")"
  1. . S DA=+Y
  1. . D ^DIE K DIE
  1. . I $D(Y) D
  1. .. S DIK="^DGS(41.43," D ^DIK K DIK
  1. Q +$G(DA)
  1. ;
  1. DIREDT ; Direct edit of a patient in the PRE-REGISTRATION CALL LIST, bypassing the call list.
  1. ;
  1. ; Variables
  1. ; DFN - Patients IEN, set for Load/Edit
  1. ; DGPDIV - Division IEN from File #41.42
  1. ; DGPST - Call Status
  1. ; DGPIDX - Call List IEN, File #41.42
  1. ; DGPFLG - Flag for direct patient edit, used for setting 'called' status
  1. ; DGPSTMP - Date/time stamp
  1. ;
  1. N DFN,DGPDIV,DGPST,DGPIDX,DGPFLG,DGNEW,DGPXX,DGPSTMP,DGPX,DGPIFN,DGMODE
  1. N DGRPOUT,DGMHVOUT,DGMHVNOS
  1. ;
  1. K DTOUT,DUOUT,DIC
  1. S DIC=2,DIC(0)="AEQZM"
  1. S DIC("A")="Select Patient to Preregister: "
  1. S DIC("?")="Select a patient whose preregistration information you want to edit."
  1. D ^DIC K DIC
  1. I $D(DTOUT)!($D(DUOUT))!(Y<0) Q
  1. ;
  1. S (DFN,DGPIFN)=+Y,DGPIDX=""
  1. I $D(^DGS(41.42,"B",DFN)) D Q:$G(DGPX)
  1. . S DGPIDX=$O(^DGS(41.42,"B",DFN,DGPIDX))
  1. . S DGPDIV=$P($G(^DGS(41.42,DGPIDX,0)),U,2)
  1. . I DGPIDX]"" L +^DGS(41.42,DGPIDX):2 I '$T W *7,!,"Another user is editing this patient." S DGPX=1
  1. ;
  1. D
  1. .;These next 6 lines were added by patch DG*5.3*903
  1. .;This functionality will not be executed if "Enable MyHealtheVet Prompts?" (#1100.07
  1. .;field in MAS PARAMETERS (43) file is not set to YES (internal value 1)
  1. .Q:+$$MHVENABL^DGMHVUTL()'>0
  1. .N DGABB,DGMHVOUT,DIR
  1. .I '$$MHVOK^DGMHVAC(DFN) D EN^DGMHV(DFN) Q
  1. .D EN^DGMHVAC(DFN)
  1. ;
  1. S DGNEW=0,DGPFLG=1,DGPSTMP="",DGMODE=1
  1. ;
  1. ; ** Since this is a direct call for a patient, and the particular appt. is not known, set DGPDIV to primary medical center division.
  1. I $G(DGPDIV)']"" D
  1. . S DGPDIV=$$PRIM^VASITE
  1. ;
  1. D INITLE(.DGPSTMP)
  1. ;
  1. I $G(DGRPOUT) G UNLCK
  1. ;
  1. I $G(DGPFLG),DGPIDX]"" D
  1. . S DA=DGPIDX
  1. . S DIE="^DGS(41.42,"
  1. . S DR="4///Y" I DGPSTMP]"" S DR=DR_";3///^S X=DGPSTMP"
  1. . D ^DIE K DIE
  1. ;
  1. UNLCK I $G(DGPIDX)]"" L -^DGS(41.42,DGPIDX)
  1. Q