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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IB20PT8A

Package: Integrated Billing

Routine: IB20PT8A


Information

IB20PT8A ;ALB/CPM - EXPORT ROUTINE 'DG3PR2' ; 24-FEB-94

Source Information

Source file <IB20PT8A.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 2 ^%DTC  ^DIR  
Integrated Billing 1 ALL^IBCNS1  
Registration 1 ^DGPMLOS  

Entry Points

Name Comments DBIA/ICR reference
DG3PR2 ;ALB/MIR - CONTINUATION OF THE THIRD PARTY REIMBURSEMENT ; NOV 21 90@8
DIAG
OP
LOL
HEAD
INS2 ;insurance data continued
DTC

External References

Name Field # of Occurrence
^%DTC DTC
^DGPMLOS DG3PR2+14
^DIR HEAD
ALL^IBCNS1 DG3PR2+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+3
Function Call: WRITE
  • Prompt: !?22,"* - Insurer may not reimburse!"
  • Line Location: DG3PR2+4
Function Call: WRITE
  • Prompt: !!,"Admitted: ",Y,?40,"Discharged: "
  • Line Location: DG3PR2+6
Function Call: WRITE
  • Prompt: Y
  • Line Location: DG3PR2+6
Function Call: WRITE
  • Prompt: !,"Transferred in From ",$S($D(^DIC(4,+$P(DGAD,"^",5),0)):$P(^(0),"^",1),1:"")
  • Line Location: DG3PR2+7
Function Call: WRITE
  • Prompt: !,"No PTF Record Exists"
  • Line Location: DG3PR2+8
Function Call: WRITE
  • Prompt: !,"PTF Record not closed",!
  • Line Location: DG3PR2+9
Function Call: WRITE
  • Prompt: !!,"DATE",?22,"LOS BEDSECTION",?39,"LOS",?45,"DIAGNOSES",!,"----",?22,"---------------",?39,"---- ---------"
  • Line Location: DG3PR2+12
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+13
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+14
Function Call: WRITE
  • Prompt: !!,"SURGERY DATE",?22,"SPECIALTY",?45,"OP CODES",!,"------------",?22,"----------",?44,"--------"
  • Line Location: DG3PR2+15
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+16
Function Call: WRITE
  • Prompt: !
  • Condition for execution: M
  • Line Location: DIAG+0
Function Call: WRITE
  • Prompt: ?45,$S($D(^ICD9(+L,0)):$P(^(0),"^",1)_" ("_$P(^(0),"^",3)_")",1:"")
  • Line Location: DIAG+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: M
  • Line Location: OP+0
Function Call: WRITE
  • Prompt: ?45,$S($D(^ICD0(+L,0)):$P(^(0),"^",1)_" ("_$P(^(0),"^",4)_")",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+2
Function Call: WRITE
  • Prompt: ?73,$S(X="v":"VETERAN",X="s":"SPOUSE",X="o":"OTHER",1:"UNKNOWN")
  • Line Location: INS2+2
Routine Call
  • DIR
  • Line Location:
    • HEAD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DG3PR2+6, DG3PR2+13, DG3PR2+16
^DGP(45.84 - [#45.84] DG3PR2+9
^DGPM - [#405] LOL+1
^DGPM("APCA" LOL+1
^DGPT - [#45] DG3PR2+8, DG3PR2+10, DG3PR2+11, DG3PR2+14
^DIC(36 - [#36] DG3PR2+3
^DIC(4 - [#4] DG3PR2+7
^DIC(42.4 - [#42.4] DG3PR2+13
^DIC(45.3 - [#45.3] DG3PR2+16
^DPT - [#2] HEAD+2
^ICD0 - [#80.1] OP
^ICD9 - [#80] DG3PR2+14, DIAG
^UTILITY("DG" DG3PR2+10!*, DG3PR2+11*, DG3PR2+12, DG3PR2+13, DG3PR2+15, DG3PR2+16

Label References

Name Line Occurrences
DIAG DG3PR2+13
DTC LOL, LOL+1
HEAD DG3PR2+11, DG3PR2+13, DG3PR2+15
INS2 DG3PR2+3
LOL DG3PR2+13
OP DG3PR2+16

Naked Globals

Name Field # of Occurrence
^( DG3PR2+10, DG3PR2+13, DG3PR2+16, LOL+1
^(0 DG3PR2+7, DG3PR2+13, DG3PR2+14, DG3PR2+16, DIAG, OP, LOL+1
^(70 DG3PR2+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> C LOL+1*
>> DFN DG3PR2+3, LOL+1, HEAD+2
>> DGAD DG3PR2+6, DG3PR2+7, DG3PR2+8, DG3PR2+13
>> DGCA DG3PR2+14, LOL+1
>> DGDC DG3PR2+6
>> DGFL DG3PR2+11, DG3PR2+12, DG3PR2+13, DG3PR2+14, DG3PR2+15, HEAD*
DGIBINS DG3PR2+5!
DGIBINS( DG3PR2+3
DGINS DG3PR2+2*, DG3PR2+3*, DG3PR2+4, DG3PR2+5!, INS2+1*
>> DGLOL DG3PR2+13, LOL*, LOL+1*
>> DGNOW HEAD+1
>> DGPMIFN DG3PR2+14*
>> DGPR DG3PR2+13*, LOL, LOL+1
>> DGPTF DG3PR2+8*, DG3PR2+9, DG3PR2+10, DG3PR2+11, DG3PR2+14
>> DIR(0 HEAD*
I DG3PR2+3*, DG3PR2+10*, DG3PR2+11*, DG3PR2+13*, DG3PR2+16*, LOL, LOL+1, HEAD~, DTC~
IOF HEAD+1
IOSL DG3PR2+11, DG3PR2+13, DG3PR2+15
IOST HEAD
J DG3PR2+3*, DG3PR2+10*, DG3PR2+11*, DG3PR2+13*, DG3PR2+16*, DIAG, OP, HEAD~, INS2+2, DTC~
K DIAG*, OP*, LOL+1*, HEAD~, DTC~
L DIAG*, OP*, HEAD~, DTC~
M DIAG*, OP*, HEAD~, DTC~
>> X DG3PR2+3*, DG3PR2+14, LOL, LOL+1, INS2+1, INS2+2*
>> X1 LOL*, LOL+1*
>> X2 LOL*, LOL+1*
Y DG3PR2+6*, DG3PR2+13*, DG3PR2+16*, HEAD~, DTC~
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All