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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DGRP1152U

Package: Registration

Routine: DGRP1152U


Information

DGRP1152U ;ALB/LEG - REGISTRATION SCREEN 11.5.2 (UTILS)/VERIFICATION INFORMATION ;JUN 08, 2020@23:00

Source Information

Source file <DGRP1152U.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 6 EN^DDIOL  $$FIND1^DIC  (FILE,UPDATE)^DIE  ^DIK  $$EXTERNAL^DILFD  $$GET1^DIQ  
Kernel 2 ($$FMTE,$$NOW)^XLFDT  $$UP^XLFSTR  
List Manager 2 $$SETFLD^VALM1  (CLEAN,SET)^VALM10  
Registration 1 SAVENDT^DGRP1152A  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 17

Package Total Caller Graph
Registration 11 ^DPT  DGENUPL7  DGLOCK1  DGRP1152A  DGRPTX  DGRPTX47  DGRPTX48  DGRPX73  
DGRPX74  DGRPXC  DGRPXR  
HINQ 2 DVBHCE5  DVBHCE6  
Integrated Billing 2 IBXS11  PATIENT ELIGIBILITIES  
Albany OIFO 1 A1CKC  
Automated Medical Information Exchange 1 DVBAXA  

Entry Points

Name Comments DBIA/ICR reference
TMP(DGTMP) ; constructs DGTMP data from Patient CCP data
GETCCP ; collects all CCP recs; sorts decreasing by EFFDT
SETREC ; sets ListMan Display record
; for Phase I Line 1 data
ARCHALL(DFN) ; ARCHIVE CCP entries
; Called from KILL logic of Xref in .361 (PRIMARY ELIGIBILITY) field
; and .01 (ELIGIBILITY CODE) field of the PATIENT ELIGIBILITIES subfile
; when the COLLATERAL OF VET eligibility code is deleted
; Also invoked from Z11 logic when ES is removing the COV eligibility
; For CCPs not already archived:
; - Active CCPs are end dated
; - Achive field set
MULTERR ; Invoked from ^DGRP1152A when adding/editing the Effective Date for a CCP
REMOVE(DFN) ; Invoked from ECDS^DGLOCK1 (Input Transform logic for Primary Eligibility field .361)
; This is called when COLLATERAL OF VET is being replaced
; - Remove all CCPs to a temp global and remove them from the Patient record.
; New X and Y so input transform vars are not overwritten
RESTORE(DFN) ; Invoked from "AEL" Cross-reference, Set logic, of Primary Eligibility field .361
; - If the ^TMP("DGCCP",$J,DFN) global (see REMOVE tag) does not exist, then quit.
; - Otherwise, move the CCPs in ^TMP back into the patient record.
; and if COV is no longer in .361 field, add it into the PATIENT ELIGIBILIITIES subfile .0361
; The result is that COV is moved from PRIMARY to the subfile and the CCPs are intact
; (COV cannnot be deleted if there are active CCPs but it can be replaced with another eligibility and moved to the subfile.)
; NEW X and Y so xref vars aren't overwritten

External References

Name Field # of Occurrence
EN^DDIOL MULTERR+1
SAVENDT^DGRP1152A ARCHALL+14
$$FIND1^DIC RESTORE+27, RESTORE+28
FILE^DIE ARCHALL+19
UPDATE^DIE RESTORE+18, RESTORE+29
^DIK REMOVE+13
$$EXTERNAL^DILFD SETREC+4
$$GET1^DIQ ARCHALL+12, ARCHALL+14, RESTORE+22
$$SETFLD^VALM1 SETREC+10, SETREC+11, SETREC+12
CLEAN^VALM10 TMP+2
SET^VALM10 SETREC+14, SETREC+17
$$FMTE^XLFDT SETREC+5
$$NOW^XLFDT ARCHALL+18
$$UP^XLFSTR SETREC+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
2.191 EXTERNAL^DILFD,  GET1^DIQ
^DIC(8 - [#8] FIND1^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] TMP+5, ARCHALL+10, REMOVE+7, REMOVE+9, REMOVE+12, REMOVE+14*
^TMP("DGCCP" REMOVE+4!, REMOVE+6*, REMOVE+9*, RESTORE+8, RESTORE+9, RESTORE+13, RESTORE+14, RESTORE+15, RESTORE+16, RESTORE+17
, RESTORE+20!

Label References

Name Line Occurrences
GETCCP TMP+10
SETREC GETCCP+11

Naked Globals

Name Field # of Occurrence
^( ARCHALL+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA REMOVE+5~, REMOVE+12*
DA(1 REMOVE+10*
DFN TMP+5, TMP+7, ARCHALL~, ARCHALL+10, ARCHALL+12, ARCHALL+14, ARCHALL+16, ARCHALL+18, REMOVE~, REMOVE+4
, REMOVE+6, REMOVE+7, REMOVE+9, REMOVE+10, REMOVE+11, REMOVE+12, REMOVE+14, RESTORE~, RESTORE+8, RESTORE+9
, RESTORE+11, RESTORE+13, RESTORE+14, RESTORE+15, RESTORE+16, RESTORE+17, RESTORE+20, RESTORE+22, RESTORE+26
DGBLANKS GETCCP+1~, GETCCP+3*, SETREC+4
DGCCP ARCHALL+9~, ARCHALL+10*, ARCHALL+12, ARCHALL+14, ARCHALL+16, ARCHALL+18
DGCCPCD GETCCP+1~
DGDATA RESTORE+7~, RESTORE+25~
DGDATA( RESTORE+27*
DGEFFDT TMP+1~, TMP+8*, TMP+9, GETCCP+1~, GETCCP+6*, GETCCP+7*, GETCCP+8, GETCCP+9
DGEFFDTO GETCCP+1~
DGENDT GETCCP+1~, GETCCP+10*, GETCCP+11
DGERR ARCHALL+9~, RESTORE+7~, RESTORE+10*
DGFDA ARCHALL+9~, RESTORE+7~, RESTORE+19!
DGFDA( ARCHALL+16*, ARCHALL+18*, RESTORE+13*, RESTORE+14*, RESTORE+15*, RESTORE+16*, RESTORE+17*
DGFDAIEN RESTORE+7~, RESTORE+25~
DGFDAIEN(1 RESTORE+28*
DGFIDX TMP+1~, TMP+6*, TMP+7*, TMP+9, GETCCP+1~, GETCCP+8*, GETCCP+9, SETREC+18
DGIENS RESTORE+7~, RESTORE+11*, RESTORE+12*, RESTORE+13, RESTORE+14, RESTORE+15, RESTORE+16, RESTORE+17
DGLINE GETCCP+1~, GETCCP+3*
DGLINECNT GETCCP+1~, GETCCP+3*, SETREC+13*, SETREC+14, SETREC+15*, SETREC+17
DGLINEVAR GETCCP+2~, SETREC+2*, SETREC+10*, SETREC+11*, SETREC+12*, SETREC+14, SETREC+16*, SETREC+17
DGNEWIEN RESTORE+7~, RESTORE+25~, RESTORE+26*, RESTORE+27
DGREC TMP+1~, TMP+7*, TMP+8, TMP+9, GETCCP+1~, GETCCP+9*, GETCCP+10, SETREC+3, SETREC+5, SETREC+18
DGRECCCP GETCCP+1~
DGRECCCPCD GETCCP+2~, SETREC+3*, SETREC+4
DGRECCCPNM GETCCP+2~, SETREC+4*, SETREC+11
DGRECEFDT GETCCP+2~, SETREC+5*
DGRECEFDTO GETCCP+2~, SETREC+5*, SETREC+7
DGRECNO GETCCP+1~, SETREC+9*, SETREC+10
DGRECODT GETCCP+2~, SETREC+7*, SETREC+12
DGTMP TMP~, TMP+4!
DGTMP( TMP+5*, TMP+7
DGTMP("EFDT" TMP+9*, GETCCP+7, GETCCP+8, GETCCP+9
DGTMP("IDX" SETREC+18*
DGZ RESTORE+7~, RESTORE+9*, RESTORE+13, RESTORE+14, RESTORE+15, RESTORE+16, RESTORE+17
DIK REMOVE+5~, REMOVE+11*
U TMP+8, GETCCP+10, SETREC+3, SETREC+5
>> VALMCNT GETCCP+3*, GETCCP+13*, SETREC+8*, SETREC+9, SETREC+14, SETREC+18
X ARCHALL+9~, REMOVE+5~, RESTORE+7~
Y ARCHALL+9~, REMOVE+5~, RESTORE+7~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All