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

Package: Outpatient Pharmacy

Routine: PSOARCIN


Information

PSOARCIN ;BHAM ISC/LGH,SAB - tape index search ; 07/07/92

Source Information

Source file <PSOARCIN.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 2 ^%ZIS  ^%ZISC  
Outpatient Pharmacy 2 ^PSOARCR1  ^PSOARCRR  
VA FileMan 2 ^DIC  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

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

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS PQPQ+1, ENDEND+1
^%ZISC PQENDEND+1
^DIC RN
^DIR R2RN
^PSOARCR1 P+3
^PSOARCRR P+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Must select a MAGTAPE device",!!
  • Line Location: PQ+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: PQ+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: PQ+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: R2+1
Function Call: WRITE
  • Prompt: !,X
  • Line Location: R2+1
Function Call: WRITE
  • Prompt: @%MT("REW")
  • Line Location: R2+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: RN+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: R+0
Function Call: READ
  • Variable: S
  • Timeout: $P(X,"^",2)="NEW"
  • Line Location: R+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: R5+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: R1+0
Function Call: WRITE
  • Prompt: @PSOACPF,!,"The following scripts were archived on this tape 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 archived scripts on this tape."
  • 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
    • PQ+1
    • END
    • END+1
Routine Call
  • DIC
  • Line Location:
    • RN
Routine Call
  • DIR
  • Line Location:
    • R2
    • RN

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("EOT" RR5
^%ZOSF("MAGTAPE" PQ+2
^TMP($J R+3*, R5*, R1*, P+2, END+2!

Label References

Name Line Occurrences
END PQPQ+1, R2RNRR5R1
NOT RR5
P R1
PQ PQ
R1 R+3, R1
R5 R+1, R+2, R+3, R5
RN R2

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!
%MT("REW" PQ+2, R2+2
>> %ZIS("A" PQ*!, PQ+1*!
>> %ZIS("B" PQ*
DIC RN*!
DIC(0 RN*
DIR R2!, RN!
DIR("?" RN*
DIR("A" R2*, RN*
DIR("T" R2*, RN*
DIR(0 R2*, RN*
DIRUT RNEND+2!
DTIME R2R2+1, RNRR5R1
>> DTOUT R2
>> DUOUT R2
I P+2*, END+2!
IO PQPQ+1
IO(0 PQPQ+1, R2+2, NOTENDEND+1
IOF PQ+1
IOM PQ+1
IOP END*!, END+1*!
IOSL PQ+1
IOST PQ
NM RN*, RN+1*, R+3, R5P+2*, P+3, NOTEND+2!
NMPSOAT END+2!
POP PQPQ+1, END+2!
PSOACDS P+3*, END+2!
PSOACPF PQ+1*, P+1, END+2!
PSOACPL PQ+1*, END+2!
PSOACPM PQ+1*, END+2!
PSOAP PQ+1*, R2+1, P+1, END+1, END+2!
PSOAPF END+2!
PSOAPG P+3*, END+2!
PSOAT PQ*, R2+1, R2+2, RR5ENDEND+2!
>> PSOATNM PQ*
SS RN*, RN+1*, R+3, R5P+2*, END+2!
TEST END+2!
TZ RN*, R+3*, R5*, R1*, P*, P+2, END+2!
X R2+1*, RN+1, R*, R+1, R+2, R+3, R5*, R1*, 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 R2RNRN+1, RR5END+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