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

Package: Outpatient Pharmacy

Routine: PSOARCF5


Information

PSOARCF5 ;BHAM ISC/LGH,SAB,LC - RX ARCHIVE (CNT'D) ; 07/07/92

Source Information

Source file <PSOARCF5.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 3 (,$$REWIND)^%ZIS  ^%ZISC  $$STATUS^%ZISH  
Outpatient Pharmacy 3 KILLARC^PSOARCCO  ^PSOARCDE  EN^PSOHLSN  
VA Fileman 3 ^DIE  ^DIK  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSOARCF4  

Entry Points

Name Comments DBIA/ICR reference
TAPE1 ;Invoked from ^PSOARCF4
PSOAT ;CHECK FOR EOF
QMES
ARC ;ARCHIVE INFO - invoked by ^PSOARC
END
MES ;sto archived Rx's in Pharmacy Patient file (#55)
VAR ;Invoked by ^PSOARCS1 and ^PSOARCF5
CLOSE

External References

Name Field # of Occurrence
^%ZIS CLOSE, CLOSE+1
$$REWIND^%ZIS PSOAT+1
^%ZISC CLOSE, CLOSE+1, VAR+3
$$STATUS^%ZISH PSOAT+1
^DIE MES+2, MES+5
^DIK ARC+10
^DIR ARC+2, ARC+4, ARC+5
KILLARC^PSOARCCO END+3
^PSOARCDE ARC+12
EN^PSOHLSN ARC+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @PSOACPF
  • Line Location: CLOSE+1
Function Call: WRITE
  • Prompt: !!!,"Are you sure you're ready to PURGE your ARCHIVED PRESCRIPTIONS"
  • Line Location: ARC+1
Function Call: WRITE
  • Prompt: !!,"If you do not have a current backup, exit and perform the backup"
  • Line Location: ARC+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: ARC+5
Function Call: WRITE
  • Prompt: !!,"Deleting entries from the PENDING file",!
  • Line Location: ARC+6
Function Call: WRITE
  • Prompt: "."
  • Line Location: ARC+10
Function Call: WRITE
  • Prompt: !!,"Deleting entries from the PRESCRIPTION file",!
  • Line Location: ARC+11
Function Call: WRITE
  • Prompt: "."
  • Line Location: ARC+12
Function Call: WRITE
  • Prompt: $C(7),!!!,"Finished purging old prescriptions"
  • Line Location: ARC+13
Function Call: WRITE
  • Prompt: "!",!,T(1),!,T(2),!
  • Line Location: TAPE1+1
Function Call: WRITE
  • Prompt: !!,"HFS file failed to rewind"
  • Line Location: PSOAT+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
  • %ZIS
  • Line Location:
    • PSOAT+1
Routine Call
  • DIE
  • Line Location:
    • MES+2
    • MES+5
Routine Call
  • DIR
  • Line Location:
    • ARC+2
    • ARC+4
    • ARC+5
Routine Call
  • %ZIS
  • Line Location:
    • CLOSE
    • CLOSE+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(52.41 - [#52.41] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("OS" ARC+5
^PS(52.41 - [#52.41] ARC+7, ARC+8, ARC+9
^PS(55 - [#55] MES+2, MES+3, MES+4*
^PSOARC - [#52.8] END+3, CLOSE+2
^PSRX - [#52] ARC+12
^TMP($J END!

Label References

Name Line Occurrences
CLOSE PSOARCF5+2, PSOAT+1
MES ARC+12
PSOAT TAPE1+1
QMES MES+2, MES+4

Naked Globals

Name Field # of Occurrence
^(0 ARC+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END+1!
%DT END+2!, ARC+14!
%MT END+1!
%Y END+2!, ARC+14!
A TAPE1+1*, TAPE1+3, TAPE1+6!
C END+1!
D TAPE1+1*, TAPE1+2, TAPE1+6!
D0 END+2!, ARC+14!
D1 END+2!, ARC+14!
D2 END+2!, ARC+14!
DA END+2!, ARC+10*!, ARC+14!, MES+2*, MES+5*
DG TAPE1+1*, TAPE1+4, TAPE1+6!
DI END+2!, ARC+14!
DIE END+2!, ARC+14!, MES+2*!, MES+5*!
DIK ARC+10*!
DIR END+2!, ARC+2!, ARC+4!, ARC+5!, ARC+14!
DIR("A" ARC+2*, ARC+4*, ARC+5*
DIR("T" ARC+2*, ARC+4*, ARC+5*
DIR(0 ARC+2*, ARC+4*, ARC+5*
DIRUT END+1!, ARC+2, ARC+4, ARC+5
DLAYGO END+2!, ARC+14!
DQ END+2!, ARC+14!
DR END+2!, ARC+14!, MES+2*, MES+5*
DR(2 MES+2*, MES+5*
DT MES+2, MES+3, MES+4, MES+5
DTIME ARC+2, ARC+4, ARC+5
DUSYS END+1!
GD TAPE1+1*, TAPE1+5, TAPE1+6!
IK END+2!, ARC+14!
IO(0 CLOSE, CLOSE+1, PSOAT+1
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+14!, MES+1*, MES+3*
LST ARC+14!, MES+1*, MES+3*, MES+4
NM END!
PAT END+2!, ARC+14!
PDRX ARC+7*, ARC+8, ARC+9, ARC+10, ARC+14!
PG END!
PHYS END!
PI END!
PLGTH ARC+14!, MES+4*
PNODE ARC+14!, MES+4*
POP END+1!
PSABS END!
PSDIS END!
PSLC END!
PSOAC END!
PSOACD END+2!, ARC+12*, ARC+14!, MES+2, MES+3, MES+4, MES+5
PSOACP PSOARCF5+2*, END!
PSOACPF END!, CLOSE+1
PSOACPL END!
PSOACPM END!
PSOACRS END!
PSOACT PSOARCF5+2, END!
PSOAF END!
PSOAIO END+2!, PSOAT+1
PSOAIOT END+2!, PSOAT+1
PSOAM END!
PSOAP PSOARCF5+2!, END!, CLOSE+1
PSOAPAR END!, END+2!, PSOAT+1
PSOAPF END+1!
PSOAPG END!
PSOAT PSOARCF5+2!, END!, CLOSE, PSOAT+1, PSOAT+2
PSOATNM END+1!
PSOK END+2!, ARC+14!
>> PSORWND PSOAT+1*
PSPRCNT END!
PSPRNP END!
PSRST END+1!
RFDATE END!
RFL END!
RFL1 END!
RM END!
RX END+2!, ARC+12*, ARC+14!
RX0 END+2!
RX1 ARC+12*, ARC+14!, MES+2, MES+4, MES+5
SS END+1!
SSN END+1!
ST END!
ST0 END!
STAT ARC+8*, ARC+10!
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!
X1 END!
X2 END!
XNEW END+1!
XNM END+1!
XSS END+1!
XX END+1!
>> Y ARC+2, ARC+4, ARC+5
ZI END!
ZII END!
ZZI END+2!, ARC+14!
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