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

Package: Integrated Patient Fund

Routine: PRPFCD1


Information

PRPFCD1 ;ALTOONA/CTB EXPANDED HEADER FOR PATIENT FUNDS CARD ;11/22/96 4:34 PM

Source Information

Source file <PRPFCD1.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;3.0;PATIENT FUNDS;**6**;JUNE 1, 1989
LHDR ;PRINTS THE EXPANDED HEADER FOR THE PATIENT CARD
ADD ;COMPRESS ADDRESS INFO
ADD1 ;COMPRESS RELATIVE ADDRESS
ADD2 ;COMPRESS PATIENT ADDRESS
ADD3 ;COMPRESS CIVIL GUARDIAN ADDRESS

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "~~PRPF~~",!,$P(DFN(0),U)_"^"_$P(DFN(.31),U,3)_"^"_$P(DFN(0),"^",9),!
  • Line Location: LHDR+7
Function Call: WRITE
  • Prompt: "BENEFICIARY: ",?32,"CLAIM #:",?48,"I.D. #",?64,"WARD",?75,"INDIGENT",?88,"DATE OF BIRTH",?105,"DATE OF ADMISSION"
  • Line Location: LHDR+11
Function Call: WRITE
  • Prompt: !,$P(DFN(0),U),?32,"C-",$P(DFN(.31),U,3),?48,$P(DFN(0),U,9),?64,$P(DFN(.1),U)
  • Line Location: LHDR+12
Function Call: WRITE
  • Prompt: ?78,Y
  • Line Location: LHDR+13
Function Call: WRITE
  • Prompt: ?89,Y,?105,DOA
  • Line Location: LHDR+14
Function Call: WRITE
  • Prompt: !!,"TYPE OF ACCOUNT",?25,"DATE OF RESTRICTION",?50,"COMPETENCY",?84,"APPORTIONEE",?100,"GUARDIAN",?116,"INST'L AWARD"
  • Line Location: LHDR+15
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: LHDR+16
Function Call: WRITE
  • Prompt: ?25,Y
  • Line Location: LHDR+17
Function Call: WRITE
  • Prompt: ?50,Y,?86,"$",$J($P(PDFN(0),U,6),0,2),?100,"$",$J($P(PDFN(0),U,7),0,2),?118,"$",$J($P(PDFN(0),U,8),0,2)
  • Line Location: LHDR+19
Function Call: WRITE
  • Prompt: !!,"PATIENT ADDRESS",?32,"NEAREST RELATIVE",?64,"VA GUARDIAN",?96,"CIVIL GUARDIAN"
  • Line Location: LHDR+20
Function Call: WRITE
  • Prompt: !,$E($P(DFN(.11),U,I),1,30),?32,$E($P(DFN(.21),U,I),1,30),?64,$E($P(DFN(.29),U,I),1,30),?96,$E($P(DFN(.291),U,I),1,30)
  • Line Location: LHDR+21
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: LHDR+22
Info |  Source |  Entry Points |  Interaction Calls