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

Package: Integrated Patient Fund

Routine: PRPFMUL


Information

PRPFMUL ;ALTOONA/CTB MULTIPLE TRANSACTION POSTING ;11/22/96 4:40 PM

Source Information

Source file <PRPFMUL.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;3.0;PATIENT FUNDS;**6**;JUNE 1, 1989
PAT
B
CLEAR
LIST ;LIST SELECTION FROM MULTIPLES
LKUP
OUT ;PRIMARY EXIT POINT
OUT1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will accept entry of transactions in which the basic information",!,"is the same for each patient.",!
  • Line Location: V+1
Function Call: WRITE
  • Prompt: !,"When entering the following information, REMEMBER that this information",!,"WILL be used for all patients until you exit from this option.",!
  • Line Location: V+2
Function Call: WRITE
  • Prompt: !,"ACCOUNT TYPE: * * * ",TYPE," * * "
  • Line Location: PAT+5
Function Call: WRITE
  • Prompt: !,"BALANCE INFORMATION:",?40,"RESTRICTION AVAILABILITY: ",!
  • Line Location: PAT+7
Function Call: WRITE
  • Prompt: !,"TOTAL BALANCE: $",$J(PRBAL("SB"),9,2)
  • Line Location: PAT+8
Function Call: WRITE
  • Prompt: ?40,"MONTH: $",$J($P(DFN(1),"^",7)-$P(DFN(1),"^",11),9,2)
  • Line Location: PAT+8
Function Call: WRITE
  • Prompt: !?5,"DEFERRED: $",$J(PRBAL("DEF"),9,2)
  • Line Location: PAT+9
Function Call: WRITE
  • Prompt: ?41,"WEEK: $",$J(($P(DFN(1),"^",8)-$P(DFN(1),"^",12)),9,2)
  • Line Location: PAT+9
Function Call: WRITE
  • Prompt: !?4,"AVAILABLE: $",$J(PRBAL("SB")-PRBAL("DEF"),9,2),!
  • Line Location: PAT+10
Function Call: READ
  • Variable: X
  • Timeout: 3
  • Line Location: B+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: @PFHI,?15,"MULTIPLE TRANSACTION POSTING",!!,@PFLO,"REFERENCE: ",@PFHI,PRPFT(7),!,@PFLO,"DEPOSIT/WITHDRAWAL: ",@PFHI,$S(PRPFT(8)="D":"DEPOSIT",1:"WITHDRAWAL")
  • Line Location: LIST+5
Function Call: WRITE
  • Prompt: !,@PFLO,"CASH/CHECK/OTHER: ",@PFHI,$S(PRPFT(9)=1:"CASH",PRPFT(9)=2:"CHECK",1:"OTHER")
  • Line Location: LIST+6
Function Call: WRITE
  • Prompt: !,@PFLO,"FORM: ",@PFHI,$P(^PRPF(470.2,PRPFT(11),0),"^"),!,@PFLO,"SOURCE: ",@PFHI,$S(PRPFT(10)="G":"GRATUITOUS",1:"PRIVATE SOURCE")
  • Line Location: LIST+7
Function Call: WRITE
  • Prompt: !,@PFLO,"DATE: "
  • Line Location: LIST+8
Function Call: WRITE
  • Prompt: @PFHI,Y,!,@PFLO,"REMARKS: ",@PFHI,PRPFT(16),!
  • Line Location: LIST+8
Function Call: WRITE
  • Prompt: @PFHI,Y,!,@PFLO,"REMARKS: ",@PFHI,PRPFT(16),!
  • Line Location: LIST+8
Function Call: WRITE
  • Prompt: @PFHI,Y,!,@PFLO,"REMARKS: ",@PFHI,PRPFT(16),!
  • Line Location: LIST+8
Function Call: WRITE
  • Prompt: @PFNORM
  • Line Location: LIST+9
Function Call: READ
  • Variable: X
  • Timeout: 3
  • Line Location: LKUP+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRPFT(470.5 - [#470.5] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call