Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: DGRPLE

Package: Registration

Routine: DGRPLE


Information

DGRPLE ;WAS/ERC/RMM,ALB/CKN - REGISTRATION EDITS OF PURPLE HEART FIELDS ; 11/22/05 4:13pm

Source Information

Source file <DGRPLE.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA Fileman 5 NOW^%DTC  ^DIC  ^DIE  GETS^DIQ  ^DIR  
Registration 3 ($$ADD,$$UPD)^DGENDBS  ADDMSG^DGENUPL3  ($$PRIM,$$SITE)^VASITE  
Kernel 1 $$NOW^XLFDT  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Registration 5 DGENPTA1  DGRPE  DGRPTI  DGRPTX17  DGRPTX18  

Entry Points

Name Comments DBIA/ICR reference
CHANGE(DGPH1,DGPH2,DGPH3,DGPHDFN) ;Check to see if the entry has changed
; Input:
; DGPH1 - PH Indicator
; DGPH2 - PH Status
; DGPH3 - PH Remarks
; DGPHDFN- Patient file IEN
EDITPH1(DGUSER) ;
; Input: DGUSER - Person filing Purple Heart changes
DIV() ;Get Institution Name
EDITPOW(DG1,DG2,DG3,DG4,DGDFN) ;entry from enrollment for HEC updates
; DGDFN - Patient File IEN
; DG1 - POW Indicator
; DG2 - POW Confinement Location
; DG3 - POW From Date
; DG4 - POW To Date
; Update POW data from HEC - DG*5.3*653
REDIE(DGPCE) ; make sure value in PH Status and PH Remarks consistent
; with value of PH Indicator
EDITPH(DG1,DG2,DG3,DGDFN) ;entry from enrollment for HEC updates
; DGDFN - Patient File IEN
; DG1 - PH Indicator
; DG2 - PH Status
; DG3 - PH Remarks
MULTDIV() ;User selects from active divisions
EDITPH2(DG1,DG2,DG3,DG4) ;stuff PH values into the PH multiple of file #2
AUDITQ

External References

Name Field # of Occurrence
NOW^%DTC EDITPH+20, EDITPH2+5
$$ADD^DGENDBS EDITPH+23
$$UPD^DGENDBS EDITPOW+22, EDITPH+11
ADDMSG^DGENUPL3 EDITPOW+23, EDITPH+12, EDITPH+24
^DIC EDITPH2+8
^DIE REDIE+5
GETS^DIQ CHANGE+25
^DIR MULTDIV+11
$$PRIM^VASITE DIV+11
$$SITE^VASITE DIV+12
$$NOW^XLFDT EDITPOW+16

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] DIV+11
^DPT - [#2] EDITPOW+9, EDITPH+15, EDITPH+16, EDITPH1+7, REDIE+6, CHANGE+23
^VA(200 - [#200] EDITPH1+5

Label References

Name Line Occurrences
$$CHANGE EDITPH+18, EDITPH1+13
$$MULTDIV DIV+11
AUDITQ CHANGE+24, CHANGE+26
EDITPH2 EDITPH1+13
REDIE EDITPH1+10, EDITPH1+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EDITPH+6~, EDITPH+21, EDITPH2+5
CURPOW EDITPOW+7~, EDITPOW+9*, EDITPOW+10, EDITPOW+11
DA EDITPH2+1, EDITPH2+2~, REDIE+2~, REDIE+4*
DA(1 EDITPH2+4*
DATA EDITPOW+7~, EDITPOW+22, EDITPOW+24!, EDITPH+6~, EDITPH+11, EDITPH+13!, EDITPH+23, EDITPH+25!
DATA( EDITPOW+12*, EDITPOW+16*, EDITPOW+19*, EDITPOW+20*, EDITPOW+21*, EDITPH+8*, EDITPH+9*, EDITPH+10*, EDITPH+21*
DATA(1 EDITPH+21*
DATA(2 EDITPH+21*
DATA(3 EDITPH+21*
DATA(4 EDITPH+22*
>> DFN EDITPH1+7, EDITPH1+13, EDITPH2+1*, EDITPH2+3, EDITPH2+4, REDIE+4, REDIE+6
DG EDITPH1+6~
DG( EDITPH1+12*
DG(1 EDITPH+8*, EDITPH+18, EDITPH+21, EDITPH1+13
DG(2 EDITPH+9*, EDITPH+18, EDITPH+21, EDITPH1+13
DG(3 EDITPH+10*, EDITPH+18, EDITPH+21, EDITPH1+13
DG1 EDITPOW~, EDITPOW+12, EDITPOW+16, EDITPOW+19, EDITPOW+20, EDITPOW+21, EDITPOW+24!, EDITPH~, EDITPH+8, EDITPH+9
, EDITPH+10, EDITPH2~
DG2 EDITPOW~, EDITPOW+19, EDITPOW+24!, EDITPH~, EDITPH+9, EDITPH2~
DG3 EDITPOW~, EDITPOW+20, EDITPOW+24!, EDITPH~, EDITPH+10, EDITPH2~
DG4 EDITPOW~, EDITPOW+21, EDITPOW+24!, EDITPH2~
DGARR CHANGE+13~
DGARR( CHANGE+27
DGCHG CHANGE+12~, CHANGE+21*, CHANGE+24*, CHANGE+26*, CHANGE+29*, AUDITQ
DGDFN EDITPOW~, EDITPOW+8, EDITPOW+9, EDITPH~, EDITPH+7, EDITPH+15, EDITPH+16, EDITPH+18, EDITPH+22
DGDIV DIV+10~, DIV+11*, DIV+12
DGENDA EDITPOW+7~, EDITPOW+8*, EDITPOW+22, EDITPOW+24!, EDITPH+6~, EDITPH+7*, EDITPH+11, EDITPH+13!, EDITPH+23, EDITPH+25!
DGENDA(1 EDITPH+22*
DGERR CHANGE+15~, CHANGE+26
DGFILE CHANGE+17~, CHANGE+22*, CHANGE+25, CHANGE+27
DGI CHANGE+18~, CHANGE+28*, CHANGE+30, CHANGE+31
DGIEN CHANGE+16~, CHANGE+23*, CHANGE+24, CHANGE+25, CHANGE+27
DGNAM DIV+10~, DIV+13*, DIV+14
DGPCE REDIE~, REDIE+3
DGPH1 CHANGE~, CHANGE+31
DGPH2 CHANGE~
DGPH3 CHANGE~
DGPHARR EDITPH+6~, EDITPH+16*, EDITPH1+6~, EDITPH1+7*, EDITPH1+10, EDITPH1+11, EDITPH1+12, REDIE+6*
DGPHDFN CHANGE~, CHANGE+23, CHANGE+25, CHANGE+27
DGPHINC CHANGE+20!, CHANGE+31*
DGPHVAL CHANGE+14~, CHANGE+27*
DGPHVAL( CHANGE+28, CHANGE+31
DGSTN DIV+10~, DIV+12*, DIV+13
DGUSER EDITPH+6~, EDITPH+16*, EDITPH+22, EDITPH1~, EDITPH1+5*, EDITPH1+13
DGX EDITPH1+6~, EDITPH1+12*
DIC EDITPH2+2~, EDITPH2+3*
DIC("DR" EDITPH2+7*
DIC(0 EDITPH2+6*
DIE EDITPH2+2~, REDIE+2~, REDIE+3*
DIR MULTDIV+7~
DIR("A" MULTDIV+9*
DIR("S" MULTDIV+10*
DIR(0 MULTDIV+8*
DR REDIE+2~, REDIE+3*
DUZ EDITPH1+5
ERROR EDITPOW+7~, EDITPOW+22, EDITPOW+24!, EDITPH+6~, EDITPH+11, EDITPH+13!, EDITPH+23, EDITPH+25!
>> MSGS EDITPOW+23, EDITPH+12, EDITPH+24
POW EDITPOW+7~
POW( EDITPOW+10*, EDITPOW+11*, EDITPOW+16
U DIV+13, EDITPH1+5, EDITPH1+10, EDITPH1+11, EDITPH1+12
X MULTDIV+7~, EDITPH2+5*
Y MULTDIV+7~, MULTDIV+12
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All