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

Package: Inpatient Medications

Routine: PSJ0103


Information

PSJ0103 ;BIR/JLC - Check for Non-Standard Schedules ;01-MAR-04

Source Information

Source file <PSJ0103.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 2 ^%ZTLOAD  $$FMADD^XLFDT  
VA Fileman 2 (NOW,YMD)^%DTC  $$GET1^DIQ  
Inpatient Medications 1 SENDMSG^PSJA0103  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSJU NSS SEARCH  

Entry Points

Name Comments DBIA/ICR reference
DANGER(A) ;
ENCHK ;
DWC
DONE ;
ENNV ;
MISC(X) ;
DW ;
ENQN ;

External References

Name Field # of Occurrence
NOW^%DTC ENQN+2
YMD^%DTC ENQN+4, ENQN+12
^%ZTLOAD ENNV+5
$$GET1^DIQ ENQN+36
SENDMSG^PSJA0103 ENQN+40
$$FMADD^XLFDT ENQN+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Your DUZ is not defined."
  • Line Location: ENNV+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: ENNV+2
Function Call: WRITE
  • Prompt: "Must be number, 1-999 days."
  • Line Location: ENNV+4
Function Call: WRITE
  • Prompt: !!,"The check of Pharmacy orders is",$S($D(ZTSK):"",1:" NOT")," queued",!
  • Line Location: ENNV+6
Function Call: WRITE
  • Prompt: " (to start NOW).",!!,"YOU WILL RECEIVE A MAILMAN MESSAGE WHEN TASK #"_ZTSK_" HAS COMPLETED."
  • Line Location: ENNV+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(50.606 - [#50.606] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.7 - [#50.7] ENQN+35, ENQN+36
^PS(51.1 - [#51.1] ENQN+3, ENQN+9, ENQN+19, ENQN+24, ENQN+28, ENQN+33, ENQN+37, MISC+5
^PS(52.6 - [#52.6] ENQN+22, ENQN+23, ENQN+26, ENQN+27
^PS(53.2 - [#53.2] ENQN+30, ENQN+31, ENQN+32, ENQN+33, ENQN+34
^PS(55 - [#55] ENQN+4, ENQN+5, ENQN+6, ENQN+8, ENQN+11, ENQN+12, ENQN+13, ENQN+14, ENQN+16, ENQN+17
^XTMP("PSJSC" ENQN+2!, ENQN+3*, ENQN+7*, ENQN+8*, ENQN+11*, ENQN+15*, ENQN+18*, ENQN+21*, ENQN+24*, ENQN+25*
, ENQN+28*, ENQN+29*, ENQN+33*, ENQN+34*, ENQN+37*, ENQN+38*, ENQN+39*

Label References

Name Line Occurrences
$$DANGER ENQN+3, ENQN+8, ENQN+18, ENQN+25, ENQN+29, ENQN+34, ENQN+38
DW MISC+7
DWC DW+4
ENCHK MISC+6, DW+2
ENNV ENNV+4
MISC ENQN+10, ENQN+20, ENQN+24, ENQN+28, ENQN+33, ENQN+37

Naked Globals

Name Field # of Occurrence
^( ENQN+16, ENQN+17
^(0 ENQN+6, ENQN+16, ENQN+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ENQN+2
>> %H ENQN+4*, ENQN+12*
A ENQN+1~, ENQN+16*, ENQN+17*, ENQN+23*, ENQN+24, ENQN+25, ENQN+27*, ENQN+28, ENQN+29, ENQN+32*
, ENQN+36*, ENQN+37, ENQN+38, DANGER~, DANGER+2, MISC+1~, MISC+3*
B DANGER+1~, DANGER+2*, DANGER+3
BAD DANGER+1~, DANGER+2*, DANGER+3*, DANGER+4
C DANGER+1~, DANGER+3*, MISC+1~, MISC+3*
CREAT ENQN+1~, ENQN+2*, ENQN+39
DTIME ENNV+2
DUZ ENNV+1
EXPR ENQN+1~, ENQN+2*, ENQN+39
I DANGER+3*, MISC+1~, MISC+3*
>> ITEM ENQN+16*, ENQN+17*, ENQN+18, ENQN+21
OCNT ENQN+1~
OK ENQN+1~, ENQN+10, ENQN+20, ENQN+24, ENQN+28, ENQN+33, ENQN+37, MISC+2*, MISC+4*, MISC+5*
, MISC+6*, MISC+7*
PSG DONE+1!
PSJBEG ENQN+1~, ENQN+4*, ENQN+5, ENQN+12*, ENQN+13
>> PSJDAYS ENNV+5*, ENQN+4, ENQN+12
>> PSJDOF ENQN+36*, ENQN+37, ENQN+38
PSJND0 ENQN+1~, ENQN+6*, ENQN+8, ENQN+11, ENQN+14*, ENQN+18, ENQN+21
PSJND2 ENQN+1~, ENQN+6*
PSJORD ENQN+1~, ENQN+5*, ENQN+6, ENQN+8, ENQN+11, ENQN+13*, ENQN+14, ENQN+16, ENQN+17, ENQN+18
, ENQN+21
PSJPDFN ENQN+1~, ENQN+4*, ENQN+5, ENQN+6, ENQN+8, ENQN+11, ENQN+12*, ENQN+13, ENQN+14, ENQN+16
, ENQN+17, ENQN+18, ENQN+21
PSJSCHD ENQN+1~, ENQN+2*, ENQN+3*, ENQN+6*, ENQN+7, ENQN+8, ENQN+9, ENQN+10, ENQN+11, ENQN+14*
, ENQN+15, ENQN+18, ENQN+19, ENQN+20, ENQN+21, ENQN+23*, ENQN+24, ENQN+25, ENQN+27*, ENQN+28
, ENQN+29, ENQN+32*, ENQN+33, ENQN+34, ENQN+36*, ENQN+37, ENQN+38
>> Q DW+4*
>> QX DW+3*, DWC+1*
S1 ENQN+1~, ENQN+22*, ENQN+23, ENQN+26, ENQN+27, ENQN+30*, ENQN+31, ENQN+32, ENQN+33, ENQN+34
, ENQN+35*, ENQN+36
S2 ENQN+1~, ENQN+26*, ENQN+27, ENQN+31*, ENQN+32
>> SDW DW+1*, DW+3, DW+5
>> SWD DW+1*, DW+4, DWC+1*
X ENNV+2*, ENNV+3*, ENNV+4, ENNV+5, ENQN+1~, ENQN+4, ENQN+12, DONE+1!, MISC~, MISC+2
, MISC+3*, MISC+4, MISC+5, MISC+6, MISC+7, ENCHK+1!, ENCHK+2!, ENCHK+3!, ENCHK+4!, ENCHK+5
, DW+1*, DW+2, DW+3*, DW+4!, DW+5*, DWC!, DWC+2!
X(1 ENCHK+2*, ENCHK+3*, ENCHK+4, ENCHK+5!, DW+3*, DW+4, DW+5!
X(2 ENCHK+4*, ENCHK+5!
X(3 ENCHK+4*, ENCHK+5!
XMDUZ DONE+1!
XMSUB DONE+1!
XMTEXT DONE+1!
XMY DONE+1!
Y DONE+1!, DWC+1*
>> Z DW+4*, DWC, DWC+1
ZTDESC ENNV+5*, DONE+1!
ZTDTH DONE+1!
ZTIO ENNV+5*, DONE+1!
ZTREQ DONE+1!*
ZTRTN ENNV+5*, DONE+1!
ZTSAVE ENNV+5!, DONE+1!
ZTSAVE("PSJDAYS" ENNV+5*
ZTSK ENNV+5!, ENNV+6, ENNV+7, DONE+1!
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