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

Package: Integrated Patient Fund

Routine: PRPFCD


Information

PRPFCD ;ALTOONA/CTB PATIENT FUNDS ACCOUNT CARD GENERATOR ;11/22/96 4:33 PM

Source Information

Source file <PRPFCD.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;3.0;PATIENT FUNDS;**3,6**;JUNE 1, 1989
LHDR1
BODY ;PRINTS THE BODY OF THE PATIENT CARD
LINE ;PRINTS THE TRANSACTION LINE FOR THE CARD
LINE2
LINE3
EN2
END
END1
OUT ;EXIT LINE
TRAIL ; PRINTS THE TRAILER INFO FOR PAGE ONE OF THE CARD
T1 ;
T2
S1
SHDR ;PRINTS THE SHORT HEADER USED ON CONTINUATION PAGES
PAGE
DATE ;CONVERT DATE TO SLASH FORMAT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"REFERENCE",?12,"MASTER # SOURCE",?32,"WITHDRAWALS",?47,"DEPOSITS",?57,"DATE/TIME",?67,"DEFERRED",?86,"BALANCE",?95,"REMARKS"
  • Line Location: LHDR1+0
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: BODY+1
Function Call: WRITE
  • Prompt: !,"BALCARFWD",?24,"GRAT",?45,$J(GBAL,10,2),?57,BDATE1,?83,$J(GBAL,10,2),?95,"Gratuitous Balance Carried Forward"
  • Line Location: BODY+3
Function Call: WRITE
  • Prompt: !,"BALCARFWD",?24,"PRIV",?45,$J(PBAL,10,2),?57,BDATE1,?83,$J(BAL,10,2),?95,"Private Source Balance Carried Fwd"
  • Line Location: BODY+4
Function Call: WRITE
  • Prompt: !,REF,?13,NU,?24,SOURCE,?33,WI,?45,DE,?57,DATE,?68,DEF,?83,JBAL,?95,REM
  • Line Location: LINE2+6
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: LINE3+0
Function Call: WRITE
  • Prompt: !!,"END OF CARD FOR: ",$P(DFN(0),U),?60,"ENDING BALANCE: $",$J(BAL,0,2)
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !
  • Line Location: END+1
Function Call: WRITE
  • Prompt: "_"
  • Line Location: END+3
Function Call: WRITE
  • Prompt: !,"REGIONAL OFFICE: ",$S($P(PDFN(0),U,9)]"":$P(^DIC(4,$P(PDFN(0),U,9),0),U),1:""),?40,"OTHER ASSET: ",$P(PDFN(0),U,10),?65,"PRIVATE SOURCE FUNDS IN BALANCE: "
  • Line Location: T1+1
Function Call: WRITE
  • Prompt: $J($P(PDFN(1),U,5),9,2)
  • Line Location: T1+2
Function Call: WRITE
  • Prompt: !!,"INCOME SOURCE",?27,"PAYEE",?52,"AMOUNT",?62,"FREQUENCY",?102,"MIN BALANCE",?120,"MAX BALANCE"
  • Line Location: T1+2
Function Call: WRITE
  • Prompt: !,$P(XX,U),?27,$P(XX,U,2),?49,"$",$J($P(XX,U,3),9,2)
  • Line Location: T1+4
Function Call: WRITE
  • Prompt: ?62,Y
  • Line Location: T1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: T2+0
Function Call: WRITE
  • Prompt: !
  • Line Location: S1+0
Function Call: WRITE
  • Prompt: $P(XX,U),?27,$P(XX,U,2),?49,"$",$J($P(XX,U,3),9,2)
  • Condition for execution: N
  • Line Location: S1+0
Function Call: WRITE
  • Prompt: ?62,Y
  • Condition for execution: N
  • Line Location: S1+0
Function Call: WRITE
  • Prompt: ?102,"$",$J($P(PDFN(2),U,IX),9,2),?120,"$",$J($P(PDFN(2),U,IX+1),9,2)
  • Line Location: S1+0
Function Call: WRITE
  • Prompt: @IOF,!,"BENEFICIARY:",?32,"CLAIM #:",?48,"I.D. #",?64,"WARD",?75,"MIN BALANCE",?90,"MAX BALANCE"
  • Line Location: SHDR+1
Function Call: WRITE
  • Prompt: !,$P(DFN(0),U),?32,"C-",$P(DFN(.31),U,3),?48,$P(DFN(0),U,9),?64,DFN(.1),?75,$J($P(PDFN(2),U),8,2),?90,$J($P(PDFN(2),U,2),8,2),!,?75,$J($P(PDFN(2),U,3),8,2),?90,$J($P(PDFN(2),U,4),8,2),!,LINE
  • Line Location: SHDR+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: SHDR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGE+0
Function Call: WRITE
  • Prompt: ?60,"PAGE ",PAGE
  • Line Location: PAGE+1
Info |  Source |  Entry Points |  Interaction Calls