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 |  Local Variables |  All
Print Page as PDF
Routine: PSJ074

Package: Inpatient Medications

Routine: PSJ074


Information

PSJ074 ;BIR/JCH-Check for stop date problems; 28-NOV-01

Source Information

Source file <PSJ074.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 2 ^%ZTLOAD  ($$FMADD,$$FMDIFF)^XLFDT  
Inpatient Medications 1 (IVSTART,IVSTOP,UDSTART,UDSTOP,XREFS)^PSJ0742  
MailMan 1 ^XMD  
Registration 1 DEM^VADPT  
VA Fileman 1 NOW^%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+3, SENDMSG+1, CLEANMSG+3
^%ZTLOAD ENNV+2
IVSTART^PSJ0742 CLEAN+89
IVSTOP^PSJ0742 CLEAN+89
UDSTART^PSJ0742 CLEAN+88
UDSTOP^PSJ0742 CLEAN+88
XREFS^PSJ0742 ENQN+25
DEM^VADPT CLEAN+7
$$FMADD^XLFDT ENQN+4
$$FMDIFF^XLFDT SENDMSG+3
^XMD SENDMSG+6, CLEANMSG+5

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+72, CLEANMSG+3
^PS(50.7 - [#50.7] CLEAN+22, CLEAN+34
^PS(52.6 - [#52.6] CLEAN+38
^PS(55 - [#55] ENQN+8, ENQN+10, ENQN+11, ENQN+13, ENQN+16, CLEAN+10, CLEAN+18, CLEAN+21, CLEAN+24, CLEAN+25
, CLEAN+27, CLEAN+28, CLEAN+33, CLEAN+35, CLEAN+36, CLEAN+37, CLEAN+41, CLEAN+42, CLEAN+44, CLEAN+45
^XTMP("PSJ XREF" ENQN+5!
^XTMP("PSJ" ENQN+5!, ENQN+19*, ENQN+21*, ENQN+22*, ENQN+24, CLEAN+5, CLEAN+9

Label References

Name Line Occurrences
CLEAN ENQN+24
CLEANMSG CLEAN+91, CLEAN+92
SENDMSG ENQN+23

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ENQN+3, SENDMSG+1, SENDMSG+3, CLEANMSG+3
AD CLEAN+2~, CLEAN+36*, CLEAN+37
AEN CLEAN+2~, CLEAN+4*, CLEAN+37*, CLEAN+38
BEG CLEAN+2~, CLEAN+4*, CLEAN+91*, CLEAN+92, CLEANMSG~, CLEANMSG+2, CLEANMSG+4
BLANK CLEAN+3~, CLEAN+4*, CLEAN+69, CLEAN+75, CLEAN+83
CREAT ENQN+1~, ENQN+3*, ENQN+4, ENQN+22
DAYS DONE+1!, SENDMSG+3*, SENDMSG+4
DFN CLEAN+2~, CLEAN+7*
DUZ ENNV+1, SENDMSG+1, CLEANMSG+3
END CLEAN+2~, CLEAN+4*, CLEAN+90*, CLEAN+91, CLEAN+92, CLEANMSG~, CLEANMSG+2, CLEANMSG+4
EXPR ENQN+1~, ENQN+4*, ENQN+22
FOLL0 CLEAN+2~, CLEAN+14!, CLEAN+24*, CLEAN+41*, CLEAN+43
FOLL2 CLEAN+13!, CLEAN+25*, CLEAN+42*, CLEAN+43
>> FOLPO CLEAN+24*, CLEAN+43*, CLEAN+62
FOLSTRT CLEAN+13!, CLEAN+25*, CLEAN+43*, CLEAN+62, CLEAN+63
FSTOP CLEAN+2~, CLEAN+13!, CLEAN+72*, CLEAN+74*, CLEAN+76
FSTRT CLEAN+2~, CLEAN+13!, CLEAN+72*, CLEAN+74*, CLEAN+76
HOURS DONE+1!, SENDMSG+3*, SENDMSG+4
MINS DONE+1!, SENDMSG+3*, SENDMSG+4
>> ND2 ENQN+16*, ENQN+17
OCNT ENQN+1~, ENQN+4*, ENQN+19*, ENQN+21*, SENDMSG+5
OI CLEAN+3~, CLEAN+14!, CLEAN+21*, CLEAN+22, CLEAN+33*, CLEAN+34
OINAME CLEAN+3~, CLEAN+13!, CLEAN+22*, CLEAN+34*, CLEAN+37, CLEAN+38*, CLEAN+39*, CLEAN+74*, CLEAN+75, CLEAN+82*
, CLEAN+83
OPSJSTP CLEAN+3~, CLEAN+12~, CLEAN+19*, CLEAN+32*
OPSJSTRT CLEAN+3~, CLEAN+12~, CLEAN+20*, CLEAN+31*
>> ORD ENQN+10*, ENQN+11, ENQN+13, ENQN+16, ENQN+19, ENQN+21
PCNT CLEAN+2~, CLEAN+4*, CLEAN+69*, CLEAN+71, CLEAN+74*, CLEAN+75, CLEAN+76, CLEAN+77*, CLEAN+78, CLEAN+79
, CLEAN+80, CLEAN+81*, CLEAN+85, CLEAN+91*
PO CLEAN+2~
PREV0 CLEAN+13!, CLEAN+28*, CLEAN+29
PREV2 CLEAN+2~, CLEAN+44*, CLEAN+46
PREVFO CLEAN+13!, CLEAN+28*, CLEAN+46*, CLEAN+57
>> PREVRFO CLEAN+29*, CLEAN+46*
PSG DONE+1!, SENDMSG+1!, CLEAN+91!
PSG( CLEAN+71*, CLEAN+75*, CLEAN+76*, CLEAN+78*, CLEAN+79*, CLEAN+80*, CLEAN+85*
PSG(1 SENDMSG+2*, CLEANMSG+4*
PSG(2 SENDMSG+2*, CLEANMSG+4*
PSG(3 SENDMSG+4*
PSG(4 SENDMSG+4*
PSG(5 SENDMSG+4*
PSG(6 SENDMSG+5*
PSGTMP CLEAN+3~, CLEAN+69*, CLEAN+70*, CLEAN+71, CLEAN+83*, CLEAN+84*, CLEAN+85
PSJBEG ENQN+1~
PSJFOL CLEAN+2~, CLEAN+12~, CLEAN+17*, CLEAN+23, CLEAN+24, CLEAN+25, CLEAN+40*, CLEAN+41, CLEAN+42
PSJLOG CLEAN+1~
PSJND CLEAN+1~, CLEAN+10*, CLEAN+11, CLEAN+16, CLEAN+17, CLEAN+18, CLEAN+31, CLEAN+32
PSJND0 ENQN+1~, ENQN+13*, ENQN+14
PSJND2 ENQN+1~, CLEAN+1~, CLEAN+18*, CLEAN+19, CLEAN+20, CLEAN+35*, CLEAN+40
PSJORD ENQN+1~, CLEAN+1~, CLEAN+8*, CLEAN+9*, CLEAN+10, CLEAN+18, CLEAN+21, CLEAN+33, CLEAN+35, CLEAN+36
, CLEAN+37, CLEAN+57, CLEAN+62, CLEAN+80, CLEAN+84
PSJOSTP CLEAN+1~, CLEAN+27*, CLEAN+45*, CLEAN+57, CLEAN+58
PSJPDFN ENQN+1~, ENQN+8*, ENQN+10, ENQN+11, ENQN+13, ENQN+16, ENQN+19, ENQN+21, CLEAN+1~, CLEAN+4*
, CLEAN+5*, CLEAN+7, CLEAN+9, CLEAN+10, CLEAN+18, CLEAN+21, CLEAN+24, CLEAN+25, CLEAN+27, CLEAN+28
, CLEAN+33, CLEAN+35, CLEAN+36, CLEAN+37, CLEAN+41, CLEAN+42, CLEAN+44, CLEAN+45
PSJPREV CLEAN+12~, CLEAN+18*, CLEAN+26, CLEAN+27, CLEAN+28, CLEAN+40*, CLEAN+44, CLEAN+45
PSJST CLEAN+12~, CLEAN+16*, CLEAN+31*, CLEAN+77
PSJSTART ENQN+3*, DONE+1!, SENDMSG+3
PSJSTOP ENQN+1~, ENQN+14*, ENQN+17*, ENQN+18
PSJSTP CLEAN+12~, CLEAN+19*, CLEAN+32*, CLEAN+62, CLEAN+63*, CLEAN+64*, CLEAN+65*, CLEAN+66*, CLEAN+68, CLEAN+72
, CLEAN+81, CLEAN+84
PSJSTRT ENQN+2~, ENQN+14*, ENQN+16*, ENQN+19, ENQN+20, ENQN+21, CLEAN+1~, CLEAN+12~, CLEAN+20*, CLEAN+31*
, CLEAN+57, CLEAN+58*, CLEAN+59*, CLEAN+60*, CLEAN+61*, CLEAN+68, CLEAN+72, CLEAN+81, CLEAN+83, CLEAN+84
RFO CLEAN+2~
START ENQN+1~
STOPCHG CLEAN+13!, CLEAN+63*, CLEAN+64*, CLEAN+65*, CLEAN+66*, CLEAN+68, CLEAN+73, CLEAN+77, CLEAN+82, CLEAN+88
, CLEAN+89
STRTCHG CLEAN+13!, CLEAN+58*, CLEAN+59*, CLEAN+60*, CLEAN+61*, CLEAN+68, CLEAN+73, CLEAN+82, CLEAN+88, CLEAN+89
TYP ENQN+9*, ENQN+10, ENQN+11, ENQN+12, ENQN+15, ENQN+16, ENQN+19, ENQN+21, CLEAN+3~, CLEAN+6*
, CLEAN+9, CLEAN+10, CLEAN+15, CLEAN+30, CLEAN+71, CLEAN+78, CLEAN+88, CLEAN+89
VADM CLEAN+7!
VADM(1 CLEAN+69
VADM(2 CLEAN+70
X DONE+1!, SENDMSG+3*
XMDUZ DONE+1!, SENDMSG+1*, CLEANMSG+1*
XMSUB DONE+1!, SENDMSG+1*, CLEANMSG+2*
XMTEXT DONE+1!, SENDMSG+1*, CLEANMSG+3*
XMY DONE+1!, SENDMSG+1!, CLEANMSG+1!
XMY( SENDMSG+1*, CLEANMSG+3*
Y DONE+1!, SENDMSG+1*, SENDMSG+2, CLEAN+1~, CLEAN+72*, CLEANMSG+3*, CLEANMSG+4
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 |  Local Variables |  All