Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 5 DD^%DT  ^%DTC  ^DIC  DT^DIO2  ^DIR  
Kernel 1 HOME^%ZIS  

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.

External References

Name Field # of Occurrence
DD^%DT B+5
^%DTC B+5
HOME^%ZIS PG
^DIC A+3
DT^DIO2 WA+1, WA+3, WR+1
^DIR ST+1

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
Routine Call
  • DIC
  • Line Location:
    • A+3
Routine Call
  • DIR
  • Line Location:
    • ST+1
Routine Call
  • %ZIS
  • Line Location:
    • PG

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^A1B2(11500.1 B+1, B+2
^A1B2(11500.2 B+7
^A1B2(11500.4 B+8
^DD("FUNC" - [#.5] AD+3, RD+2
^DG(405.2 - [#405.2] AD+2
^DIC(23 - [#23] B+6
^DIC(25002.1 B+4
^DIC(37 - [#37] RD+1
^DIC(42.4 - [#42.4] AD+2
^DIC(5 - [#5] B+2

Label References

Name Line Occurrences
A A+5
AD B+7
ADD C+6
B A+5
C A+5
EX C+8, A+5
HD1 C+1
PG ST+2, C+1
RD B+8
ST C+11, C+12
WA C+11
WR C+12

Naked Globals

Name Field # of Occurrence
^( B+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A1B2A1 ADD+1, B+2*, EX+1!
A1B2A2 ADD+2, B+2*, EX+1!
A1B2A3 ADD+3, B+2*, EX+1!
A1B2A4 ADD+4, B+2*, EX+1!
A1B2A5 ADD+4, B+2*, EX+1!
A1B2A6 ADD+4, B+2*, EX+1!
A1B2AD C+11, EX+1!
A1B2AD( C+11, WA, WA+1, WA+2, WA+3, WA+4
A1B2AD(9999999 AD+3*
A1B2AG B+5*, C+5, EX+1!
A1B2AS AD*, AD+2, EX+1!
A1B2BS B+3*, B+6*, C+3, EX+1!
A1B2CD B+3*, C+2, EX+1!
A1B2DB B+3*, B+5*, C+4, EX+1!
A1B2DP RD*, RD+1, EX+1!
A1B2E ST+1*, ST+2, C+10*, C+11, C+12, EX+1!
A1B2L C+9*, C+11, C+12, EX+1!
A1B2LP B+7*, B+8*, C+11*, C+12*, WA, WA+1, WA+2, WA+3, WA+4, WR
, WR+1, EX+1!
A1B2NA B+3*, C+2, EX+1!
>> A1B2NTY C+2, C+6
A1B2RA B+3*, B+4*, C+4, EX+1!
A1B2RD C+12, EX+1!
A1B2RD( C+12, WR, WR+1
A1B2RD(9999999 RD+2*
A1B2SS B+3*, C+3, EX+1!
A1B2X B+1*, B+3, EX+1!
A1B2X1 B+2*, C+6, EX+1!
A1B2Y B+1, B+2, B+7, B+8, EX+1!, A+4*
A1B2Y3 EX+1!
>> A1B2ZU C+8
DIC EX+1!, A+1*, A+3!
DIC("A" A+1*
DIC("S" A+2*
DIC(0 A+1*
DIR EX+1!
DIR(0 ST+1*
DT B+5
IOF PG
IOSL C+11, C+12
U B+2, B+3, B+4, B+6, B+7, B+8, AD, AD+2, AD+3, RD
, RD+1, RD+2, C+2, WA, WA+1, WA+2, WA+3, WA+4, WR, WR+1
X B+5, AD+2*, AD+3*, RD+1*, RD+2*, EX+1!
>> X1 B+5*
>> X2 B+5*
Y ST+1, B+5*, WA+1*, WA+3*, WR+1*, EX+1!, A+3, A+4
Y1 B+7*, B+8*, AD, AD+2, AD+3, RD, RD+1, RD+2, EX+1!
Y2 EX+1!
Y3 EX+1!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All