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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PRPFBAL

Package: Integrated Patient Fund

Routine: PRPFBAL


Information

PRPFBAL ;ALTOONA/CTB-PATIENT LOOKUP AND COMPUTE BALANCE ;08/29/02

Source Information

Source file <PRPFBAL.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;3.0;PATIENT FUNDS;**6,8,13,14**;JUNE 1, 1989
EN
OUT
EN1
A
B
GI ;PRINT GENERAL INFORMATION REMARKS
T2
T3
DEF ;WRITES DEFERRAL INFORMATION
HILO
C

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: A+1
Function Call: WRITE
  • Prompt: !,@PFHI,$P(DFN(0,0),"^"),@PFLO,?40
  • Line Location: A+1
Function Call: WRITE
  • Prompt: "SSN: ",@PFHI
  • Line Location: A+1
Function Call: WRITE
  • Prompt: $E(SSN,1,3),@PFLO,"-",@PFHI,$E(SSN,4,5),@PFLO,"-",@PFHI,$E(SSN,6,9),?60,@PFLO,"CLAIM #: ",@PFHI,$S($D(^DPT(+DFN(0),.31)):$P(^(.31),"^",3),1:""),@PFLO
  • Line Location: A+2
Function Call: WRITE
  • Prompt: @PFHI
  • Line Location: A+3
Function Call: WRITE
  • Prompt: @PFLO,!
  • Line Location: A+3
Function Call: WRITE
  • Prompt: ?18,"* * * ACCOUNT TYPE IS ",@PFHI,TYPE,@PFLO," * * *",!,"WARD: ",@PFHI,DFN(.1),@PFLO
  • Line Location: A+4
Function Call: WRITE
  • Prompt: !,"STATION NAME: ",@PFHI,$$GET1^DIQ(4,(^PRPF(470,DFN,12)),.01),@PFLO
  • Line Location: A+5
Function Call: WRITE
  • Prompt: !,"STATION NAME:"
  • Line Location: A+6
Function Call: WRITE
  • Prompt: !,"AUTH WD/MONTH: ",@PFHI
  • Line Location: A+9
Function Call: WRITE
  • Prompt: X,@PFLO,?39,"AUTH WD/WEEK: ",@PFHI
  • Line Location: A+9
Function Call: WRITE
  • Prompt: X,@PFLO,?39,"AUTH WD/WEEK: ",@PFHI
  • Line Location: A+9
Function Call: WRITE
  • Prompt: X,@PFLO,?39,"AUTH WD/WEEK: ",@PFHI
  • Line Location: A+9
Function Call: WRITE
  • Prompt: X,@PFLO,?39,"AUTH WD/WEEK: ",@PFHI
  • Line Location: A+9
Function Call: WRITE
  • Prompt: @PFLO
  • Line Location: B+0
Function Call: WRITE
  • Prompt: !,XI
  • Line Location: B+0
Function Call: WRITE
  • Prompt: !,?10," TOTAL BALANCE: ",@PFHI
  • Line Location: B+1
Function Call: WRITE
  • Prompt: X,@PFLO,?45,"PRIVATE SOURCE: ",@PFHI
  • Line Location: B+1
Function Call: WRITE
  • Prompt: X,@PFLO,?45,"PRIVATE SOURCE: ",@PFHI
  • Line Location: B+1
Function Call: WRITE
  • Prompt: X,@PFLO,?45,"PRIVATE SOURCE: ",@PFHI
  • Line Location: B+1
Function Call: WRITE
  • Prompt: "GRATUITOUS: ",@PFHI
  • Line Location: B+2
Function Call: WRITE
  • Prompt: X,@PFLO,!!,"AVAILABLE FOR WITHDRAWAL: "
  • Line Location: B+2
Function Call: WRITE
  • Prompt: X,@PFLO,!!,"AVAILABLE FOR WITHDRAWAL: "
  • Line Location: B+2
Function Call: WRITE
  • Prompt: X,@PFLO,!!,"AVAILABLE FOR WITHDRAWAL: "
  • Line Location: B+2
Function Call: WRITE
  • Prompt: XI
  • Line Location: B+3
Function Call: WRITE
  • Prompt: !,"DEFERRAL INFORMATION:",?30,"TRANSACTION",?50,"DEF DATE",?69,"AMOUNT"
  • Line Location: B+4
Function Call: WRITE
  • Prompt: !,"GENERAL REMARKS/INFORMATION:"
  • Line Location: T2+0
Function Call: WRITE
  • Prompt: @PFHI
  • Line Location: T2+2
Function Call: WRITE
  • Prompt: @PFNORM
  • Line Location: T2+4
Function Call: WRITE
  • Prompt: !,"SPECIAL REMARKS:"
  • Line Location: T3+0
Function Call: WRITE
  • Prompt: @PFHI
  • Line Location: T3+1
Function Call: WRITE
  • Prompt: !,"The information contained in this report is protected by the Privacy Act of 1974"
  • Line Location: T3+3
Function Call: WRITE
  • Prompt: @PFNORM
  • Line Location: T3+4
Function Call: WRITE
  • Prompt: !,?35,@PFHI,$P(PRPF(1),"^"),?49
  • Line Location: DEF+1
Function Call: WRITE
  • Prompt: Y,?64
  • Line Location: DEF+1
Function Call: WRITE
  • Prompt: Y,?64
  • Line Location: DEF+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call