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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSOARCS2

Package: Outpatient Pharmacy

Routine: PSOARCS2


Information

PSOARCS2 ;BHAM ISC/LGH,SAB - Rx archive (cont'd) ; 07/07/92

Source Information

Source file <PSOARCS2.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Outpatient Pharmacy 3 KILLARC^PSOARCCO  EN^PSOHLSN  EN^PSOHLSN1  
VA FileMan 3 ^DIE  ^DIK  ^DIR  
Kernel 2 ^%ZIS  ^%ZISC  

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

Package Total Caller Graph
Outpatient Pharmacy 4 PSO ARCHIVE PURGE  PSOARC  PSOARCSV  PSOARCTP  

Entry Points

Name Comments DBIA/ICR reference
TAPE1 ;Invoked from ^PSOARCSV
PSOAT ;check for eot return psoaeot=1 if eot found
QMES
READ
ARC ;archive info - invoked by ^PSOARC
END
MES ;store archived Rx's in Pharmacy Patient file (#55)
EOT
VAR ;Invoked by ^PSOARCS1 and ^PSOARCS2
CLOSE

External References

Name Field # of Occurrence
^%ZIS CLOSE, CLOSE+1
^%ZISC CLOSE, CLOSE+1, VAR+3
^DIE MES+2, MES+5
^DIK ARC+10, ARC+11, ARC+12, ARC+13, ARC+19
^DIR ARC+4, ARC+6
KILLARC^PSOARCCO END+3
EN^PSOHLSN ARC+18
EN^PSOHLSN1 ARC+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @PSOACPF
  • Line Location: CLOSE+1
Function Call: WRITE
  • Prompt: !!,"Deleting entries from the PRESCRIPTION file",!
  • Line Location: ARC+7
Function Call: WRITE
  • Prompt: "."
  • Line Location: ARC+8
Function Call: WRITE
  • Prompt: $C(7),!!!,"Finished purging old prescriptions"
  • Line Location: ARC+14
Function Call: WRITE
  • Prompt: !!,"Deleting entries from the PENDING file",!
  • Line Location: ARC+15
Function Call: WRITE
  • Prompt: "."
  • Line Location: ARC+19
Function Call: WRITE
  • Prompt: "!"
  • Line Location: TAPE1+1
Function Call: WRITE
  • Prompt: T(1)
  • Line Location: TAPE1+1
Function Call: WRITE
  • Prompt: T(1)
  • Line Location: TAPE1+1
Function Call: WRITE
  • Prompt: !!?5,"** End of tape detected **",!?5,"After current tape rewinds, mount next tape"
  • Line Location: EOT+0
Function Call: WRITE
  • Prompt: ^%ZOSF("REW")
  • Line Location: EOT+0
Function Call: READ
  • Timeout: DTIME
  • Variable: XX
  • Line Location: READ+0
Function Call: WRITE
  • Prompt: !!,"Recording information"
  • Line Location: READ+1
Function Call: WRITE
  • Prompt: !," Check both the 'OPEN PARAMETERS' and 'ASK RIGHT MARGIN' fields of",!," your device file"
  • Line Location: VAR+2
Routine Call
  • DIE
  • Line Location:
    • MES+2
    • MES+5
Routine Call
  • DIR
  • Line Location:
    • ARC+4
    • ARC+6
Routine Call
  • %ZIS
  • Line Location:
    • CLOSE
    • CLOSE+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] Classic Fileman Calls
^PS(52.4 - [#52.4] Classic Fileman Calls
^PS(52.41 - [#52.41] Classic Fileman Calls
^PS(52.5 - [#52.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("EOT" PSOAT+1
^%ZOSF("OS" ARC+6
^%ZOSF("REW" EOT
^PS(52.41 - [#52.41] ARC+16, ARC+17, ARC+18
^PS(52.5 - [#52.5] ARC+13
^PS(55 - [#55] ARC+11, MES+2, MES+3, MES+4*
^PSOARC - [#52.8] END+3, CLOSE+2
^PSRX - [#52] ARC+8, ARC+9, ARC+10

Label References

Name Line Occurrences
CLOSE PSOARCS2+2
EOT PSOAT+1
MES ARC+8
PSOAT TAPE1+1, TAPE1+2, TAPE1+3, TAPE1+4, TAPE1+5
QMES MES+2, MES+4
READ READ
TAPE1 TAPE1+1, TAPE1+2, TAPE1+3, TAPE1+4, TAPE1+5

Naked Globals

Name Field # of Occurrence
^(0 ARC+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END+1!
%DT END+2!, ARC+20!
%MT END+1!
%Y END+2!, ARC+20!
A TAPE1+1*, TAPE1+3, TAPE1+6!
C END+1!
D TAPE1+1*, TAPE1+2, TAPE1+6!
D0 END+2!, ARC+20!
D1 END+2!, ARC+20!
D2 END+2!, ARC+20!
DA END+2!, ARC+10*, ARC+11*!, ARC+12*!, ARC+13*, ARC+19*!, ARC+20!, MES+2*, MES+5*
DA(1 ARC+11*
DG TAPE1+1*, TAPE1+4, TAPE1+6!
DI END+2!, ARC+20!
DIE END+2!, ARC+20!, MES+2*!, MES+5*!
DIK ARC+10*, ARC+11*!, ARC+12*!, ARC+13*!, ARC+19*!
DIR END+2!, ARC+1!, ARC+4!, ARC+5!, ARC+6!, ARC+20!
DIR("A" ARC+1*, ARC+2*, ARC+3*, ARC+6*
DIR("B" ARC+3*
DIR(0 ARC+3*, ARC+6*
DIRUT END+1!, ARC+1!, ARC+4, ARC+5!, ARC+6
DLAYGO END+2!, ARC+20!
DQ END+2!, ARC+20!
DR END+2!, ARC+20!, MES+2*, MES+5*
DR(2 MES+2*, MES+5*
DT MES+2, MES+3, MES+4, MES+5
DTIME READ
DUSYS END+1!
GD TAPE1+1*, TAPE1+5, TAPE1+6!
IK END+2!, ARC+20!
IO(0 CLOSE, CLOSE+1, EOT, READ
IOBS END+1!
IOHG END+1!
IOP END!, CLOSE*!, CLOSE+1*!, VAR+3!
IOPAR END+1!
IOUPAR END+1!
IOXY END+1!
J END!
JJ END!
K END!
KK END!
LL END!, ARC+20!, MES+1*, MES+3*
LST ARC+20!, MES+1*, MES+3*, MES+4
NM END!
PAT END+2!, ARC+10*, ARC+11, ARC+20!
PDRX ARC+16*, ARC+17, ARC+18, ARC+19, ARC+20!
PG END!
PHYS END!
PI END!
PLGTH ARC+20!, MES+4*
PNODE ARC+20!, MES+4*
POP END+1!
PSABS END!
PSDIS END!
PSLC END!
PSOAC END!
PSOACD END+2!, ARC+8*, ARC+20!, MES+2, MES+3, MES+4, MES+5
PSOACP PSOARCS2+2*, END!
PSOACPF END!, CLOSE+1
PSOACPL END!
PSOACPM END!
PSOACRS END!
PSOACT PSOARCS2+2, END!
>> PSOAEOT TAPE1+1, TAPE1+2, TAPE1+3, TAPE1+4, TAPE1+5, PSOAT+1*
PSOAF END!
PSOAM END!
PSOAP PSOARCS2+2!, END!, CLOSE+1
PSOAPAR END!
PSOAPF END+1!
PSOAPG END!
PSOAT PSOARCS2+2!, END!, CLOSE, PSOAT+1, PSOAT+2, EOT
PSOATNM END+1!, READ+1*
PSOK END+2!, ARC+20!
PSOSUSPA ARC+10*!
PSPRCNT END!
PSPRNP END!
PSRST END+1!
RFDATE END!
RFL END!
RFL1 END!
RM END!
RX END+2!, ARC+8*, ARC+9, ARC+10, ARC+11, ARC+12, ARC+13, ARC+20!
RX0 END+2!
RX1 ARC+8*, ARC+20!, MES+2, MES+4, MES+5
SS END+1!
SSN END+1!
ST END!
ST0 END!
STAT ARC+17*, ARC+19!
STOP END+2!, VAR+1*, VAR+3*
T END!
T(1 TAPE1+1
T(2 TAPE1+1, TAPE1+2
T(3 TAPE1+3
T(4 TAPE1+4
T(5 TAPE1+5
TI TAPE1+2*, TAPE1+3*, TAPE1+4*, TAPE1+5*, TAPE1+6!
TZ END+1!
X END!, ARC+11*
X1 END!
X2 END!
XNEW END+1!
XNM END+1!
XSS END+1!
XX END+1!, READ*
>> Y ARC+4, ARC+6, PSOAT+1
ZI END!
ZII END!
ZZI END+2!, ARC+20!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All