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

Package: Outpatient Pharmacy

Routine: PSOLLL7


Information

PSOLLL7 ;BHAM/JLC - LASER LABEL MULTI RX REFILL REQUEST FORM ;12/12/92

Source Information

Source file <PSOLLL7.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Outpatient Pharmacy 3 ^PSOLSET  EN^PSOPATLK  $$ZZ^PSOSUTL  
Registration 3 (6,ADD,DEM)^VADPT  PID^VADPT6  $$SITE^VASITE  
VA FileMan 2 (C,NOW)^%DTC  EN^DIQ1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Outpatient Pharmacy 3 PSO LM MULTI-RX PRINT  PSOLLL1  PSOLLL5  
Kernel 2 ^DIC(19  ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
Q1
EN
DQ
HDR
PRINT(T) ;
SITE ;
DOCNEW
GETPT2
QUEUE ; ENTRY POINT TO PRINT STAND-ALONE MULTI-RX FORM
ADD
HDR5
EXIT
DTCONNW
GETPT
MAIL ;PRINT MAILING ADHESIVE LABEL
REFILL
RZX
SCRPTNEW
RFILL2

External References

Name Field # of Occurrence
C^%DTC RFILL2+1
NOW^%DTC Q1+5
^%ZIS Q1
^%ZISC Q1+8
^%ZTLOAD Q1+8
EN^DIQ1 SITE+2
^PSOLSET QUEUE+2
EN^PSOPATLK GETPT
$$ZZ^PSOSUTL SCRPTNEW
6^VADPT Q1+4
ADD^VADPT HDR+1
DEM^VADPT GETPT2
PID^VADPT6 Q1+4
$$SITE^VASITE SITE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: X2
  • Line Location: SCRPTNEW+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SCRPTNEW+13
Function Call: WRITE
  • Prompt: T,!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: QUEUE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: Q1+0
Function Call: WRITE
  • Prompt: !,"Must specify a laser labels printer for Multi-Rx form."
  • Line Location: Q1+2
Function Call: WRITE
  • Prompt: !,"Nothing queued to print."
  • Line Location: Q1+3
Routine Call
  • %ZIS
  • Line Location:
    • Q1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(2 - [#3.2] Q1+2, DQ
^DD("DD" Q1+5
^DIC(5 - [#5] HDR+4, MAIL+3
^PS(55 - [#55] REFILL+3, RZX
^PS(59 - [#59] REFILL, DOCNEW+7, HDR5+4, MAIL+1, MAIL+2
^PS(59.7 - [#59.7] REFILL, QUEUE+3
^PSRX - [#52] SCRPTNEW+2, RFILL2, RFILL2+1, RZX+1
^UTILITY("DIQ1" SITE+1!, SITE+2!

Label References

Name Line Occurrences
DTCONNW SCRPTNEW+1
EN DQ+2
EXIT DOCNEW+4, DOCNEW+5
GETPT GETPT2+1
GETPT2 QUEUE+6
HDR DOCNEW+2, SCRPTNEW+9
HDR5 HDR+2
MAIL EN
PRINT EN+2, EN+3, DOCNEW+6, DOCNEW+8, SCRPTNEW, SCRPTNEW+2, SCRPTNEW+10, SCRPTNEW+11, HDR, HDR+3
, HDR+6, HDR5+1, HDR5+2, HDR5+5, ADD, ADD+1, MAIL+7, MAIL+8, MAIL+9, MAIL+10
Q1 Q1+2
RFILL2 RZX+1
RZX REFILL+3
SCRPTNEW DOCNEW+3
SITE HDR5+3, QUEUE+4

Naked Globals

Name Field # of Occurrence
^( DQ
^("IB" REFILL
^("STA" RZX+1
^(0 DOCNEW+7, RZX+1, HDR+4, HDR5+4, MAIL+1, MAIL+3
^(1 RZX+1, DQ
^(2 RFILL2+1, RZX+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % Q1+5
>> %ZIS Q1*
>> %ZIS("A" Q1*!
>> %ZIS("B" Q1*
>> A HDR+4*, HDR+5
AMC EXIT!, RFILL2*
>> B HDR+5*, HDR+6
>> BLNKLIN REFILL+2*, DOCNEW+6, SCRPTNEW+10
DA SITE+1*, SITE+2!
DFN REFILL, REFILL+3, RZX, QUEUE+1, QUEUE+6, GETPT+1*, Q1+9!
DIC GETPT!, SITE+2*!
DIC("A" GETPT*
DIC(0 GETPT*
>> DIQ(0 SITE+2*
DIWF EXIT!
DIWL EXIT!
DIWR EXIT!
DR SITE+2*!
DT RFILL2+1, RZX+1
DUZ Q1+7
G Q1+6*, Q1+8!
>> I HDR+3*, DQ*
IOF SCRPTNEW+13
ION Q1
IOST(0 Q1+2, Q1+3, DQ
>> J DOCNEW+3*
>> OPSOX SCRPTNEW+2*, SCRPTNEW+8, HDR5+5*
>> OPSOY HDR5+5*
>> ORIGY DOCNEW+1*, DOCNEW+5, SCRPTNEW+12
>> PDUZ Q1+7*
>> PNM HDR, GETPT2*, GETPT2+2
POP Q1!, Q1+1
>> PS DOCNEW+7*, DOCNEW+8, SCRPTNEW+11, HDR5+4*, HDR5+5, MAIL+1*, MAIL+2*, MAIL+3, MAIL+4, MAIL+10
>> PS1 REFILL*
PSA DOCNEW+2*, DOCNEW+3*, EXIT!, SCRPTNEW, SCRPTNEW+2, SCRPTNEW+5, SCRPTNEW+9, DTCONNW
PSDFN EXIT!
PSDO EXIT!
PSDT2 EXIT!, SCRPTNEW+2, DTCONNW*
PSINF EXIT!
>> PSLION Q1*, Q1+7
PSLN EXIT!
PSO9 EXIT!
PSOBIO DQ~
>> PSOBYI SCRPTNEW+3
PSOCR EXIT!
>> PSOFNOW Q1+5*
>> PSOFONT PRINT+1
>> PSOHZIP MAIL+4*, MAIL+10
>> PSOINST SCRPTNEW+5, HDR5+3, QUEUE+4, SITE+2*, SITE+3*
>> PSOIO DQ*
>> PSOIO( PRINT+1, DQ*
>> PSOIO("EBT" SCRPTNEW+7
>> PSOIO("ET" PRINT+4
>> PSOIO("LLI" DQ+1
>> PSOIO("MLI" MAIL+5
>> PSOIO("PII" EN+1
>> PSOIO("PSOFONT" MAIL+6
>> PSOIO("RPI" DOCNEW
>> PSOIO("SBT" SCRPTNEW+4
>> PSOIO("ST" PRINT+2
>> PSOLX DOCNEW+1, SCRPTNEW+13
>> PSONOW DOCNEW+8, SCRPTNEW+11, HDR5+1, Q1+5*
>> PSOPAR QUEUE+2
PSOPTLK GETPT!
>> PSORX SCRPTNEW+13, SCRPTNEW+14
>> PSOSITE REFILL, DOCNEW+7, HDR5+4, MAIL+1
>> PSOSITE7 REFILL*
>> PSOSYI DOCNEW+6, SCRPTNEW+10
>> PSOSYS REFILL*, MAIL+2, QUEUE+3*
>> PSOTYI DOCNEW+1, DOCNEW+6, SCRPTNEW, SCRPTNEW+2, SCRPTNEW+10, SCRPTNEW+12
>> PSOX REFILL+5*, DOCNEW+1*, SCRPTNEW+2*, SCRPTNEW+5*, SCRPTNEW+8*, SCRPTNEW+13*, SCRPTNEW+14*, HDR5+5*
>> PSOXI SCRPTNEW+2, SCRPTNEW+5
>> PSOY DOCNEW+1, DOCNEW+5, SCRPTNEW+9, SCRPTNEW+12*, HDR5*, HDR5+1*, HDR5+5*, ADD*, ADD+1*
>> PSOYI DOCNEW+1*, DOCNEW+6*, SCRPTNEW*, SCRPTNEW+2*, SCRPTNEW+3*, SCRPTNEW+10*, SCRPTNEW+12*, HDR5, HDR5+1, ADD
, ADD+1
>> PSOYM SCRPTNEW+9
PSRFL EXIT!, RFILL2*, RFILL2+1*, RZX+1*
PSRX REFILL+1*, REFILL+3*, EXIT!, RZX
PSRXX EXIT!, RFILL2, RFILL2+1, RZX*, RZX+1
>> PSSPND REFILL+1
PSSS EXIT!
PSST EXIT!
>> PSZIP MAIL+4*
>> RX( REFILL+1!, DOCNEW+3, SCRPTNEW+2, SCRPTNEW+9, DTCONNW, RZX+1*
>> RX(0 DOCNEW+4, HDR5
SAVDFN QUEUE+1*, Q1+9!
>> SSNP Q1+4*
>> STATE MAIL+3*, MAIL+10
T EN+2*, EN+3*, DOCNEW+6*, DOCNEW+8*, SCRPTNEW*, SCRPTNEW+2*, SCRPTNEW+10*, SCRPTNEW+11*, HDR*, HDR+3*
, HDR+6*, HDR5+1*, HDR5+2*, HDR5+5*, ADD*, ADD+1*, PRINT~, PRINT+3
>> TEXT MAIL+7*, MAIL+8*, MAIL+9*, MAIL+10*
TN SCRPTNEW+2!
>> VAADDR1 MAIL+3*, MAIL+8
>> VADM(1 GETPT2
>> VADM(6 GETPT2+1, GETPT2+2
>> VAPA( HDR+3
>> VAPA(1 HDR+2
>> VAPA(11 HDR+5
>> VAPA(4 HDR+5
>> VAPA(5 HDR+4
>> VAPA(6 HDR+5
>> VASTREET MAIL+3*, MAIL+9
>> X RFILL2+1, GETPT
>> X0 DQ*
>> X1 RFILL2+1*
>> X2 SCRPTNEW+5*, SCRPTNEW+6, RFILL2+1*
>> Y GETPT*, GETPT+1, Q1+5*
ZDRUG SCRPTNEW!
>> ZTDESC Q1+7*
>> ZTDTH Q1+7*
>> ZTIO Q1+7*
>> ZTQUEUED EXIT+1
>> ZTREQ EXIT+1*
>> ZTRTN Q1+7*
>> ZTSAVE( Q1+6*
ZTSK Q1!, Q1+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All