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

Package: Fee Basis

Routine: FBAADEM


Information

FBAADEM ;AISC/DMK-DISPLAY PATIENT DEMOGRAPHICS ;2/12/2003

Source Information

Source file <FBAADEM.m>

Entry Points

Name Comments DBIA/ICR reference
END
ELIG

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: FBAADEM+7
Function Call: WRITE
  • Prompt: !
  • Line Location: FBAADEM+8
Function Call: WRITE
  • Prompt: !,VADM(1),?39,"Pt.ID: ",$P(VADM(2),"^",2)
  • Line Location: FBAADEM+10
Function Call: WRITE
  • Prompt: !,VAPA(1),?41,"DOB: ",$P(VADM(3),"^",2)
  • Line Location: FBAADEM+11
Function Call: WRITE
  • Prompt: !,VAPA(2)
  • Line Location: FBAADEM+12
Function Call: WRITE
  • Prompt: !,VAPA(3)
  • Line Location: FBAADEM+13
Function Call: WRITE
  • Prompt: !,VAPA(4),?41,"TEL: ",$S(VAPA(8)]"":VAPA(8),1:"Not on File")
  • Line Location: FBAADEM+14
Function Call: WRITE
  • Prompt: !?38,"COUNTY: ",FBCOUNTY
  • Line Location: FBAADEM+17
Function Call: WRITE
  • Prompt: !
  • Line Location: FBAADEM+20
Function Call: WRITE
  • Prompt: !
  • Line Location: FBAADEM+23
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: FBAADEM+24
Function Call: WRITE
  • Prompt: " "
  • Line Location: ELIG+1
Function Call: WRITE
  • Prompt: !?21
  • Condition for execution: I1>1
  • Line Location: ELIG+2
Function Call: WRITE
  • Prompt: $P(VAEL(1,I),"^",2)
  • Line Location: ELIG+2
Function Call: WRITE
  • Prompt: "NO ADDITIONAL ELIGIBILITIES IDENTIFIED"
  • Line Location: ELIG+3
Info |  Source |  Entry Points |  Interaction Calls