Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls