Routine: DGPT401

Package	Total	Call Graph
Registration	3	$$FMDT^DGPT101 WRTERR^DGPTAE (ANES,CHIEF,FAST,FIRST,TRAN)^DGPTAE04
Kernel	1	($$FMADD,$$FMDIFF)^XLFDT
VA FileMan	1	(,DD)^%DT

Entry Points

Name	Comments	DBIA/ICR reference
EN	;called by RTE^DGPTAE (using indirection)
SET	;parse data string and set variables. different record layout for dg5.3884
DATE	;date of surgery ; DGPTDDS - discharge DT ; DGPTDTS - admission DT ; DGPTSDD - surgery DT
SPEC	;specialty
CHFS	;chief surgeon
FAST	;first assistant
ANES	;anesthesia technique
SRP	;source of payment
OPCD	;operation codes
TRANS	; Transplant status
GOOD	;
EXIT	;
ERR	;
SET9	;record layout before icd10 turned on
SET10	; record layout after icd10 turned on

External References

Name	Field # of Occurrence
^%DT	DATE+4
DD^%DT	DATE+7
$$FMDT^DGPT101	DATE+4
WRTERR^DGPTAE	ERR+1
ANES^DGPTAE04	ANES+1
CHIEF^DGPTAE04	CHFS+1
FAST^DGPTAE04	FAST+1
FIRST^DGPTAE04	OPCD+1
TRAN^DGPTAE04	TRANS+3
$$FMADD^XLFDT	DATE+6
$$FMDIFF^XLFDT	DATE+5, DATE+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("AEDIT"	EN+2

Label References

Name	Line Occurrences
ERR	DATE+4, DATE+5, DATE+6, DATE+8, SPEC+1, CHFS+1, FAST+1, ANES+1, SRP+2, SRP+6 , TRANS+3
EXIT	DATE+4, DATE+5, DATE+6, DATE+8, SPEC+1, CHFS+1, FAST+1, ANES+1, SRP+2, SRP+6 , OPCD+1, TRANS+3
GOOD	TRANS+2
OPCD	SRP+4
SET10	SET+2
SET9	SET+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DATE+4*!
DGPT40PT	EXIT+1!, SET9+13*
>> DGPTDDS	DATE+5, DATE+9, TRANS+2
>> DGPTDTS	DATE+6, DATE+9
>> DGPTEDFL	EN+2*, DATE+4, DATE+5, DATE+6, DATE+8, SPEC+1, CHFS+1, FAST+1, ANES+1, SRP+2 , SRP+6, OPCD+1, TRANS+3
>> DGPTERC	EN+2, DATE+4, DATE+5, DATE+6, DATE+8, DATE+9, SPEC+1, CHFS+1, FAST+1, ANES+1 , SRP+2, SRP+5, OPCD+1, TRANS+3, ERR+1
>> DGPTFMT	SET+1, SET+2, TRANS+1
DGPTSAT	EXIT+1!, SET9+5, SET10+5
DGPTSCS	EXIT+1!, SET9+3, SET10+3
DGPTSDD	DATE+4*, DATE+5, DATE+6, DATE+9, EXIT+1!
DGPTSDT	DATE+4, DATE+7, DATE+8, EXIT+1!, SET9+1, SET10+1
DGPTSFA	EXIT+1!, SET9+4, SET10+4
DGPTSO1	EXIT+2!, SET9+7, SET10+7
DGPTSO10	EXIT+2!, SET10+16*
DGPTSO11	EXIT+3!, SET10+17*
DGPTSO12	EXIT+3!, SET10+18*
DGPTSO13	EXIT+3!, SET10+19*
DGPTSO14	EXIT+3!, SET10+20*
DGPTSO15	EXIT+3!, SET10+21*
DGPTSO16	EXIT+3!, SET10+22*
DGPTSO17	EXIT+3!, SET10+23*
DGPTSO18	EXIT+3!, SET10+24*
DGPTSO19	EXIT+3!, SET10+25*
DGPTSO2	EXIT+2!, SET9+8, SET10+8
DGPTSO20	EXIT+3!, SET10+26*
DGPTSO21	EXIT+4!, SET10+27*
DGPTSO22	EXIT+4!, SET10+28*
DGPTSO23	EXIT+4!, SET10+29*
DGPTSO24	EXIT+4!, SET10+30*
DGPTSO25	EXIT+4!, SET10+31*
DGPTSO3	EXIT+2!, SET9+9, SET10+9
DGPTSO4	EXIT+2!, SET9+10, SET10+10
DGPTSO5	EXIT+2!, SET9+11, SET10+11
DGPTSO6	EXIT+2!, SET10+12*
DGPTSO7	EXIT+2!, SET10+13*
DGPTSO8	EXIT+2!, SET10+14*
DGPTSO9	EXIT+2!, SET10+15*
DGPTSSC	SPEC+1, EXIT+1!, SET9+2, SET10+2
DGPTSSP	SRP+2, SRP+5, EXIT+1!, SET9+6, SET10+6
DGPTSTR	EN+2, EN+3, DATE+4, EXIT+1!, SET9+1, SET9+2, SET9+3, SET9+4, SET9+5, SET9+6 , SET9+7, SET9+8, SET9+9, SET9+10, SET9+11, SET9+12, SET9+13, 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, SET10+30, SET10+31
>> DGPTSTTY	SRP+3, SRP+5
DGPTXX	EXIT+1!, SET9+12*
ERROR	EN+1~, GOOD+1, ERR+2*
FLAG	SRP+1~, SRP+3, SRP+4, SRP+5, SRP+6
I	SRP+1~, SRP+3, SRP+5
>> NODE	EN+2, ERR+1
>> SEQ	EN+2, ERR+1
U	SRP+3, SRP+5
>> X	DATE+4*
>> Y	DATE+4, DATE+7

Customize PDF page

Package: Registration

Routine: DGPT401

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: