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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSJ0066

Package: Inpatient Medications

Routine: PSJ0066


Information

PSJ0066 ;BIR/JLC - Check for null start dates/times ; 28-NOV-01

Source Information

Source file <PSJ0066.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 2 ^%ZTLOAD  ($$FMADD,$$FMDIFF)^XLFDT  
MailMan 1 ^XMD  
Registration 1 DEM^VADPT  
VA Fileman 1 (NOW,YMD)^%DTC  

Entry Points

Name Comments DBIA/ICR reference
DONE ;
ENNV ; Begin check of existing orders
CLEAN ;
CLEANMSG(BEG,END)
ENQN ; Check of existing Pharmacy orders.
SENDMSG ;Send mail message when check is complete.

External References

Name Field # of Occurrence
NOW^%DTC ENQN+2, SENDMSG+1, CLEANMSG
YMD^%DTC ENQN+6
^%ZTLOAD ENNV+2
DEM^VADPT CLEAN+4
$$FMADD^XLFDT ENQN+2
$$FMDIFF^XLFDT SENDMSG+3
^XMD SENDMSG+6, CLEANMSG+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Your DUZ is not defined. It must be defined to run this routine."
  • Line Location: ENNV+1
Function Call: WRITE
  • Prompt: !!,"The check of existing Pharmacy orders is",$S($D(ZTSK):"",1:" NOT")," queued",!
  • Line Location: ENNV+3
Function Call: WRITE
  • Prompt: " (to start NOW).",!!,"YOU WILL RECEIVE A MAILMAN MESSAGE WHEN TASK #"_ZTSK_" HAS COMPLETED. IF"
  • Line Location: ENNV+5
Function Call: WRITE
  • Prompt: !,"ERRORS ARE DETECTED, YOU WILL RECEIVE A SECOND MESSAGE INDICATING CLEANUP"
  • Line Location: ENNV+6
Function Call: WRITE
  • Prompt: !,"HAS COMPLETED."
  • Line Location: ENNV+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" SENDMSG+1, CLEAN+55, CLEAN+56, CLEANMSG
^PS(50.7 - [#50.7] CLEAN+11
^PS(52.6 - [#52.6] CLEAN+17
^PS(55 - [#55] ENQN+8, ENQN+10, ENQN+12, ENQN+13, ENQN+16, ENQN+18, ENQN+20, ENQN+21, CLEAN+6, CLEAN+9
, CLEAN+10, CLEAN+11, CLEAN+12, CLEAN+13, CLEAN+15, CLEAN+16, CLEAN+17, CLEAN+18, CLEAN+19, CLEAN+26*
, CLEAN+27!, CLEAN+28*, CLEAN+30*, CLEAN+31!, CLEAN+32*, CLEAN+36, CLEAN+37, CLEAN+46*, CLEAN+47!, CLEAN+48*
, CLEAN+50*, CLEAN+51!, CLEAN+52*, CLEAN+53, CLEAN+54
^XTMP("PSJ" ENQN+3!, ENQN+14*, ENQN+22*, ENQN+23*, ENQN+25, CLEAN+3, CLEAN+5

Label References

Name Line Occurrences
CLEAN ENQN+25
CLEANMSG CLEAN+60, CLEAN+61
SENDMSG ENQN+24

Naked Globals

Name Field # of Occurrence
^( CLEAN+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ENQN+2, SENDMSG+1, SENDMSG+3, CLEANMSG
>> %H ENQN+6*
AD CLEAN+1~, CLEAN+17*
AIEN CLEAN+1~, CLEAN+17*
BEG CLEAN+1~, CLEAN+2*, CLEAN+60*, CLEAN+61, CLEANMSG~, CLEANMSG+1
BLANK CLEAN+1~, CLEAN+2*, CLEAN+39, CLEAN+57, CLEAN+59
CREAT ENQN+1~, ENQN+2*, ENQN+23
DAYS DONE+1!, SENDMSG+3*, SENDMSG+4
DFN CLEAN+1~, CLEAN+4*
DUZ ENNV+1, SENDMSG+1, CLEANMSG
END CLEAN+1~, CLEAN+2*, CLEAN+60*, CLEAN+61, CLEANMSG~, CLEANMSG+1
EXPR ENQN+1~, ENQN+2*, ENQN+23
FO CLEAN+1~, CLEAN+12*, CLEAN+18*, CLEAN+24
FSTOP CLEAN+1~, CLEAN+7!, CLEAN+56*, CLEAN+58*, CLEAN+59
FSTRT CLEAN+1~, CLEAN+7!, CLEAN+55*, CLEAN+58*, CLEAN+59
HOURS DONE+1!, SENDMSG+3*, SENDMSG+4
MINS DONE+1!, SENDMSG+3*, SENDMSG+4
OCNT ENQN+1~, ENQN+2*, ENQN+14*, ENQN+22*, SENDMSG+5
OI CLEAN+1~, CLEAN+11*
OINAME CLEAN+1~, CLEAN+7!, CLEAN+11*, CLEAN+17*, CLEAN+58*, CLEAN+59
OPSJSTRT CLEAN+1~, CLEAN+10*, CLEAN+15*, CLEAN+27, CLEAN+31, CLEAN+36*, CLEAN+37*, CLEAN+47, CLEAN+51, CLEAN+54*
PCNT CLEAN+1~, CLEAN+2*, CLEAN+39*, CLEAN+40*, CLEAN+57*, CLEAN+59*, CLEAN+60*
PREV0 CLEAN+1~, CLEAN+12*
PREV2 CLEAN+1~, CLEAN+18*
PSG DONE+1!, SENDMSG+1!, CLEAN+60!
PSG( CLEAN+39*, CLEAN+40*, CLEAN+57*, CLEAN+59*
PSG(1 SENDMSG+2*, CLEANMSG+1*
PSG(2 SENDMSG+2*, CLEANMSG+1*
PSG(3 SENDMSG+4*
PSG(4 SENDMSG+4*
PSG(5 SENDMSG+4*
PSG(6 SENDMSG+5*
PSJBEG ENQN+1~, ENQN+7*, ENQN+8*, ENQN+10, ENQN+12, ENQN+15*, ENQN+16*, ENQN+18, ENQN+20
PSJLOG CLEAN+1~
PSJND CLEAN+1~, CLEAN+9*, CLEAN+15*, CLEAN+37*, CLEAN+54*
PSJND0 ENQN+1~, ENQN+21*
PSJND2 ENQN+1~, ENQN+13*, CLEAN+1~, CLEAN+10*, CLEAN+16*, CLEAN+36*, CLEAN+53*
PSJORD ENQN+1~, ENQN+11*, ENQN+12*, ENQN+13, ENQN+14, ENQN+19*, ENQN+20*, ENQN+21, ENQN+22, CLEAN+1~
, CLEAN+3*, CLEAN+5*, CLEAN+6, CLEAN+9, CLEAN+10, CLEAN+11, CLEAN+15, CLEAN+16, CLEAN+17, CLEAN+24
, CLEAN+26, CLEAN+27, CLEAN+28, CLEAN+30, CLEAN+31, CLEAN+32, CLEAN+36, CLEAN+37, CLEAN+40, CLEAN+46
, CLEAN+47, CLEAN+48, CLEAN+50, CLEAN+51, CLEAN+52, CLEAN+53, CLEAN+54
PSJOSTP CLEAN+1~, CLEAN+13*, CLEAN+19*, CLEAN+26, CLEAN+28, CLEAN+30, CLEAN+32
PSJPDFN ENQN+1~, ENQN+9*, ENQN+10*, ENQN+12, ENQN+13, ENQN+14, ENQN+17*, ENQN+18*, ENQN+20, ENQN+21
, ENQN+22, CLEAN+1~, CLEAN+2*, CLEAN+3*, CLEAN+4, CLEAN+5, CLEAN+6, CLEAN+9, CLEAN+10, CLEAN+11
, CLEAN+12, CLEAN+13, CLEAN+15, CLEAN+16, CLEAN+17, CLEAN+18, CLEAN+19, CLEAN+26, CLEAN+27, CLEAN+28
, CLEAN+30, CLEAN+31, CLEAN+32, CLEAN+36, CLEAN+37, CLEAN+46, CLEAN+47, CLEAN+48, CLEAN+50, CLEAN+51
, CLEAN+52, CLEAN+53, CLEAN+54
PSJPREV CLEAN+1~, CLEAN+9*, CLEAN+12, CLEAN+13, CLEAN+16*, CLEAN+18, CLEAN+19, CLEAN+23
PSJST CLEAN+1~, CLEAN+9*, CLEAN+15*
PSJSTART ENQN+2*, DONE+1!, SENDMSG+3
PSJSTP CLEAN+1~, CLEAN+53*, CLEAN+54*, CLEAN+56
PSJSTRT ENQN+1~, ENQN+13*, ENQN+14, ENQN+21*, ENQN+22, CLEAN+1~, CLEAN+10*, CLEAN+15*, CLEAN+23, CLEAN+36*
, CLEAN+37*, CLEAN+38, CLEAN+44*, CLEAN+46, CLEAN+48, CLEAN+50, CLEAN+52, CLEAN+53*, CLEAN+54*, CLEAN+55
RFO CLEAN+1~, CLEAN+12*, CLEAN+18*, CLEAN+24
START ENQN+1~, ENQN+6*, ENQN+7, ENQN+15
TYP CLEAN+1~, CLEAN+3*, CLEAN+5, CLEAN+6, CLEAN+8, CLEAN+14, CLEAN+25, CLEAN+29, CLEAN+36, CLEAN+37
, CLEAN+39, CLEAN+45, CLEAN+49, CLEAN+53, CLEAN+54, CLEAN+57
VADM CLEAN+4!
VADM(1 CLEAN+39, CLEAN+57
VADM(2 CLEAN+39, CLEAN+57
X ENQN+6, DONE+1!, SENDMSG+3*
XMDUZ DONE+1!, SENDMSG+1*, CLEANMSG*
XMSUB DONE+1!, SENDMSG+1*, CLEANMSG*
XMTEXT DONE+1!, SENDMSG+1*, CLEANMSG*
XMY DONE+1!, SENDMSG+1!, CLEANMSG!
XMY( SENDMSG+1*, CLEANMSG*
Y DONE+1!, SENDMSG+1*, SENDMSG+2, CLEAN+1~, CLEAN+55*, CLEAN+56*, CLEANMSG*, CLEANMSG+1
ZTDESC ENNV+2*, DONE+1!
ZTDTH DONE+1!
ZTIO ENNV+2*, DONE+1!
ZTREQ DONE+1!*
ZTRTN ENNV+2*, DONE+1!
ZTSAVE ENNV+2!, DONE+1!
ZTSK ENNV+2!, ENNV+3, ENNV+4, ENNV+5, DONE+1!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All