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

Package: ODS

Routine: A1B2Q


Information

A1B2Q ;JLU/ALB; National inquiry of patients; 1/13/90

Source Information

Source file <A1B2Q.m>

Entry Points

Name Comments DBIA/ICR reference
ADD
PG
ST ;For end of screen.
B ;Entry point for inquiry display.
AD
RD
C ;Entry point for display.
WA
WR
HD1 ;Header for inquiry report.
EX ;Kill point.
A ;Entry point for inquiry lookup.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Address:"
  • Line Location: ADD+0
Function Call: WRITE
  • Prompt: ?9,A1B2A1,!
  • Line Location: ADD+1
Function Call: WRITE
  • Prompt: ?9,A1B2A2,!
  • Line Location: ADD+2
Function Call: WRITE
  • Prompt: ?9,A1B2A3,!
  • Line Location: ADD+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PG+0
Function Call: WRITE
  • Prompt: !!,"Patient: ",A1B2NA
  • Line Location: C+2
Function Call: WRITE
  • Prompt: ?45,"*** ",A1B2CD," ***"
  • Line Location: C+2
Function Call: WRITE
  • Prompt: !,?4,"SSN: ",A1B2SS,?41,"Service Branch: ",$E(A1B2BS,1,23)
  • Line Location: C+3
Function Call: WRITE
  • Prompt: !,?4,"DOB: ",A1B2DB,?51,"Rank: ",A1B2RA
  • Line Location: C+4
Function Call: WRITE
  • Prompt: !,?4,"Age: ",$S($D(A1B2AG):A1B2AG,1:"")
  • Line Location: C+5
Function Call: WRITE
  • Prompt: !,A1B2L
  • Line Location: C+11
Function Call: WRITE
  • Prompt: !!,A1B2L
  • Line Location: C+12
Function Call: WRITE
  • Prompt: !!!
  • Line Location: C+13
Function Call: WRITE
  • Prompt: !!,"Admitted to ",$S($L($P(A1B2AD(A1B2LP),U))>2:$E($P(A1B2AD(A1B2LP),U),1,26),1:"UNKNOWN")," on "
  • Line Location: WA+0
Function Call: WRITE
  • Prompt: " to ",$P(A1B2AD(A1B2LP),U,3)
  • Line Location: WA+1
Function Call: WRITE
  • Prompt: !," Discharged from ",$S($L($P(A1B2AD(A1B2LP),U))>2:$E($P(A1B2AD(A1B2LP),U),1,26),1:"UNKNOWN")," on "
  • Line Location: WA+2
Function Call: WRITE
  • Prompt: " for ",$P(A1B2AD(A1B2LP),U,5)
  • Line Location: WA+3
Function Call: WRITE
  • Prompt: !," Transferred to ",$P(A1B2AD(A1B2LP),U,6),$S($P(A1B2AD(A1B2LP),U,7)=0:" (VAMC)",1:" (UNKNOWN)")
  • Line Location: WA+4
Function Call: WRITE
  • Prompt: !!,"Registered at ",$S($L($P(A1B2RD(A1B2LP),U))>2:$E($P(A1B2RD(A1B2LP),U),1,26),1:"UNKNOWN")," on "
  • Line Location: WR+0
Function Call: WRITE
  • Prompt: " for ",$P(A1B2RD(A1B2LP),U,3)
  • Line Location: WR+1
Function Call: WRITE
  • Prompt: !,?25,"*** ODS Patient Inquiry ***"
  • Line Location: HD1+1
Info |  Source |  Entry Points |  Interaction Calls