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 |  Local Variables |  All
Print Page as PDF
Routine: PSOARX1

Package: Outpatient Pharmacy

Routine: PSOARX1


Information

PSOARX1 ;BHAM ISC/SAB prints archive index only ; 01/20/95

Source Information

Source file <PSOARX1.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  (,KILL)^%ZTLOAD  
Outpatient Pharmacy 2 ^PSOARCCO  ^PSOARX  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSOARINDEX  

Entry Points

Name Comments DBIA/ICR reference
EN
HDR
HD
EX

External References

Name Field # of Occurrence
^%ZIS HDR+2
^%ZISC EX
^%ZTLOAD HDR+3
KILL^%ZTLOAD EX
^DIR PSOARX1+7, HDR+1, HD
^PSOARCCO PSOARX1+3, PSOARX1+7
^PSOARX EN+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PSOARX1+2
Function Call: WRITE
  • Prompt: !,$C(7),"There is no data to print!"
  • Line Location: PSOARX1+3
Function Call: WRITE
  • Prompt: !,$C(7),"There is no data to print!"
  • Line Location: PSOARX1+8
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !!,"**************There is no data to print****************",!
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: !?($L(NM)+3)
  • Condition for execution: ($X+$L(ZII)+1)>(IOM-5)
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: $P(^PSRX(ZII,0),"^"),","
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: @IOF,!!?(IOM-$L(PSOACDS)\2),PSOACDS,?$X+10," Page: "_PSOAPG
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !?(IOM-$L($E(DT,4,5)_"/"_$E(DT,6,7)_"/"_$E(DT,2,3))\2),$E(DT,4,5)_"/"_$E(DT,6,7)_"/"_$E(DT,2,3),!
  • Line Location: HD+2
Routine Call
  • DIR
  • Line Location:
    • PSOARX1+7
    • HDR+1
    • HD
Routine Call
  • %ZIS
  • Line Location:
    • HDR+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSOARC("B" EN+1, EN+3, EN+10, EN+11
^PSOARC(0 PSOARX1+2, PSOARX1+3, PSOARX1+5, PSOARX1+8, EN
^PSRX - [#52] EN+6
^TMP($J PSOARX1+2!, EN+3!*, EN+6

Label References

Name Line Occurrences
EX PSOARX1+2, PSOARX1+5, HDR+1, HDR+2, HDR+3, EN, EN+1, EN+10
HD EN, EN+4, EN+6, EN+9, EN+11
HDR PSOARX1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%X EX+1!
%Y EX+1!
%ZIS HDR+2!*
>> DA EN+11*
DIR PSOARX1+6!, HDR!, HDR+1!, HD!
DIR("?" HDR*
DIR("A" PSOARX1+6*, PSOARX1+7*, HDR*, HD*
DIR("B" PSOARX1+6*, HDR+1*
DIR(0 PSOARX1+6*, HDR*, HD*
DIRUT PSOARX1+5, PSOARX1+7, HDR+1, EX!, HD!
DT HD+2
DTOUT EX!
DUOUT EX!, HD!
IO EN, EN+4, EN+8, EN+11, HD+1
IO("Q" HDR+2!, HDR+3, EX+1!
IOF EN+8, HD+1
IOM EN+6, EN+8, HD+1, HD+2
ION HDR+2
>> IOP HDR+2*
IOSL EN+4, EN+6, EN+8, EN+11
IOST HD
>> KK EN+3*, EN+6*
>> LL EN+2*, EN+3*
>> NM EN+2*, EN+5, EN+6
OUT PSOARX1+2, PSOARX1+3*, PSOARX1+4*, PSOARX1+5*, PSOARX1+8*, EX+1!
PG EX!
POP HDR+2, EX+1!
PSOAC EX!
PSOAC1 EX!
PSOACDS HDR+1*, EX!, HD+1
PSOACPF EN+8*, EX!
PSOACPL EN+8*, EX!
PSOACPM EN+8*, EX!
PSOAPG EN*, EX!, HD+1, HD+2*
PSOATNM EN+8*, EX!
PSOION HDR+2*!
>> PSOK EN+1*, EN+10*
PSOP EN+8*, EX!
PSOPAG EX!
PSOQUIT EN!
PSQUIT EN, EN+1, EN+4, EN+6, EN+9, EN+10, EN+11, EX+1!, HD*
>> RX0 EN+11*
>> SS EN+2*
>> SSN EN+1*, EN+2, EN+3, EN+5, EN+10*, EN+11
X HDR+1!, EX+1!
Y PSOARX1+7, EX!
>> ZI EN+1*, EN+2, EN+3, EN+10*, EN+11
>> ZII EN+2*, EN+3*, EN+5*, EN+6*, EN+11*
ZTQUEUED HDR+2!, EX
>> ZTRTN HDR+3*
>> ZTSAVE("PSOACDS" HDR+3*
ZTSK HDR+2!, HDR+3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All