Routine: DGPTR1

Package	Total	Call Graph
Registration	1	$$FORIEN^DGADDUTL

Package	Total	Caller Graph
Registration	6	DGPTC1 DGPTFTR DGPTR0 DGPTR2 DGPTR3 DGPTR4

Entry Points

Name	Comments	DBIA/ICR reference
D70
D10
LOG	;place DGLOGIC in array inorder to add more logic tests ;DG5.3664
ERR
701	;;15;;2;1^1;;3;2^4;;1;3^4;;1;4^12;;1;5^4;;3;5^4;;1;6^4;;4;7^4;;1;8^5;;3;9^5;;1;10^5;;1;11^13;12;2;12^13;13;12;13^5;;1;14^5;;1;15^3;;16
50	;;1;1;10;1^1;;6;2^16;3;2;3^1;4;3;4^1;5;3;5^6;;1;6^11;7;3;7^6;;32;7^6;;9;8^14;;6;9^14;;2;10^6;;1;11^4;;1;16^4;;1;17^12;;1;18^4;;3;18^4;;1;19^4;;4;20^4;;1;21^5;;3;22^5;;1;23^5;;1;24
60	;;1;1;10;1^13;2;2;2^4;3;1;3^4;4;3;4^11;5;3;5^6;;32;5^3;;44
T70	;;1:DT OF DISP.^2:DISCH BD SEC^3:TYPE OF DIS^4:OUT TREAT^5:VA AUS^6:PL OF DIS^7:REC FAC^8:ASIH DAYS^9:NOT USED^10:C&P STAT^11:PDXLS^12:ONLY DX^13:PHY MPCR
T10	;;1:NAME^2:SOURCE OF ADM^3:TRANS FAC.^4:SOURCE OF PAY^5:POW^6:MARITAL ST^7:SEX^8:DOB^9:POS^10:VIETNAM^11:ION RADIATION^12:RESIDENCE^13:MEANS TEST^14:INCOME^15:MST^16:COMBAT VET^17:CV END DT^18:PROJ 112/SHAD^19:ERI^20:COUNTRY
LOGIC	;;X'?.N^X'?.A&(X'=" ")^X'=" "^X'?.N&(X'=" ")^X'?.A&(X'=" ")^0^X'?.N&(X'="X")^X'=" "&(X'="P")^X="E"^X="Y"^X=" "^X'="A"&(X'=" ")^(X'?.A)&(X'?.N)&(X'=" ")^(X'?.AN)&('$P(DG0,U,4))^((T1)&(X'=" "))!(('T1)&(X'?.AN)&('$P(DG0,U,4)))
D50
D53
TP40	;;1:OP CODE
T50	;;1:DT OF MVMT^2:LOSING BD SEC MPCR^3:LOSING BD SEC^4:LEAVE DAYS^5:PASS DAYS^6:SCI^7:DIAG^8:DOCTOR'S SSN^9:PHY MPCR^10:PHY SPEC^11:DISCHARGE STAT^^^^^16:LEGION^17:SUICIDE^18:DRUG^19:AXIS-IV^20:AXIS-V^21:SC^22:EXP^23:MST^24:HNC
CEN
T53	;;1:DATE OF PHYSICAL MOVEMENT^2:LOSING PHYSICAL MPCR^3:LOSING PHYSICAL SPECIALTY^4:TR SPECIALTY MPCR^5:TR SPECIALTY^6:LEAVE DAYS^7:PASS DAYS^8:DOCTOR'S SSN (NOT USED)
40	;;1;1;10;1^1;2;2;2^11;3;1;3^4;4;1;4^6;5;1;5^4;6;1;6^11;7;2;7^6;;3;7^3;7;2;7^6;;5;7^3;7;2;7^6;;5;7^3;7;2;7^6;;5;7^3;7;2;7^6;;5;7^3;7;2;7^3;;9;8^4;;1;13^3;;34;
HEAD
T701	;;1:PHY SPEC^2:%SC^3:LEGION^4:SUICIDE^5:DRUG^6:AXIS-IV^7:AXIS-V^8:SC^9:EXP^10:MST^11:HNC^12:ETHNICITY^13:RACE^14:COMBAT VET^15:PROJ 112/SHAD
L
START
70	;;1;1;10;1^13;2;2;2^1;3;1;3^4;4;1;4^4;5;1;5^6;;1;6^4;7;3;7^6;;3;7^4;8;3;8^6;9;1;9^1;10;1;10^9;11;1;11^11;11;2;11^6;;3;11^10;11;1;11^6;;1;12^15;;6;13
D40
D60
10	;;6;;12;1^2;1;1;1^5;1;1;1^1;2;1;2^2;2;1;2^4;3;3;3^6;;3;3^4;4;1;4^6;5;1;5^2;6;1;6^2;7;1;7^1;8;8;8^6;;1;9^11;9;1;9^4;10;1;10^4;10;1;11^17;11;5;12^18;11;5;12^2;12;1;13^6;;1;13^1;;6;14^2;;1;15^1;;1;16^4;;6;17^1;;1;18^5;;1;19^5;;3;20^3;;26
T40	;;1:DATE OF SURGERY^2:SURG SPEC.^3:CAT CHIEF SURGEON^4:CAT FIRST ASS^5:ANEST. TECH.^6:SOURCE OF PAY^7:OP CODE^8:DOCTOR'S SSN (NOT USED)^^^^^13:TRANSPLANT STATUS
T60	;;1:DATE OF PROCEDURE^2:LOSING BD SEC^3:DIALYSIS TYPE^4:NUMBER OF TREATMENTS^5:PROCEDURE CODE
53	;;1;;10;1^1;;6;2^13;;2;3^1;;6;4^13;;2;5^1;;3;6^1;;3;7^3;;9;8^3;;54;
DP40
P40	;;8;;1;^3;;11;^11;1;2;1^6;;3;1^3;1;2;1^6;;5;1^3;;2;1^6;;5;1^3;;2;1^6;;5;1^3;;2;1^6;;5;1^3;;2;1^3;;48

Name	Line Occurrences
Function Call: WRITE	Prompt: !,T,$S(T["H":" ",1:$E(Y,4))," " Line Location: ERR+1
Function Call: WRITE	Prompt: ?25,$P($P(ERR,U,$P(DGO,";",4)),":",2),?40,"COL.",F," VALUE: ",$S($E(Y,F)=" ":"BLANK",1:$E(Y,F)) Line Location: ERR+3

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

Name	Field # of Occurrence
^(	ERR+4*
^(70	D50+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DG0	D50
>> DG11	L
>> DGERR	ERR*
DGFILL	START+3!
DGFOR	L~*
>> DGL	L+1*
DGLOGIC	LOG+1!
DGLOGIC(	L+1, LOG+4*
>> DGO	L+1*, ERR+3, ERR+4
>> ERR	START, START+1, ERR+3, HEAD, CEN, CEN+1*
>> F	START, START+1, L+1, ERR+3, D10, D70, D50, D50+1, D50+2, D50+3* , D60, HEAD, CEN, CEN+1
>> H	L+1, D10
>> I	ERR+4*, D50+3
II	LOG+2~, LOG+4*
>> J	D50, D50+1
LOGCNT	LOG+2~, LOG+3, LOG+4
LOGI	LOG+2~, LOG+3, LOG+4
LOGX	LOG+2~, LOG+4*
>> T	START, START+1, START+2, ERR+1, ERR+2, ERR+4, HEAD, CEN*
>> T1	D50+1, D50+3
U	L, L+1, ERR+3, ERR+4, D50, LOG+4
>> W	START, START+1, L+1, D10, D70, D50, D50+1, D50+2, D50+3, D60* , HEAD, CEN, CEN+1*
>> X	L+1*
XX	LOG+2~, LOG+4*
>> Y	START, L+1, ERR+1, ERR+2, ERR+3, ERR+4, D10, D70, D50+2, D60
>> Z	L+1*

Customize PDF page

Package: Registration

Routine: DGPTR1

Information

Source Information

Call Graph

Call Graph Total: 1

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items

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

Name	Field # of Occurrence
$T(70	CEN
$T(701	START+1, CEN+1
$T(@(1)	START
$T(@(3)	START
$T(LOGIC+LOGI	LOG+4
$T(T70	CEN
$T(T701	START+1, CEN+1