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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: DGRP1152A

Package: Registration

Routine: DGRP1152A


Information

DGRP1152A ;ALB/LEG - REGISTRATION SCREEN 11.5.2/VERIFICATION INFORMATION ;JUN 08, 2020@23:00

Source Information

Source file <DGRP1152A.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
VA FileMan 6 NOW^%DTC  WAIT^DICD  (FILE,UPDATE)^DIE  $$EXTERNAL^DILFD  $$GET1^DIQ  ^DIR  
Kernel 3 ($$FMTE,$$NOW)^XLFDT  $$UP^XLFSTR  DISP^XQORM1  
List Manager 3 EN^VALM  (CLEAR,FULL,PAUSE)^VALM1  CLEAN^VALM10  
Registration 2 (MULTERR,TMP)^DGRP1152U  $$SSNNM^DGRPU  

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: 7

Package Total Caller Graph
Registration 7 DGEN CCP ADD  DGEN CCP DETAIL  DGEN CCP EDIT  DGEN CCP MENU  DGEN CCP REMOVE  DGRP1152U  DGRPE  

Entry Points

Name Comments DBIA/ICR reference
EN(DFN) ;Main entry point to invoke the DGEN CCP DETAIL list
; Input -- DFN Patient IEN
HDR ;Header code
INIT ;Build patient Collateral screen
EXIT ;Exit code
PEXIT ;DGEN CCP MENU protocol exit code
HELP ; Invoked from HELP CODE in List Template [DGEN CCP DETAIL]
ACT(DGACT) ; Entry point for menu action selection
; INPUT: DGACT = "A" - Add - DGEN CCP ADD protocol
; = "E" - Edit - DGEN CCP EDIT protocol
; = "R" - Remove - DGEN CCP REMOVE protocol
ACTQ ; menu action exit point
ADD ; Add new CCP to #1910 sub-file
EDIT ;EDIT EXISTING CCP
REMOVE ;REMOVE EXISTING CCP
SELECT(DGACT,DGORIGIDX,DGORIGREC) ;
; Input: DGACT - "E"dit or "R"emove
; Output: DGORIGIDX - (Pass by reference) The entry number of the selected CCP
; DGORIGREC - (Pass by reference) The fields of the selected CCP
; Returns the entry number selected
ADASKCCP(DGCCPCD) ; Prompts for CCP to be ADDed
; Output: DGCCPCD - CCP Code to be added (Pass by Reference)
; Returns - TRUE if valid CCP entered
L1 ; Tag to call for re-prompting
EDASKCCP(DGORIGIDX,DGCCPCD) ; ASK EDIT CCP
; Input: DGORIGIDX - Entry number of the CCP selected for edit
; Output: DGCCPCD - The CCP Code that has been entered {Pass by Reference)
; Returns: TRUE is edit of the CCP was successful
L2 ; Tag to call for re-prompting
ADASKEFDT(DGCCPCD,DGEFFDT) ; ASK ADD EFFECTIVE DATE AND IF VALID SAVE
; Input: DGCCPCD - CCP Code associated with the effective date
; Outut: DGEFFDT - Effective date entered for this CCP (Pass by Reference)
; Returns TRUE if valid effective date added for this CCP
L3 ; Tag to call for re-prompting
EDASKEFDT(DGORIGIDX,DGORIGREC,DGCCPCD,DGEFFDT) ; ASK EFFECTIVE DATE AND IF VALID SAVE
; Input: DGORIGIDX - Entry number of the CCP selected for edit
; DGORIGREC - The fields of the selected CCP (0 node)
; DGCCPCD - CCP code for the associated Effective Date
; Input: DGEFFDT - Updated Effective Date (Pass by reference)
; Returns: TRUE is edit of Effective Date was successful
L4 ; Tag to call for re-prompting
CHKMULT1(DFN,DGCCP,DGGOOD) ; checks for disallowed 'A' or 'I' multiples
; Input: DFN
; DGCCCP - The CPP code to check
; Output: DGGOOD - (Pass by Reference) - TRUE if OK
CHKMULT2(DFN,DGCCP,DGFMDT,DGGOOD) ; checks for disallowed same CCP with same EFFECTIVE DATE
; Input: DFN
; DGCCCP - The CPP code to check
; DGFMDT - Effective Date to check (Fileman format)
; Output: DGGOOD - (Pass by Reference) - TRUE if OK
SAVREC(DFN,DGCCPCD,DGEFFDT) ;save newly ADDed or EDITed record
SAVEXIST(DFN,DGCCP,DGFMDT) ; Check for an existing CCP record to be saved
; Checks for a matching CCP/EFFECTIVE DATE record among the End Dated CCPs. If found, reuse it (Remove the end date)
; Inputs: DFN - Patient DFN
; DGCCP - CCP Code
; DGFMDT - CCP Effective date
; Returns: The Entry number of the reactivated CCP if found or NULL
SAVENDT(DGSIDX) ;save END DATE in old rec
; Input: DGSIDX - Entry number of the CCP to set End Date

External References

Name Field # of Occurrence
NOW^%DTC SAVREC+9, SAVENDT+7
MULTERR^DGRP1152U L3+12, L4+14
TMP^DGRP1152U INIT+3, ACTQ+2
$$SSNNM^DGRPU HDR+6
WAIT^DICD EN+2
FILE^DIE SAVEXIST+23, SAVENDT+9
UPDATE^DIE SAVREC+13
$$EXTERNAL^DILFD ADD+5
$$GET1^DIQ HDR+4, HDR+8, HDR+10, L2+1, L4+3
^DIR ADD+7, REMOVE+5, SELECT+12, L1+3, L2+4, L3+5, L4+5
EN^VALM EN+3
CLEAR^VALM1 INIT+2, EXIT+2
FULL^VALM1 ACT+7, ACT+8
PAUSE^VALM1 ACT+7, SELECT+10
CLEAN^VALM10 INIT+1, EXIT+1
$$FMTE^XLFDT HDR+5
$$NOW^XLFDT SAVEXIST+21, SAVENDT+5
$$UP^XLFSTR HDR+5
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"View only. This action cannot be selected."
  • Line Location: ACT+7
Function Call: WRITE
  • Prompt: !,"There are no entries to "_$S(DGACT="E":"edit.",1:"remove.")
  • Line Location: SELECT+9
Function Call: WRITE
  • Prompt: " ** Already have this CCP on file."
  • Line Location: L1+9
Function Call: WRITE
  • Prompt: " ** Already have this CCP on file."
  • Line Location: L2+9
Function Call: WRITE
  • Prompt: " **UNABLE TO SAVE**"
  • Line Location: SAVREC+14
Routine Call
  • DIE
  • Line Location:
    • SAVEXIST+23
    • SAVENDT+9
Routine Call
  • DIE
  • Line Location:
    • SAVREC+13
Routine Call
  • DIR
  • Line Location:
    • ADD+7
    • REMOVE+5
    • SELECT+12
    • L1+3
    • L2+4
    • L3+5
    • L4+5
Routine Call
  • VALM
  • Line Location:
    • EN+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
2.191 EXTERNAL^DILFD,  GET1^DIQ
^DG(391 - [#391] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] SELECT+16
^TMP("VALM DATA" EXIT+3!

Label References

Name Line Occurrences
$$ADASKCCP ADD+2
$$ADASKEFDT ADD+3
$$EDASKCCP EDIT+3
$$EDASKEFDT EDIT+4
$$SAVEXIST SAVREC+3
$$SELECT EDIT+2, REMOVE+2
ACTQ ACT+5, ACT+7, ACT+9, ACT+10, ACT+11
ADD ACT+9
CHKMULT1 L1+8, L2+8
CHKMULT2 L3+11, L4+13
EDIT ACT+10
L1 L1+9
L2 L2+9
L3 L3+10, L3+12
L4 L4+10, L4+14
REMOVE ACT+11
SAVENDT EDIT+6, REMOVE+6
SAVREC ADD+8, EDIT+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% SAVREC+5~, SAVREC+10
DA ACT+4~
DFN EN~, HDR+4, HDR+6, HDR+8, HDR+10, ADD+8, EDIT+5, SELECT+16, L1+8, L2+1
L2+8, L3+11, L4+3, L4+13, CHKMULT1~, CHKMULT2~, SAVREC~, SAVREC+3, SAVREC+7, SAVEXIST~
, SAVEXIST+21, SAVEXIST+22, SAVENDT+5, SAVENDT+8
DGACT ACT~, ACT+5, ACT+9, ACT+10, ACT+11, SELECT~, SELECT+9
DGBLANKS HDR+2~
DGCCP CHKMULT1~, CHKMULT1+7, CHKMULT1+9, CHKMULT1+13, CHKMULT2~, CHKMULT2+8, CHKMULT2+10, CHKMULT2+16, SAVEXIST~, SAVEXIST+8
, SAVEXIST+17
DGCCPCD ADD+1~, ADD+2, ADD+3, ADD+5, ADD+8, EDIT+1~, EDIT+3, EDIT+4, EDIT+5, ADASKCCP~
L1+7*, L1+8, EDASKCCP~, L2+7*, L2+8, ADASKEFDT~, L3+11, EDASKEFDT~, L4+12, L4+13
, SAVREC~, SAVREC+3, SAVREC+11
DGCCPNM ADD+4~, ADD+5*, ADD+6
DGDOB HDR+1~, HDR+4*, HDR+5*, HDR+10
DGEFFDT ADD+1~, ADD+3, ADD+8, EDIT+1~, EDIT+4, EDIT+5, ADASKEFDT~, L3+9*, L3+11, EDASKEFDT~
L4+9*, L4+12, L4+13, SAVREC~, SAVREC+3, SAVREC+12
DGENTRY EDASKCCP+5~
DGERR SAVREC+5~, SAVREC+6*, SAVREC+14, SAVEXIST+7~, SAVENDT+3~
DGEXDT ADASKEFDT+5~, L3+9*, L3+10, EDASKEFDT+7~, L4+9*, L4+10
DGEXIST SAVEXIST+7~, SAVEXIST+10*, SAVEXIST+11, SAVEXIST+19*, SAVEXIST+24
DGFDA SAVREC+5~, SAVEXIST+7~, SAVENDT+3~
DGFDA( SAVREC+10*, SAVREC+11*, SAVREC+12*, SAVEXIST+21*, SAVEXIST+22*, SAVENDT+5*, SAVENDT+8*
DGFMDT CHKMULT2~, CHKMULT2+10, CHKMULT2+12, CHKMULT2+13, SAVEXIST~, SAVEXIST+8, SAVEXIST+11, SAVEXIST+12
DGGOOD ADASKCCP+4~, L1+8, L1+9, EDASKCCP+5~, L2+8, L2+9, ADASKEFDT+5~, L3+11, L3+12, EDASKEFDT+7~
L4+13, L4+14, CHKMULT1~, CHKMULT1+6*, CHKMULT1+11, CHKMULT1+13*, CHKMULT2~, CHKMULT2+7*, CHKMULT2+12, CHKMULT2+16*
DGI CHKMULT1+5~, CHKMULT1+10*, CHKMULT1+11*
DGIENS SAVREC+5~, SAVREC+7*, SAVREC+8*, SAVREC+10, SAVREC+11, SAVREC+12
DGMEMID HDR+2~
DGNAME HDR+2~
DGORIGIDX EDIT+1~, EDIT+2, EDIT+3, EDIT+4, EDIT+6, REMOVE+1~, REMOVE+2, REMOVE+6, SELECT~, SELECT+16*
, EDASKCCP~, L2+1, EDASKEFDT~, L4+3
DGORIGREC EDIT+1~, EDIT+2, EDIT+4, SELECT~, SELECT+16*, EDASKEFDT~, L4+12
DGPREFNM HDR+2~
DGPTYPE HDR+1~, HDR+2~, HDR+8*, HDR+9*, HDR+11
DGRECS SELECT+6~, SELECT+7*, SELECT+8, SELECT+11, SELECT+12
>> DGRPV ACT+7
DGSEL EDIT+1~, EDIT+2*, REMOVE+1~, REMOVE+2*, SELECT+6~, SELECT+13*, SELECT+16, SELECT+17, CHKMULT1+11
DGSIDX SAVENDT~, SAVENDT+5, SAVENDT+8
DGSSN HDR+1~, HDR+7*, HDR+11
DGSSNSTR HDR+1~, HDR+6*, HDR+7, HDR+10, HDR+11
DGTCCP CHKMULT1+5~, CHKMULT1+12*, CHKMULT1+13, CHKMULT2+6~, CHKMULT2+14*, CHKMULT2+16, SAVEXIST+7~, SAVEXIST+15*, SAVEXIST+17
DGTENDT CHKMULT1+5~, CHKMULT1+12*, CHKMULT1+13, CHKMULT2+6~, CHKMULT2+15*, CHKMULT2+16, SAVEXIST+7~, SAVEXIST+16*, SAVEXIST+17
DGTIDX CHKMULT1+5~, CHKMULT1+10*, CHKMULT1+11*, CHKMULT2+6~, CHKMULT2+11*, CHKMULT2+12*, CHKMULT2+13, SAVEXIST+7~, SAVEXIST+10*, SAVEXIST+11*
, SAVEXIST+12, SAVEXIST+19, SAVEXIST+21, SAVEXIST+22
DGTMP HDR+2~, INIT+3, EXIT+3!, ACTQ+2
DGTMP("EFDT" CHKMULT2+12, CHKMULT2+13, SAVEXIST+11, SAVEXIST+12
DGTMP("IDX" SELECT+7, SELECT+16, CHKMULT1+11
DGTREC CHKMULT1+5~, CHKMULT1+11*, CHKMULT1+12, CHKMULT2+6~, CHKMULT2+13*, CHKMULT2+14, CHKMULT2+15, SAVEXIST+7~, SAVEXIST+12*, SAVEXIST+14
, SAVEXIST+15, SAVEXIST+16
DGX ACT+4~
DIC ACT+4~
DIE ACT+4~
DIK ACT+4~
DIPA ACT+4~
DIR ADD+4~, REMOVE+3~, SELECT+6~, SELECT+12!, ADASKCCP+4~, L1+4!, EDASKCCP+5~, L2+5!, ADASKEFDT+5~, EDASKEFDT+7~
DIR("A" ADD+6*, REMOVE+4*, SELECT+12*, L1+2*, L2+3*, L3+2*, L4+2*
DIR("B" ADD+6*, REMOVE+4*, L2+1*, L3+3*, L4+3*
DIR(0 ADD+6*, REMOVE+4*, SELECT+11*, L1+1*, L2+2*, L3+1*, L4+1*
DIROUT ADD+4~, ADD+7, REMOVE+3~, REMOVE+5, SELECT+6~
DIRUT ADD+4~, ADD+7, REMOVE+3~, REMOVE+5, SELECT+6~
DR ACT+4~
DTOUT ADD+4~, ADD+7, REMOVE+3~, REMOVE+5, SELECT+6~, SELECT+14, ADASKCCP+4~, L1+5, EDASKCCP+5~, L2+6
, ADASKEFDT+5~, L3+6, EDASKEFDT+7~, L4+6
DUOUT ADD+4~, ADD+7, REMOVE+3~, REMOVE+5, SELECT+6~, SELECT+14, ADASKCCP+4~, L1+5, EDASKCCP+5~, L2+6
, ADASKEFDT+5~, L3+6, EDASKEFDT+7~, L4+6
U L4+12, CHKMULT1+12, CHKMULT2+14, CHKMULT2+15, SAVEXIST+14, SAVEXIST+15, SAVEXIST+16
VALMBCK EN+4~, ACTQ+1*
VALMCNT EN+4~
VALMHDR EN+4~, HDR+3!
VALMHDR(1 HDR+10*
VALMHDR(2 HDR+11*
VALMHDR(3 HDR+12*
VALMSG EN+4~, PEXIT+2*, HELP+2*
X HELP+1*, ADD+4~, SELECT+6~, ADASKCCP+4~, EDASKCCP+5~, ADASKEFDT+5~, L3+4!, L3+10, EDASKEFDT+7~, L4+4!
L4+10, SAVREC+5~, SAVENDT+3~, SAVENDT+8
Y ADD+4~, ADD+7, REMOVE+3~, REMOVE+5, SELECT+6~, SELECT+13, ADASKCCP+4~, L1+6, L1+7, EDASKCCP+5~
L2+7, ADASKEFDT+5~, L3+4!, L3+7, L3+8, L3+9, L3+10, EDASKEFDT+7~, L4+4!, L4+7
L4+8, L4+9, L4+10, SAVREC+5~
Y(0 L3+8*, L3+9, L4+8*, L4+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All