Routine: DGRP1152A

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

Package	Total	Caller Graph
Registration	7	DGEN CCP ADD DGEN CCP DETAIL DGEN CCP EDIT DGEN CCP MENU DGEN CCP REMOVE DGRP1152U DGRPE
Kernel	1	^ORD(101

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

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

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

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

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

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

Customize PDF page

Package: Registration

Routine: DGRP1152A

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: