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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSOARCF1

Package: Outpatient Pharmacy

Routine: PSOARCF1


Information

PSOARCF1 ;BHAM ISC/LGH,SAB,LC - hfs file index search ; 07/07/92

Source Information

Source file <PSOARCF1.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 (,$$REWIND)^%ZIS  ^%ZISC  $$STATUS^%ZISH  
Outpatient Pharmacy 2 ^PSOARCF2  ^PSOARCF3  
VA Fileman 2 ^DIC  ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Outpatient Pharmacy 2 PSO ARCHIVE FILE RETRIEVE  PSOARC  

Entry Points

Name Comments DBIA/ICR reference
R5
PQ
RWD
R1
R2
P
R
QNM
NOT
END
RN

External References

Name Field # of Occurrence
^%ZIS PQ+1, PQ+3, END, END+1
$$REWIND^%ZIS PQ+4, RWD
^%ZISC PQ+2, END, END+1
$$STATUS^%ZISH R, R5
^DIC RN
^DIR R2, RN
^PSOARCF2 P+3
^PSOARCF3 P+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: PQ+1
Function Call: WRITE
  • Prompt: !,"Must select a HFS device",!!
  • Line Location: PQ+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: PQ+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: PQ+3
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: R2+1
Function Call: WRITE
  • Prompt: !,X
  • Line Location: R2+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: RN+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: R+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: R5+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: R1+0
Function Call: WRITE
  • Prompt: @PSOACPF,!,"THE FOLLOWING SCRIPTS WERE ARCHIVED FOR : ",!!
  • Line Location: P+1
Function Call: WRITE
  • Prompt: $P(^TMP($J,"ZRX",I),"^",2)
  • Line Location: P+2
Function Call: WRITE
  • Prompt: !!,NM," does not have any archived scripts."
  • Line Location: NOT+0
Function Call: WRITE
  • Prompt: !!,"Enter the Name or Social Security Number of the patient whose archived",!,"prescriptions you wish to retrieve. Social Security Number must be in the",!,"form : ######### (NO DASHES)!!"
  • Line Location: QNM+0
Routine Call
  • %ZIS
  • Line Location:
    • PQ+4
    • RWD
Routine Call
  • DIC
  • Line Location:
    • RN
Routine Call
  • DIR
  • Line Location:
    • R2
    • RN
Routine Call
  • %ZIS
  • Line Location:
    • PQ+1
    • PQ+3
    • END
    • END+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J R+3*, R5*, R1*, P+2, END+2!

Label References

Name Line Occurrences
END PQ+1, PQ+3, PQ+4, R2, RN, R, R5, R1
NOT R, R5
P R1
PQ PQ+2
R1 R+3, R1
R5 R+1, R+2, R+3, R5
RN R2
RWD P+3, NOT

Naked Globals

Name Field # of Occurrence
^(1 P+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%MT END+2!
>> %ZIS("A" PQ*, PQ+1!, PQ+3*!
>> %ZIS("B" PQ*
>> %ZIS("HFSMODE" PQ*
DIC RN*!
DIC(0 RN*
DIR R2!, RN!
DIR("?" RN*
DIR("A" R2*, RN*
DIR("T" R2*, RN*
DIR(0 R2*, RN*
DIRUT RN, END+2!
DTIME R2, R2+1, RN, R, R5, R1
>> DTOUT R2
>> DUOUT R2
I P+2*, END+2!
IO PQ+1, PQ+3
IO(0 PQ+2, PQ+3, RWD, NOT, END, END+1
IOF PQ+3
IOM PQ+3
IOP END*!, END+1*!
>> IOPAR PQ+1
IOSL PQ+3
>> IOT PQ+1, PQ+2
NM RN*, RN+1*, R+3, R5, P+2*, P+3, NOT!, END+2!
NMPSOAT END+2!
POP PQ+1, PQ+3, END+2!
PSOACDS P+3*, END+2!
PSOACPF PQ+3*, P+1, END+2!
PSOACPL PQ+3*, END+2!
PSOACPM PQ+3*, END+2!
PSOAIO PQ+1*, END+3!
PSOAIOT PQ+1*, PQ+4, RWD, END+3!
PSOAP PQ+3*, R2+1, P+1, END+1, END+2!
PSOAPAR PQ+1*, PQ+4, RWD, END+3!
PSOAPF END+2!
PSOAPG P+3*, END+2!
PSOAT PQ+1*, PQ+4, R2+1, RWD, R, R5, END, END+2!
>> PSOATNM PQ*
PSORWND PQ+4*, RWD*, END+3!
SS RN*, RN+1*, R+3, R5, P+2*, NOT!, END+2!
TEST END+2!
TZ RN*, R+3*, R5*, R1*, P*, P+2, NOT!, END+2!
X R2+1*, RN+1, R*, R+1, R+2, R+3, R5*, R1*, NOT!, END+2!
XNEW PQ*, R+1*, R+2*, P+3, END+2!
XNM R+3*, R5*, END+2!
XSS R+3*, R5*, END+2!
Y R2, RN, RN+1, R5*, NOT!, END+2!
Y(0 RN
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All