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

Package: Inpatient Medications

Routine: PSJEXP


Information

PSJEXP ;BIR/CML3,KKA-MEDICATION EXPIRATION NOTICES ;13 FEB 96 / 10:04 AM

Source Information

Source file <PSJEXP.m>

Call Graph

Call Graph Total: 18

Package Total Call Graph
Inpatient Medications 13 $$EN^PSGCT  ENP^PSGGAO  ($$ENDTC,$$ENMRN,$$ENNPN)^PSGMI  ENUNM^PSGOU  ^PSGSEL  (ENCV,ENKV)^PSGSETU  ENDEV^PSGTI  GT55^PSIVORFB  
^PSJAC  (,LIST)^PSJEXP0  DRGDISP^PSJLMUT1  ADMTM^PSJPDIR  $$NFWS^PSJUTL1  
VA Fileman 4 ^%DT  NOW^%DTC  ^DIC  ^DIR  
Kernel 1 ^%ZISC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSJ EXP  

Entry Points

Name Comments DBIA/ICR reference
LG
C ;
GSIV
GS
LC ;
G
LW
LL
CDIC ;
L ;
W
ENQ
DONE
DTM
LP
ARSETIV
DT
LDIC ;
P
ARSET

External References

Name Field # of Occurrence
^%DT DT
NOW^%DTC ENQ
^%ZISC DONE
^DIC CDIC+1, LDIC+1, G, W
^DIR C+2, L+2
$$EN^PSGCT ENQ
ENP^PSGGAO P
$$ENDTC^PSGMI ENQ
$$ENMRN^PSGMI ARSET+1
$$ENNPN^PSGMI ARSET
ENUNM^PSGOU LP
^PSGSEL PSJEXP+7
ENCV^PSGSETU PSJEXP+6
ENKV^PSGSETU DONE
ENDEV^PSGTI PSJEXP+13
GT55^PSIVORFB ARSETIV
^PSJAC LP
^PSJEXP0 ENQ+1
LIST^PSJEXP0 PSJEXP+11
DRGDISP^PSJLMUT1 ARSET+4
ADMTM^PSJPDIR PSJEXP+8
$$NFWS^PSJUTL1 ARSET+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: C+2
Function Call: WRITE
  • Prompt: !
  • Line Location: L+2
Function Call: WRITE
  • Prompt: !
  • Line Location: G+0
Function Call: WRITE
  • Prompt: !
  • Line Location: G+0
Function Call: WRITE
  • Prompt: S
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !
  • Line Location: W+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: !,"No ",D," date chosen for notices run."
  • Condition for execution: Y<0
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: !!?2,"Enter the ",D," date of the range of dates to find orders about to expire.",!,"The start date and stop date may be the same."
  • Line Location: DTM+0
Function Call: WRITE
  • Prompt: " The stop date may not come before the start date."
  • Condition for execution: D="stop"
  • Line Location: DTM+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DTM+0
Routine Call
  • DIC
  • Line Location:
    • CDIC+1
    • LDIC+1
    • G
    • W
Routine Call
  • DIR
  • Line Location:
    • C+2
    • L+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(42 - [#42] Classic Fileman Calls
^SC - [#44] Classic Fileman Calls
^PS(57.5 - [#57.5] Classic Fileman Calls
^PS(57.8 - [#57.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] LW
^DPT("CN" LW+2
^PS(55 - [#55] LC+1, LC+2, LC+3, LC+4, LP, GS, GSIV+1, GSIV+2, ARSET, ARSET+2
^PS(57.5 - [#57.5] LG
^PS(57.7 - [#57.7] LP+2, LP+3
^PS(57.8 - [#57.8] LL
^TMP("PSG" ENQ+1!, DONE!, GS+1, GSIV+3, ARSET+6*, ARSETIV+3*

Label References

Name Line Occurrences
@( PSJEXP+7, ENQ+1
ARSET GS
ARSETIV GSIV+2
DONE PSJEXP+7, PSJEXP+10, PSJEXP+11, PSJEXP+13
DT PSJEXP+10
DTM DT
GS LP+5
GSIV LP+5
LC LL
LP LC+2, LC+4, LW+2
LW LG

Naked Globals

Name Field # of Occurrence
^( GS+1*, GS+3*, GSIV+3*, GSIV+5*, ARSET+2
^(0 LW, LP+2, GS, GSIV+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ENQ, DONE!
%DT PSJEXP+7!, PSJEXP+10*!
%DT(0 PSJEXP+10*
ADCNT DONE!
AM DONE!
>> CG LL, LDIC+1*
CHOICE DONE!, LP+5
>> CL LL*, CDIC+1*
>> CLINIC LC+1*, LC+2, LC+3*, LC+4
CNT DONE!
D PSJEXP+10*, DONE!, DT, DTM
DFN DONE!, ARSETIV*
DIC PSJEXP+7!, CDIC+1!*, LDIC+1!*, G*!, W*!
DIC("A" W*
DIC(0 CDIC+1*, LDIC+1*, G*, W*
DIR C+1!, L+1!
DIR("?" C+2*, L+2*
DIR("A" C+1*, L+1*
DIR(0 C+1*, L+1*
DO DONE!, ARSET+2*, ARSET+6
DOB DONE!
DRG DONE!, ARSET+2*, ARSET+5*, ARSET+6, ARSETIV+1*, ARSETIV+3
DRG("AD" ARSETIV+1
DRG("SOL" ARSETIV+1
DRGI DONE!
DRGN DONE!
DRGT DONE!
DTIME DT
DTOUT DONE!
DUOUT DONE!
FD ENQ*, DONE!, GS, GSIV+1
FSTFLG DONE!
GMRAREC DONE!
IOST PSJEXP+14
IR DONE!, ARSETIV+1*, ARSETIV+3
>> JDFN LC+2*, LC+4*
JJ DONE!
LNCNT DONE!
MR DONE!, ARSET*, ARSET+1*, ARSET+6, ARSETIV+1*, ARSETIV+3
ND DONE!, ARSET*, ARSET+2*
ND3 DONE!
ND4 DONE!
NF DONE!
ON DONE!, ARSETIV*
ON55 ARSETIV~
OPI DONE!
OUT PSJEXP+5~, PSJEXP+11
P DONE!
P("MR" ARSETIV+1
P(17 ARSETIV+1
P(2 ARSETIV+1
P(6 ARSETIV+1
P(8 ARSETIV+1
P(9 ARSETIV+1
POP PSJEXP+13, DONE+2!
PPAGE PSJEXP+5~, PSJEXP+7*
PPN DONE+2!, LP+1*, GS+1, GS+3, GSIV+3, GSIV+5, ARSET+6, ARSETIV+3
PR DONE+2!, ARSET*, ARSET+6, ARSETIV+1*, ARSETIV+3
PRIMD DONE!
PSEX DONE+2!
PSG ARSET+3~, ARSET+4
PSG(1 ARSET+5
PSGDT ENQ*, DONE+2!
PSGEXPF PSJEXP+10*, ENQ, DONE+2!
PSGEXPS PSJEXP+10*, ENQ, DONE+2!
PSGOD DONE+2!
PSGP PSJEXP+7*, DONE+2!, LC+2*, LC+4*, LW+2*, LP, LP+1, GS, GSIV+1, GSIV+2
, ARSET, ARSET+1, ARSET+2, ARSET+4, ARSETIV, P
PSGP(0 LP+1, GS+1, GSIV+3, P
PSGPTMP PSJEXP+5~, PSJEXP+7*
PSGSS PSJEXP+7, PSJEXP+8, PSJEXP+9, ENQ+1, DONE+2!, G*
PSGSSH PSJEXP+7*, DONE+2!
PSGTIR PSJEXP+12*, DONE+2!
PSIVUP DONE!
PSJACNWP DONE+1!, LP~*
PSJAD DONE+1!
PSJJORD DONE+1!, GS*, GSIV+1*, GSIV+2, ARSET, ARSET+1, ARSET+2, ARSET+4, ARSET+6, ARSETIV
, ARSETIV+3
PSJMSG DONE!, G*, W*, P*
PSJNEW PSJEXP+5~*
PSJOPC DONE+2!
PSJORIFN DONE!
PSJPAD DONE+1!, GS+3, GSIV+5
PSJPAGE DONE+1!, GS+1, GSIV+3
PSJPDOB DONE+1!, GS+1, GSIV+3
PSJPDX DONE+1!, GS+1, GSIV+3
PSJPRB DONE+1!, LP+1*, LP+2, GS+1, GSIV+3, ARSET+6, ARSETIV+3
PSJPSEX DONE+1!, GS+1, GSIV+3
PSJPTD DONE+1!, GS+3, GSIV+5
PSJPWD DONE+1!, LP+2, LP+3, ARSET+1
PSJPWDN DONE+1!, GS+1, GSIV+3, ARSET+5*, ARSET+6, ARSETIV+2*, ARSETIV+3
PSJPWT DONE+1!, GS+1, GSIV+3
PSJSEL DONE+1!
PSJSEL("C" PSJEXP+9*
PSJSEL("TM" LP+2, LP+4
PSJSEL("W" PSJEXP+8*
PSJSOL DONE+1!
PST DONE+2!, GS*, GSIV*, ARSET+6, ARSETIV+3
Q DONE+2!
RF DONE+2!
SCH DONE+2!, ARSET+2*, ARSET+6, ARSETIV+1*, ARSETIV+3
SD ENQ*, DONE+2!, LP, GS, GSIV+1
SD1 DONE+2!, GS*, ARSET+6
SD1IV DONE+2!, GSIV+1*, ARSETIV+3
SEX DONE+2!
SI DONE+2!
SLS DONE+1!
SM DONE+2!, ARSET+1*, ARSET+6
SNDFLG DONE+2!
SOLCNT DONE+2!
SSN DONE+2!
ST DONE+2!, ARSET*, ARSET+6, ARSETIV+1*, ARSETIV+3
STD DONE+2!, ARSET+2*, ARSET+6, ARSETIV+1*, ARSETIV+3
>> STDTE LC+1*, LC+2, LC+3*, LC+4
TEAM DONE+2!
TEMPTM DONE+2!, LP+3*, LP+4
TM DONE+2!, LP+2*, LP+3, GS+1, GSIV+3, ARSET+6, ARSETIV+3
U GS, GSIV+2, ARSET+1, ARSETIV+1
VA DONE+2!
VA("PID" GS+1, GSIV+3
WCNT DONE+2!
WD PSJEXP+7*, PSJEXP+8, DONE+2!, LG*, LW, W*
WDN DONE+2!, LW*, LW+2
WG PSJEXP+7*, DONE+2!, LG, G*
WRD DONE+2!
WS DONE+2!
WT DONE+2!
X PSJEXP+12*, ENQ*, DONE+2!, CDIC+2, LDIC+2, ARSET+1*, ARSET+3~, ARSETIV~, G, DT*
XQUIT PSJEXP+6, DONE+2!
Y PSJEXP+7, PSJEXP+10, DONE+2!, CDIC+1, LDIC+1, G*, W, P*, DT*
Y(0 G*, W
Y1 DONE+1!
>> ZTDESC PSJEXP+12*
ZTDTH PSJEXP+12!
ZTSAVE PSJEXP+12!
ZTSAVE( PSJEXP+12*
>> ZTSK PSJEXP+13
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