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

Package: Integrated Patient Fund

Routine: PRPFDMT


Information

PRPFDMT ;ALTOONA/CTB DISPLAY MASTER TRANSACTION ;11/22/96 4:36 PM

Source Information

Source file <PRPFDMT.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;3.0;PATIENT FUNDS;**6**;JUNE 1, 1989
A
INFO

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: A+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y>1
  • Line Location: INFO+1
Function Call: WRITE
  • Prompt: @PFHI,"Review Individual Master Transaction ",@PFLO,!
  • Line Location: INFO+1
Function Call: WRITE
  • Prompt: !,@PFLO,"Transaction ID: ",@PFHI,$P(MADA(0),"^"),?40
  • Line Location: INFO+2
Function Call: WRITE
  • Prompt: @PFLO,"Patient Name: ",@PFHI,$S($D(^DPT(DFN,0)):$P(^(0),"^"),1:"UNKNOWN"),@PFLO,!?40,"Patient Transaction : ",@PFHI,$P(MADA(0),"^",3)
  • Line Location: INFO+2
Function Call: WRITE
  • Prompt: !,@PFLO,"Transaction Date: "
  • Line Location: INFO+3
Function Call: WRITE
  • Prompt: @PFHI,Y
  • Line Location: INFO+3
Function Call: WRITE
  • Prompt: ?40,@PFLO,"Date Entered: "
  • Line Location: INFO+4
Function Call: WRITE
  • Prompt: @PFHI,Y
  • Line Location: INFO+4
Function Call: WRITE
  • Prompt: !,@PFLO,"Reference: ",@PFHI,$P(MADA(0),"^",7),?40,@PFLO,"Dep/With: ",@PFHI
  • Line Location: INFO+5
Function Call: WRITE
  • Prompt: Y
  • Line Location: INFO+5
Function Call: WRITE
  • Prompt: @PFLO,!,"Source: "
  • Line Location: INFO+6
Function Call: WRITE
  • Prompt: @PFHI,X,@PFLO,?40,"Form: "
  • Line Location: INFO+6
Function Call: WRITE
  • Prompt: @PFHI,X,@PFLO,?40,"Form: "
  • Line Location: INFO+6
Function Call: WRITE
  • Prompt: !,@PFLO,"Amount: ",@PFHI
  • Line Location: INFO+7
Function Call: WRITE
  • Prompt: "$ ",$J(Y,0,2),?40,@PFLO,"CA/CK/OTH: "
  • Line Location: INFO+7
Function Call: WRITE
  • Prompt: "$ ",$J(Y,0,2),?40,@PFLO,"CA/CK/OTH: "
  • Line Location: INFO+7
Function Call: WRITE
  • Prompt: !,@PFLO,"Private Source: "
  • Line Location: INFO+8
Function Call: WRITE
  • Prompt: @PFHI,"$ ",$J(Y,0,2),@PFLO,?40,"Gratuitous: "
  • Line Location: INFO+8
Function Call: WRITE
  • Prompt: @PFHI,"$ ",$J(Y,0,2),@PFLO,?40,"Gratuitous: "
  • Line Location: INFO+8
Function Call: WRITE
  • Prompt: !,@PFLO,"Clerk: ",@PFHI
  • Line Location: INFO+9
Function Call: WRITE
  • Prompt: Y,?40,@PFLO,"Remarks: ",@PFHI,$P(MADA(0),"^",16),!,@PFLO,"Deferral Date: "
  • Line Location: INFO+9
Function Call: WRITE
  • Prompt: Y,?40,@PFLO,"Remarks: ",@PFHI,$P(MADA(0),"^",16),!,@PFLO,"Deferral Date: "
  • Line Location: INFO+9
Function Call: READ
  • Variable: X
  • Timeout: $S($D(DTIME):DTIME,1:120)
  • Line Location: INFO+10
Function Call: WRITE
  • Prompt: !!,"Enter RETURN to Continue"
  • Line Location: INFO+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: INFO+10
Info |  Source |  Entry Points |  Interaction Calls