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

Package: Inpatient Medications

Routine: PSJ5P193


Information

PSJ5P193 ;NCD - Check for null start date/times ; 2/4/09 11:26am

Source Information

Source file <PSJ5P193.m>

Call Graph

Call Graph Total: 6

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

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC START+3, SENDMSG+3, CLEANMSG+4
YMD^%DTC START+7
^%ZTLOAD ENVN+3
EN^DIK CLEAN+23, CLEAN+29
DEM^VADPT CLEAN+5
$$FMADD^XLFDT START+3
$$FMDIFF^XLFDT SENDMSG+5
^XMD SENDMSG+8, CLEANMSG+6

Interaction Calls

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" SENDMSG+3, CLEAN+32, CLEAN+33, CLEANMSG+4
^PS(50.7 - [#50.7] CLEAN+10
^PS(52.6 - [#52.6] CLEAN+11
^PS(55 - [#55] START+9, START+10, START+11, START+13, START+14, START+17, START+18, START+19, START+20, CLEAN+7
, CLEAN+10, CLEAN+11, CLEAN+21*, CLEAN+22!, CLEAN+27*, CLEAN+28!, CLEAN+30, CLEAN+31
^XTMP("PSJ5P193" START+4!, START+15*, START+21*, START+22*, START+24, CLEAN+4, CLEAN+6, CLEAN+9
^XUSEC("PSJ RPHARM" CLEANMSG+3

Label References

Name Line Occurrences
CLEAN START+24
CLEANMSG CLEAN+37, CLEAN+38
SENDMSG START+23

Naked Globals

Name Field # of Occurrence
^( CLEAN+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % START+3, SENDMSG+3, SENDMSG+5, CLEANMSG+4
>> %H START+7*
>> AD CLEAN+11*
>> AIEN CLEAN+11*
BEG CLEAN+1~, CLEAN+3*, CLEAN+37*, CLEAN+38, CLEANMSG~, CLEANMSG+1, CLEANMSG+5
BLANK CLEAN+1~, CLEAN+3*, CLEAN+16, CLEAN+34, CLEAN+36
CREAT START+1~, START+3*, START+22
DA CLEAN+23!*, CLEAN+29!*
DA(1 CLEAN+23*, CLEAN+29*
>> DAYS SENDMSG+5*, SENDMSG+6
DFN CLEAN+1~, CLEAN+5*
DIFROM SENDMSG+2~, CLEANMSG~
DIK CLEAN+23!*, CLEAN+29!*
DIK(1 CLEAN+23*, CLEAN+29*
DUZ ENVN+1, SENDMSG+3
END CLEAN+1~, CLEAN+3*, CLEAN+37*, CLEAN+38, CLEANMSG~, CLEANMSG+1, CLEANMSG+5
EXPR START+1~, START+3*, START+22
FSTOP CLEAN+1~, CLEAN+8!, CLEAN+33*, CLEAN+35*, CLEAN+36
FSTRT CLEAN+1~, CLEAN+8!, CLEAN+32*, CLEAN+35*, CLEAN+36
>> HOURS SENDMSG+5*, SENDMSG+6
LOOP CLEANMSG~, CLEANMSG+2*, CLEANMSG+3*
>> MINS SENDMSG+5*, SENDMSG+6
OI CLEAN+1~, CLEAN+10*
OINAME CLEAN+1~, CLEAN+8!, CLEAN+10*, CLEAN+11*, CLEAN+35*, CLEAN+36
PSG SENDMSG+1!, CLEAN+2!, CLEAN+37!
PSG( CLEAN+16*, CLEAN+17*, CLEAN+34*, CLEAN+36*
PSG(1 SENDMSG+4*, CLEANMSG+5*
PSG(2 SENDMSG+4*, CLEANMSG+5*
PSG(3 SENDMSG+6*
PSG(4 SENDMSG+6*
PSG(5 SENDMSG+6*
PSG(6 SENDMSG+7*
PSJBEG START+1~, START+8*, START+9*, START+10, START+11, START+16*, START+17*, START+18, START+19
PSJSTART START+1~, START+3*, SENDMSG+5
START START+1~, START+7*, START+8, START+16
TYP CLEAN+1~, CLEAN+4*, CLEAN+6, CLEAN+7, CLEAN+9, CLEAN+10, CLEAN+11, CLEAN+16, CLEAN+18, CLEAN+24
, CLEAN+30, CLEAN+31, CLEAN+34
VADM CLEAN+1~, CLEAN+5!
VADM(1 CLEAN+16, CLEAN+34
VADM(2 CLEAN+16, CLEAN+34
X START+1~, START+7, END!, SENDMSG+5*, CLEAN+1~, CLEAN+9*
X1 START+1~, END!
X2 START+1~, END!
XCNT START+1~, START+2*, START+15*, START+21*, SENDMSG+7, CLEANMSG+5
XCNTTOT START+1~, START+2*, START+12*
XMDUZ END!, SENDMSG+2~, SENDMSG+3*, CLEANMSG~, CLEANMSG+1*
XMSUB END!, SENDMSG+2~, SENDMSG+3*, CLEANMSG~, CLEANMSG+1*
XMTEXT END!, SENDMSG+2~, SENDMSG+3*, CLEANMSG~, CLEANMSG+1*
XMY END!, SENDMSG+2~, CLEANMSG~
XMY( SENDMSG+3*, CLEANMSG+3*
XPCNT CLEAN+1~, CLEAN+3*, CLEAN+16*, CLEAN+17*, CLEAN+34*, CLEAN+36*, CLEAN+37*
XPER CLEAN+1~, CLEAN+8!
XPSJDFN START+1~, START+2*, START+10*, START+11, START+13, START+14, START+15, START+16*, START+18*, START+19
, START+20, START+21, CLEAN+3*, CLEAN+4*, CLEAN+5, CLEAN+6, CLEAN+7, CLEAN+9, CLEAN+10, CLEAN+11
, CLEAN+21, CLEAN+22, CLEAN+23, CLEAN+27, CLEAN+28, CLEAN+29, CLEAN+30, CLEAN+31
XPSJLGDT START+1~, START+14*, START+15, START+20*, START+21, CLEAN+9*, CLEAN+15, CLEAN+21, CLEAN+27
>> XPSJLGTM CLEAN+9*
>> XPSJN0 START+20*
>> XPSJND0 CLEAN+31*
>> XPSJND2 START+13*, CLEAN+30*
XPSJON START+1~, START+2*, START+11*, START+13, START+14, START+15, START+16*, START+19*, START+20, START+21
, CLEAN+3*, CLEAN+6*, CLEAN+7, CLEAN+9, CLEAN+10, CLEAN+11, CLEAN+17, CLEAN+21, CLEAN+22, CLEAN+23
, CLEAN+27, CLEAN+28, CLEAN+29, CLEAN+30, CLEAN+31
XPSJSEND CLEAN+1~
XPSJSTDT START+1~, START+2*
XPSJSTP START+1~, CLEAN+30*, CLEAN+31*, CLEAN+33
XPSJSTRT START+1~, START+13*, START+15, START+20*, START+21, CLEAN+9*, CLEAN+15, CLEAN+30*, CLEAN+31*, CLEAN+32
Y START+1~, END!, SENDMSG+3*, SENDMSG+4, CLEAN+32*, CLEAN+33*, CLEANMSG+4*, CLEANMSG+5
ZSTK ENVN+2!
ZTDESC ENVN+3*, END!
>> ZTDTH ENVN+3*
ZTIO ENVN+3*, END!
>> ZTQUEUED END+1
>> ZTREQ END+1*
ZTRTN ENVN+3*, END!
ZTSAVE ENVN+2!, END!
ZTSAVE("DUZ" ENVN+3*
ZTSK ENVN+4, ENVN+5, ENVN+6, END!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All