Routine: DGPT601

Package	Total	Call Graph
Registration	5	$$ACTIVE^DGACT $$FMDT^DGPT101 ^DGPT60PR WRTERR^DGPTAE CHECK^DGPTAE02
Kernel	1	($$FMADD,$$FMDIFF)^XLFDT
VA FileMan	1	(,DD)^%DT

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Process 601 transmission
SET	;parse data string and set variables
DATE	;date/time of procedure ; DGPTDDS - discharge DT ; DGPTDTS - admission DT ; DGPTPDTS - procedure DT
TSPEC	;treating specialty
DIAL	;dialysis
OPS	;operation codes
OPDUP	;--check for duplicate procedure codes
GOOD	;
EXIT	;
ERR	;
DIALE	;dialysis type
SET9	;record layout before icd10 turned on
SET10	;record layout after icd10 turned on

External References

Name	Field # of Occurrence
^%DT	DATE+5
DD^%DT	DATE+6
$$ACTIVE^DGACT	TSPEC+12
$$FMDT^DGPT101	DATE+5
^DGPT60PR	OPS+1
WRTERR^DGPTAE	ERR+1
CHECK^DGPTAE02	TSPEC+4
$$FMADD^XLFDT	DATE+9
$$FMDIFF^XLFDT	DATE+8, DATE+9

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42.4 - [#42.4]	TSPEC+9
^TMP("AEDIT"	EN+3

Label References

Name	Line Occurrences
DIAL	TSPEC+4
ERR	DATE+5, DATE+7, DATE+8, DATE+9, TSPEC+2, TSPEC+4, TSPEC+12, DIAL+4, DIAL+5, OPDUP+1 , DIALE+1, DIALE+2
EXIT	DATE+5, DATE+7, DATE+8, DATE+9, TSPEC+2, TSPEC+4, TSPEC+12, DIAL+2, OPS+1, OPDUP+1 , DIALE+1, DIALE+2
SET10	SET+2
SET9	SET+1
TSPEC	DATE+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	DATE+5*
DGLOOP	DIAL+1~, DIAL+3*
>> DGPTDDS	DATE+8
>> DGPTDTS	DATE+9
>> DGPTEDFL	EN+3*, DATE+5, DATE+7, DATE+8, DATE+9, TSPEC+2, TSPEC+4, TSPEC+12, DIAL+2, OPS+1 , DIALE+1, DIALE+2
DGPTERC	DATE+5, DATE+7, DATE+8, DATE+9, TSPEC+2, TSPEC+3, TSPEC+4, TSPEC+12, DIAL+4, DIAL+5 , OPS+1, OPDUP+1, EXIT+1!, ERR+1, DIALE+1, DIALE+2
>> DGPTERP	EN+3*
>> DGPTFMT	SET+1, SET+2, DIAL+3, OPDUP+1
DGPTL3	EXIT+1!
DGPTL4	EXIT+1!
DGPTOP	EXIT+1!
DGPTOP1	EXIT+1!
DGPTP1	EXIT+1!
DGPTP2	EXIT+1!
DGPTPAR	EN+2!, OPDUP+9!
DGPTPAR1	EXIT+1!
DGPTPC1	EXIT+2!, SET9+5, SET10+5
DGPTPC10	EXIT+2!, SET10+14*
DGPTPC11	EXIT+2!, SET10+15*
DGPTPC12	EXIT+2!, SET10+16*
DGPTPC13	EXIT+2!, SET10+17*
DGPTPC14	EXIT+2!, SET10+18*
DGPTPC15	EXIT+2!, SET10+19*
DGPTPC16	EXIT+3!, SET10+20*
DGPTPC17	EXIT+3!, SET10+21*
DGPTPC18	EXIT+3!, SET10+22*
DGPTPC19	EXIT+3!, SET10+23*
DGPTPC2	EXIT+2!, SET9+6, SET10+6
DGPTPC20	EXIT+3!, SET10+24*
DGPTPC21	EXIT+3!, SET10+25*
DGPTPC22	EXIT+3!, SET10+26*
DGPTPC23	EXIT+3!, SET10+27*
DGPTPC24	EXIT+3!, SET10+28*
DGPTPC25	EXIT+3!, SET10+29*
DGPTPC3	EXIT+2!, SET9+7, SET10+7
DGPTPC4	EXIT+2!, SET9+8, SET10+8
DGPTPC5	EXIT+2!, SET9+9, SET10+9
DGPTPC6	EXIT+2!, SET10+10*
DGPTPC7	EXIT+2!, SET10+11*
DGPTPC8	EXIT+2!, SET10+12*
DGPTPC9	EXIT+2!, SET10+13*
DGPTPCODE	DIAL+1~, DIAL+3*, DIAL+4, DIAL+5
DGPTPDT	DATE+5, DATE+6, DATE+7, EXIT+4!, SET9+1, SET10+1*
DGPTPDTS	DATE+5*, DATE+8, DATE+9, TSPEC+12, EXIT+4!
DGPTPDY	OPDUP+1, EXIT+4!, DIALE+1, SET9+3, SET10+3
DGPTPFL	EXIT+4!
DGPTPNT	DIAL+2, OPDUP+1, EXIT+4!, DIALE+2, SET9+4, SET10+4
DGPTPP	EXIT+4!
DGPTPRA2	EXIT+4!
DGPTPRA3	EXIT+4!
DGPTPSC	TSPEC+2, TSPEC+3, TSPEC+6, TSPEC+9, EXIT+4!, SET9+2, SET10+2*
DGPTPSC1	TSPEC+1~, TSPEC+9*, TSPEC+12
>> DGPTSER(	TSPEC+12*
>> DGPTSP1	TSPEC+3*
>> DGPTSP2	TSPEC+3*
DGPTSTR	EN+3, EN+4, OPDUP+1, EXIT+4!, SET9+1, SET9+2, SET9+3, SET9+4, SET9+5, SET9+6 , SET9+7, SET9+8, SET9+9, SET10+1, SET10+2, SET10+3, SET10+4, SET10+5, SET10+6, SET10+7 , SET10+8, SET10+9, SET10+10, SET10+11, SET10+12, SET10+13, SET10+14, SET10+15, SET10+16, SET10+17 , SET10+18, SET10+19, SET10+20, SET10+21, SET10+22, SET10+23, SET10+24, SET10+25, SET10+26, SET10+27 , SET10+28, SET10+29
DGPTXX	EXIT+4!
ERROR	EN+1~, GOOD+1, ERR+2*
>> NODE	EN+3, ERR+1
>> SEQ	EN+3, ERR+1
X	DATE+5*, EXIT+5!
X1	EXIT+5!
X2	EXIT+5!
Y	DATE+5, DATE+6, EXIT+5!

Customize PDF page

Package: Registration

Routine: DGPT601

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: