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

Package: Integrated Patient Fund

Routine: PRPFDSI


Information

PRPFDSI ;ALTOONA/CTB INFORMATION DISPLAY ;11/22/96 4:36 PM

Source Information

Source file <PRPFDSI.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y>1
  • Line Location: B+0
Function Call: WRITE
  • Prompt: @PFLO,"Name: ",@PFHI,$P(DFN(0),"^"),?44
  • Line Location: B+0
Function Call: WRITE
  • Prompt: @PFLO,"SSN: ",@PFHI,$E(SSN,1,3),@PFLO,"-",@PFHI,$E(SSN,4,5),@PFLO,"-",@PFHI,$E(SSN,6,9),@PFLO," Claim #: ",@PFHI,$P(DFN(.31),"^",3)
  • Line Location: B+0
Function Call: WRITE
  • Prompt: @PFHI,"NOT IN FILE"
  • Line Location: B+2
Function Call: WRITE
  • Prompt: @PFHI
  • Line Location: B+3
Function Call: WRITE
  • Prompt: ?19,$E($P(DFN(.11),"^",I),1,29),?50,$E($P(DFN(.11),"^",I+3),1,29),!
  • Condition for execution: $P(DFN(.11),"^",I)]""
  • Line Location: B+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $Y<12
  • Line Location: B+4
Function Call: WRITE
  • Prompt: !,@PFLO,"Ward: ",@PFHI,$P(DFN(.1),U),?44,@PFLO,"Date of Admission: ",@PFHI,DOA
  • Line Location: B+4
Function Call: WRITE
  • Prompt: !,@PFLO,"Regional Office: ",@PFHI,$S($P(PDFN("ZERO"),U,9)>0:$P(^DIC(4,$P(PDFN("ZERO"),U,9),0),U),1:"")
  • Line Location: B+5
Function Call: WRITE
  • Prompt: ?44,@PFLO,"Date of Birth: ",@PFHI,Y
  • Line Location: B+5
Function Call: WRITE
  • Prompt: !!,@PFLO,"Type of Account: ",@PFHI
  • Line Location: B+6
Function Call: WRITE
  • Prompt: Y,?44,@PFLO,"Date of Restriction: "
  • Line Location: B+6
Function Call: WRITE
  • Prompt: Y,?44,@PFLO,"Date of Restriction: "
  • Line Location: B+6
Function Call: WRITE
  • Prompt: !,@PFLO,"Amt Restricted/Month: ",@PFHI
  • Line Location: B+7
Function Call: WRITE
  • Prompt: X,?44,@PFLO,"Amt Restricted/Week: "
  • Line Location: B+7
Function Call: WRITE
  • Prompt: X,?44,@PFLO,"Amt Restricted/Week: "
  • Line Location: B+7
Function Call: WRITE
  • Prompt: !,@PFLO,"Monthly Restriction Balance: "
  • Line Location: B+8
Function Call: WRITE
  • Prompt: @PFHI,X,?44,@PFLO,"Weekly Restriction Balance: "
  • Line Location: B+8
Function Call: WRITE
  • Prompt: @PFHI,X,?44,@PFLO,"Weekly Restriction Balance: "
  • Line Location: B+8
Function Call: WRITE
  • Prompt: !,@PFLO,"Provider Authorizing Restriction: "
  • Line Location: B+9
Function Call: WRITE
  • Prompt: @PFHI,Y
  • Line Location: B+9
Function Call: WRITE
  • Prompt: !!,@PFLO,"Minimum Balance 1: ",@PFHI
  • Line Location: B+10
Function Call: WRITE
  • Prompt: X,?44,@PFLO,"Minimum Balance 2: ",@PFHI
  • Line Location: B+10
Function Call: WRITE
  • Prompt: X,?44,@PFLO,"Minimum Balance 2: ",@PFHI
  • Line Location: B+10
Function Call: WRITE
  • Prompt: !,@PFLO,"Maximum Balance 2: ",@PFHI
  • Line Location: B+11
Function Call: WRITE
  • Prompt: X,@PFLO,?44,"Maximum Balance 2: ",@PFHI
  • Line Location: B+11
Function Call: WRITE
  • Prompt: X,@PFLO,?44,"Maximum Balance 2: ",@PFHI
  • Line Location: B+11
Function Call: WRITE
  • Prompt: !,@PFLO,"Apportionee: ",@PFHI
  • Line Location: B+12
Function Call: WRITE
  • Prompt: X,?44,@PFLO,"Competency: "
  • Line Location: B+12
Function Call: WRITE
  • Prompt: X,?44,@PFLO,"Competency: "
  • Line Location: B+12
Function Call: WRITE
  • Prompt: !,@PFLO,"Guardian: ",@PFHI
  • Line Location: B+13
Function Call: WRITE
  • Prompt: X,?44,@PFLO,"Gratuitous Balance: ",@PFHI
  • Line Location: B+13
Function Call: WRITE
  • Prompt: X,?44,@PFLO,"Gratuitous Balance: ",@PFHI
  • Line Location: B+13
Function Call: WRITE
  • Prompt: !,@PFLO,"Institutional Award: ",@PFHI
  • Line Location: B+14
Function Call: WRITE
  • Prompt: X,@PFLO,?44,"Private Balance: ",@PFHI
  • Line Location: B+14
Function Call: WRITE
  • Prompt: X,@PFLO,?44,"Private Balance: ",@PFHI
  • Line Location: B+14
Function Call: WRITE
  • Prompt: !,@PFLO,"Other Assest: ",@PFHI
  • Line Location: B+15
Function Call: WRITE
  • Prompt: X,@PFLO,?44,"Account Balance: ",@PFHI
  • Line Location: B+15
Function Call: WRITE
  • Prompt: X,@PFLO,?44,"Account Balance: ",@PFHI
  • Line Location: B+15
Function Call: WRITE
  • Prompt: !,@PFLO,"Indigent: ",@PFHI
  • Line Location: B+16
Function Call: WRITE
  • Prompt: Y
  • Line Location: B+16
Function Call: READ
  • Variable: X
  • Timeout: $S($D(DTIME):DTIME,1:120)
  • Line Location: B+17
Function Call: WRITE
  • Prompt: @PFNORM,!,"Press RETURN to view next screen or '^' to EXIT: "
  • Line Location: B+17
Info |  Source |  Entry Points |  Interaction Calls