Routine: DGPTFTR1

Package	Total	Caller Graph
Registration	4	DGPTC1 DGPTFTR DGPTFTR0 DGPTFTR2

Entry Points

Name	Comments	DBIA/ICR reference
D70
D10
LOG
ERR
50	;;1;1^1;1^1;1^1;1^1;1^1;1^1;2^1;2^3;2^3;2^1;3^1;3^1;3^1;4^1;4^1;4^6^11;6^11;6^11;6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^3
60	;;1;1^1;1^1;1^1;1^1;1^1;1^1;2^1;2^4;3^4;4^4;4^4;4^11;5^11;5^11;5^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^6^3^3^3^3^3^3
T70	;;DATE OF DISP.^DISCH BD SEC^TYPE OF DIS^OUT TREAT^VA AUS^PLACE OF DIS^REC. FAC.^ASIH DAYS^RACE^C&P STATUS^DXLS^
DP40
LOGIC	;;X'?.N^X'?.A^X'=" "^X'?.N&(X'=" ")^X'?.A&(X'=" ")^0^X'?.N&(X'="X")^X'=" "&(X'="P")^X="E"^X="Y"^X=" "^X'="A"&(X'=" ")^(X<1!(X>7))&'$P(DG0,U,4)
D50
TP40	;;OP CODE
T50	;;DATE OF MOVEMENT^LOSING BD SEC^LEAVE DAYS^PASS DAYS^SCI^DIAGNOSES^DISCHARGE STATUS
CEN
40	;;1;1^1;1^1;1^1;1^1;1^1;1^1;2^1;2^11;3^4;4^6;5^4;6^11;7^11;7^6^6^6^3;7^3;7^6^6^6^6^6^3;7^3;7^6^6^6^6^6^3;7^3;7^6^6^6^6^6^3;7^3;7^6^6^6^6^6^3;7^3;7^3^3^3^3^3^3^
HEAD
L
START
70	;;1;1^1;1^1;1^1;1^1;1^1;1^1;2^1;2^3;2^3;2^1;3^4;4^4;5^6^4;7^4;7^4;7^6^6^6^4;8^4;8^4;8^13;9^1;10^9;11^11;11^11;11^6^6^6^10;11^6^3^3^3^3^3^3^3^3^3^3^3^3^3^3^3^3^3^3^3^3^
D40
D60
10	;;6^6^6^6^6^6^6^6^6^6^6^6^2;1^5;1^1;2^2;2^4;3^4;3^4;3^6^6^6^4;4^6;5^2;6^2;7^1;8^1;8^1;8^1;8^1;8^1;8^1;8^1;8^11;9^4;10^4;10^1;11^1;11^1;11^1;11^1;11^7;11^7;11^7;11^7;11^7;11^2;12^6^3^3^3^3
T40	;;DATE OF SURGERY^SURG SPEC.^CAT CHIEF SURGEON^CAT FIRST ASS^ANEST. TECH.^SOURCE OF PAY^OP CODE^
T60	;;DATE OF PROCEDURE^LOSING BD SEC^DIALYSIS TYPE^NUMBER OF TREATMENTS^PROCEDURE CODE
T10	;;NAME^SOURCE OF ADM^TRANS FAC.^SOURCE OF PAY^POW^MARITAL ST^SEX^DOB^COB^EXP^RESIDENCE^MEANS TEST
P40	;;8^3^3^3^3^3^3^3^3^3^3^3^11;1^11;1^6^6^6^3;1^3;1^6^6^6^6^6^3^3^6^6^6^6^6^3^3^6^6^6^6^6^3^3^6^6^6^6^6^3^3^3^3^3^3^3^3^

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,T,$S(T["H":" ",1:$E(Y,4))," " Line Location: ERR+0
Function Call: WRITE	Prompt: $E(Y,28,29),"-",$E(Y,30,31),"-",$E(Y,32,33) Condition for execution: "45"[$E(T,1) Line Location: ERR+0
Function Call: WRITE	Prompt: ?20,$P(ERR,U,$P(DGO,";",2)),?40,"COL.",F," VALUE: ",$S($E(Y,F)=" ":"BLANK",1:$E(Y,F)) Line Location: ERR+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPT - [#45]	D10+1, D50, D50+1
^UTILITY("DG"	ERR+1

Label References

Name	Line Occurrences
70	CEN
@(	START+1, L
ERR	D10+1
L	START, D10, D70, D50, D50+1, D50+2, D50+3, D60, HEAD+1, CEN
LOGIC	HEAD, LOG
T70	CEN

Naked Globals

Name	Field # of Occurrence
^(	ERR+1*
^(0	D10+1
^(70	D10+1, D50+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DG0	D50
>> DGERR	ERR*
>> DGL	L*
>> DGLOGIC	L, HEAD, LOG
>> DGO	L, ERR, ERR+1, D10+1
>> ERR	START, ERR, HEAD, CEN*
>> F	START, L, ERR, D10, D10+1, D70, D50, D50+1, D50+2, D50+3 , D60, HEAD+1, CEN*
>> H	START, L, D10, D10+1, D70, D50, D50+1, D50+2, D50+3, D60* , HEAD, HEAD+1, CEN
>> I	ERR+1*, D50+3
>> J	D10+1, D50, D50+1
>> T	START, START+1, ERR, ERR+1, HEAD, CEN*
>> T1	D50+1, D50+3
U	L, ERR, ERR+1, D50
>> W	START, L, D10, D70, D50, D50+1, D50+2, D50+3, D60, HEAD* , CEN*
>> X	L*
>> Y	START, L, ERR, ERR+1, D10, D70, D50+2, D60

Marked Items

Name	Field # of Occurrence
$T(70	CEN
$T(@(1)	START
$T(@(3)	START
$T(LOGIC	HEAD, LOG
$T(T70	CEN

Customize PDF page

Package: Registration

Routine: DGPTFTR1

Information

Source Information

Caller Graph

Caller Graph Total: 4

Entry Points

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items