Routine: DG3PR2

Information

DG3PR2 ;ALB/MIR - CONTINUATION OF THE THIRD PARTY REIMBURSEMENT ; NOV 21 90@8

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
VA Fileman	2	^%DTC ^DIR
DRG Grouper	1	($$ICDDX,$$ICDOP)^ICDCODE
Kernel	1	$$FMTE^XLFDT
Registration	1	^DGPMLOS

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Integrated Billing	1	IB20PT89
Registration	1	DG3PR1

Entry Points

Name	Comments	DBIA/ICR reference
HEAD
DTC
DIAG
LOL
INS2	;insurance data continued
OP

External References

Name	Field # of Occurrence
^%DTC	DTC
^DGPMLOS	DG3PR2+28
^DIR	HEAD
$$ICDDX^ICDCODE	DG3PR2+28, DIAG
$$ICDOP^ICDCODE	OP
$$FMTE^XLFDT	INS2+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"INSURANCE TYPE",?24,"INSURANCE #",?45,"GROUP #",?63,"EXPIRES HOLDER",!,"--------- ----",?24,"--------- -",?45,"----- -",?63,"------- ------" Line Location: DG3PR2+2
Function Call: WRITE	Prompt: !,$S($P(X,"^",2)="N":"*",1:""),$E($P(X,"^",1),1,22),?24,$P(J,"^",2),?45,$P(J,"^",3) Line Location: DG3PR2+4
Function Call: WRITE	Prompt: $G(DGIBINS(I,18)) Line Location: DG3PR2+11
Function Call: WRITE	Prompt: !?22,"* - Insurer may not reimburse!" Line Location: DG3PR2+14
Function Call: WRITE	Prompt: !!,"Admitted: ",Y,?40,"Discharged: " Line Location: DG3PR2+16
Function Call: WRITE	Prompt: Y Line Location: DG3PR2+16
Function Call: WRITE	Prompt: !,"Transferred in From ",$S($D(^DIC(4,+$P(DGAD,"^",5),0)):$P(^(0),"^",1),1:"") Line Location: DG3PR2+17
Function Call: WRITE	Prompt: !,"No PTF Record Exists" Line Location: DG3PR2+18
Function Call: WRITE	Prompt: !,"PTF Record not closed",! Line Location: DG3PR2+19
Function Call: WRITE	Prompt: !!,"DATE",?22,"LOS BEDSECTION",?39,"LOS",?45,"DIAGNOSES",!,"----",?22,"---------------",?39,"---- ---------" Line Location: DG3PR2+22
Function Call: WRITE	Prompt: !,Y,?22,$E($S($D(^DIC(42.4,+$P(J,"^",2),0)):$P(^(0),"^",1),1:""),1,16),?39,$J(DGLOL,4) Line Location: DG3PR2+25
Function Call: WRITE	Prompt: !?39,"---- ----------",!?26,"TOTAL LOS:",?39,$J(+$P(X,"^",5),4),?45,$S($D(^ICD9(+$S($D(^DGPT(DGPTF,70)):$P(^(70),"^",10),1:""),0)):"DXLS: "_$P(^(0),"^",1)_" ("_$P(^(0),"^",3)_")",1:"") Line Location: DG3PR2+26
Function Call: WRITE	Prompt: !?39,"---- ----------",!?26,"TOTAL LOS:",?39,$J(+$P(X,"^",5),4) Line Location: DG3PR2+28
Function Call: WRITE	Prompt: ?45,$S(+DXD>0:"DXLS: "_$P(DXD,"^",2)_" ("_$P(DXD,"^",4)_")",1:"") Line Location: DG3PR2+28
Function Call: WRITE	Prompt: !!,"SURGERY DATE",?22,"SPECIALTY",?45,"OP CODES",!,"------------",?22,"----------",?44,"--------" Line Location: DG3PR2+29
Function Call: WRITE	Prompt: !,Y,?22,$E($S($D(^DIC(45.3,+$P(J,"^",3),0)):$P(^(0),"^",2),1:""),1,16) Line Location: DG3PR2+30
Function Call: WRITE	Prompt: ! Condition for execution: M Line Location: DIAG+0
Function Call: WRITE	Prompt: ?45,$S(+DXD>0:$P(DXD,"^",2)_" ("_$P(DXD,"^",4)_")",1:"") Line Location: DIAG+0
Function Call: WRITE	Prompt: ! Condition for execution: M Line Location: OP+0
Function Call: WRITE	Prompt: ?45,$S(+DXD>0:$P(DXD,"^",2)_" ("_$P(DXD,"^",5)_")",1:"") Line Location: OP+0
Function Call: WRITE	Prompt: @IOF,!,"THIRD PARTY REIMBURSEMENT",?49,"PRINTED: ",DGNOW Line Location: HEAD+1
Function Call: WRITE	Prompt: !,"("_$P(^DPT(DFN,0),"^",1)_")",! Line Location: HEAD+2
Function Call: WRITE	Prompt: ?63,$E(X,4,5),"/",$E(X,6,7),"/",$E(X,2,3) Condition for execution: X]"" Line Location: INS2+4
Function Call: WRITE	Prompt: ?73,$S(X="v":"VETERAN",X="s":"SPOUSE",X="o":"OTHER",1:"UNKNOWN") Line Location: INS2+4
Function Call: WRITE	Prompt: ?73,$S(X="P":"VETERAN",X="S":"SPOUSE",X="O":"OTHER",1:"UNKNOWN") Line Location: INS2+7
Routine Call	DIR Line Location: HEAD

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DG3PR2+16, DG3PR2+25, DG3PR2+30
^DGP(45.84 - [#45.84]	DG3PR2+19
^DGPM - [#405]	LOL+1
^DGPM("APCA"	LOL+1
^DGPT - [#45]	DG3PR2+18, DG3PR2+20, DG3PR2+21, DG3PR2+24, DG3PR2+28
^DIC(4 - [#4]	DG3PR2+17
^DIC(42.4 - [#42.4]	DG3PR2+25
^DIC(45.3 - [#45.3]	DG3PR2+30
^DPT - [#2]	HEAD+2
^UTILITY("DG"	DG3PR2+20!, DG3PR2+21, DG3PR2+22, DG3PR2+25, DG3PR2+29, DG3PR2+30

Label References

Name	Line Occurrences
DIAG	DG3PR2+25
DTC	LOL, LOL+1
HEAD	DG3PR2+21, DG3PR2+25, DG3PR2+29
LOL	DG3PR2+25
OP	DG3PR2+30

Naked Globals

Name	Field # of Occurrence
^(	DG3PR2+20, DG3PR2+25, DG3PR2+30, LOL+1
^(0	DG3PR2+17, DG3PR2+25, DG3PR2+30, LOL+1
^(70	DG3PR2+28

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> C	LOL+1*
>> DFN	LOL+1, HEAD+2
>> DGAD	DG3PR2+16, DG3PR2+17, DG3PR2+18, DG3PR2+25
>> DGCA	DG3PR2+27, LOL+1
DGDAT	DG3PR2+23~, DG3PR2+24, DG3PR2+25, DG3PR2+28, DG3PR2+30*, DIAG, OP
DGDATA	DG3PR2+5~
>> DGDC	DG3PR2+16
>> DGFL	DG3PR2+21, DG3PR2+22, DG3PR2+25, DG3PR2+27, DG3PR2+29, HEAD*
>> DGIBINS(	INS2+5, INS2+6, INS2+7
>> DGINS	DG3PR2+2, INS2+5
>> DGLOL	DG3PR2+25, LOL, LOL+1
>> DGNOW	HEAD+1
>> DGPMIFN	DG3PR2+27*
>> DGPR	DG3PR2+25*, LOL, LOL+1
>> DGPTF	DG3PR2+18*, DG3PR2+19, DG3PR2+20, DG3PR2+21, DG3PR2+24, DG3PR2+28
DGX	DG3PR2+5~
>> DIR(0	HEAD*
DXD	DG3PR2+23~, DG3PR2+28, DIAG, OP*
I	DG3PR2+20, DG3PR2+21, DG3PR2+25, DG3PR2+30, LOL, LOL+1, HEAD~, INS2+5, INS2+6, INS2+7 , DTC~
IOF	HEAD+1
IOSL	DG3PR2+21, DG3PR2+25, DG3PR2+29
IOST	HEAD
J	DG3PR2+20, DG3PR2+21, DG3PR2+25, DG3PR2+30, DIAG, OP, HEAD~, DTC~
K	DIAG, OP, LOL+1*, HEAD~, DTC~
L	DIAG, OP, HEAD~, DTC~
M	DIAG, OP, HEAD~, DTC~
U	INS2+5, INS2+7
X	DG3PR2+28, LOL, LOL+1, INS2+2~, INS2+6, INS2+7
>> X1	LOL, LOL+1
>> X2	LOL, LOL+1
Y	DG3PR2+16, DG3PR2+25, DG3PR2+30*, HEAD~, DTC~

Customize PDF page

Package: Registration

Routine: DG3PR2

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: