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: 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>

Entry Points

Name Comments DBIA/ICR reference
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+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
Info |  Source |  Entry Points |  Interaction Calls