Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DG3PR2

Package: Registration

Routine: DG3PR2


Information

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

Source Information

Source file <DG3PR2.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Registration 2 ^DGPMLOS  ($$GETLABEL,EFFDATE)^DGPTIC10  
VA FileMan 2 ^%DTC  ^DIR  
DRG Grouper 1 $$ICDDATA^ICDXCODE  
Integrated Billing 1 $$INSUR^IBBAPI  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Integrated Billing 1 IB20PT89  
Registration 1 DG3PR1  

Entry Points

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

External References

Name Field # of Occurrence
^%DTC DTC
^DGPMLOS DG3PR2+29
$$GETLABEL^DGPTIC10 DG3PR2+24, DG3PR2+33
EFFDATE^DGPTIC10 DG3PR2+19
^DIR HEAD
$$INSUR^IBBAPI DG3PR2+7
$$ICDDATA^ICDXCODE DG3PR2+30, DIAG+2, OP+2
$$FMTE^XLFDT INS2+3

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+20
Function Call: WRITE
  • Prompt: !!,"DATE",?22,"LOS BEDSECTION",?39,"LOS",?45,"DIAGNOSES",$$GETLABEL^DGPTIC10(EFFDATE,"D"),!,"----",?22,"---------------",?39,"---- --------------------"
  • Line Location: DG3PR2+24
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+27
Function Call: WRITE
  • Prompt: !?39,"---- ----------",!?26,"TOTAL LOS:",?39,$J(+$P(X,"^",5),4)
  • Line Location: DG3PR2+29
Function Call: WRITE
  • Prompt: ?45,$S(+DXD>0:"DXLS: "_$P(DXD,"^",2)_" ("_$P(DXD,"^",4)_")",1:"")
  • Line Location: DG3PR2+31
Function Call: WRITE
  • Prompt: !!,"SURGERY DATE",?22,"SPECIALTY",?45,"OP CODES",$$GETLABEL^DGPTIC10(EFFDATE,"P"),!,"------------",?22,"----------",?44,"--------------------"
  • Line Location: DG3PR2+33
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+34
Function Call: WRITE
  • Prompt: !
  • Condition for execution: M
  • Line Location: DIAG+3
Function Call: WRITE
  • Prompt: ?45,$S(+DXD>0:$P(DXD,"^",2)_" ("_$P(DXD,"^",4)_")",1:"")
  • Line Location: DIAG+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: M
  • Line Location: OP+3
Function Call: WRITE
  • Prompt: ?45,$S(+DXD>0:$P(DXD,"^",2)_" ("_$P(DXD,"^",5)_")",1:"")
  • Line Location: OP+3
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: ?73,$S(X="P":"VETERAN",X="S":"SPOUSE",X="O":"OTHER",1:"UNKNOWN")
  • Line Location: INS2+4
Routine Call
  • DIR
  • Line Location:
    • HEAD

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
DIAG DG3PR2+27
DTC LOL, LOL+1
HEAD DG3PR2+22, DG3PR2+27, DG3PR2+32
INS2 DG3PR2+12
LOL DG3PR2+27
OP DG3PR2+34

Naked Globals

Name Field # of Occurrence
^( DG3PR2+21, DG3PR2+27, DG3PR2+34, LOL+1
^(0 DG3PR2+17, DG3PR2+27, DG3PR2+34, LOL+1
^(70 DG3PR2+30

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> C LOL+1*
>> DFN DG3PR2+7, LOL+1, HEAD+2
>> DGAD DG3PR2+16, DG3PR2+17, DG3PR2+18, DG3PR2+27
>> DGCA DG3PR2+28, LOL+1
DGDAT DG3PR2+25~, DG3PR2+26*, DG3PR2+27*, DG3PR2+34*
DGDATA DG3PR2+5~, DG3PR2+7
>> DGDC DG3PR2+16
>> DGFL DG3PR2+22, DG3PR2+23, DG3PR2+27, DG3PR2+28, DG3PR2+32, HEAD*
DGIBINS DG3PR2+8*, DG3PR2+15!
DGIBINS( DG3PR2+9, DG3PR2+10, DG3PR2+11, DG3PR2+12, INS2+2, INS2+3, INS2+4
DGINS DG3PR2+2*, DG3PR2+12*, DG3PR2+14, DG3PR2+15!, INS2+2*
>> DGLOL DG3PR2+27, LOL*, LOL+1*
>> DGNOW HEAD+1
>> DGPMIFN DG3PR2+28*
>> DGPR DG3PR2+27*, LOL, LOL+1
>> DGPTF DG3PR2+18*, DG3PR2+19, DG3PR2+20, DG3PR2+21, DG3PR2+22, DG3PR2+26, DG3PR2+30
DGX DG3PR2+5~, DG3PR2+8*
>> DIR(0 HEAD*
DXD DG3PR2+25~, DG3PR2+30*, DG3PR2+31, DIAG+2*, DIAG+3, OP+2*, OP+3
EFFDATE DG3PR2+6~, DG3PR2+24, DG3PR2+30, DG3PR2+33, DIAG+2, OP+2
I DG3PR2+9*, DG3PR2+10, DG3PR2+11, DG3PR2+12, DG3PR2+21*, DG3PR2+22*, DG3PR2+27*, DG3PR2+34*, LOL, LOL+1
, HEAD~, INS2+2, INS2+3, INS2+4, DTC~
IMPDATE DG3PR2+6~
IOF HEAD+1
IOSL DG3PR2+22, DG3PR2+27, DG3PR2+32
IOST HEAD
J DG3PR2+21*, DG3PR2+22*, DG3PR2+27*, DG3PR2+34*, DIAG+1, OP+1, HEAD~, DTC~
K DIAG+1*, OP+1*, LOL+1*, HEAD~, DTC~
L DIAG+1*, DIAG+2, OP+1*, OP+2, HEAD~, DTC~
M DIAG+1*, DIAG+3*, OP+1*, OP+3*, HEAD~, DTC~
U DG3PR2+12, INS2+2, INS2+4
X DG3PR2+29, LOL, LOL+1, INS2+1~, INS2+3*, INS2+4*
>> X1 LOL*, LOL+1*
>> X2 LOL*, LOL+1*
Y DG3PR2+16*, DG3PR2+27*, DG3PR2+34*, HEAD~, DTC~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All