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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSJ078A

Package: Inpatient Medications

Routine: PSJ078A


Information

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

Source Information

Source file <PSJ078A.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)^PSJ078B  
MailMan 1 ^XMD  
Registration 1 DEM^VADPT  
VA Fileman 1 NOW^%DTC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSJ0078  

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^PSJ078B CLEAN+92
IVSTOP^PSJ078B CLEAN+92
UDSTART^PSJ078B CLEAN+91
UDSTOP^PSJ078B CLEAN+91
XREFS^PSJ078B ENQN+29
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+75, CLEANMSG+3
^PS(50.7 - [#50.7] CLEAN+24, CLEAN+36
^PS(52.6 - [#52.6] CLEAN+41
^PS(55 - [#55] ENQN+8, ENQN+10, ENQN+11, ENQN+13, ENQN+15, ENQN+17, ENQN+19, CLEAN+10, CLEAN+11, CLEAN+19
, CLEAN+23, CLEAN+26, CLEAN+27, CLEAN+29, CLEAN+30, CLEAN+35, CLEAN+37, CLEAN+39, CLEAN+40, CLEAN+44
, CLEAN+45, CLEAN+47, CLEAN+48
^XTMP("PSJ XREF" ENQN+5!
^XTMP("PSJ" ENQN+5!, ENQN+21*, ENQN+23*, ENQN+25*, ENQN+26*, ENQN+28, CLEAN+5, CLEAN+9

Label References

Name Line Occurrences
CLEAN ENQN+28
CLEANMSG CLEAN+94, CLEAN+95
SENDMSG ENQN+27

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+39*, CLEAN+40
AEN CLEAN+2~, CLEAN+4*, CLEAN+40*, CLEAN+41
BEG CLEAN+2~, CLEAN+4*, CLEAN+94*, CLEAN+95, CLEANMSG~, CLEANMSG+2, CLEANMSG+4
BLANK CLEAN+3~, CLEAN+4*, CLEAN+72, CLEAN+78, CLEAN+86
CREAT ENQN+1~, ENQN+3*, ENQN+4, ENQN+26
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+93*, CLEAN+94, CLEAN+95, CLEANMSG~, CLEANMSG+2, CLEANMSG+4
EXPR ENQN+1~, ENQN+4*, ENQN+26
FOLL0 CLEAN+2~, CLEAN+15!, CLEAN+26*, CLEAN+44*, CLEAN+46
FOLL2 CLEAN+14!, CLEAN+27*, CLEAN+45*, CLEAN+46
>> FOLPO CLEAN+26*, CLEAN+46*, CLEAN+65
FOLSTRT CLEAN+14!, CLEAN+27*, CLEAN+46*, CLEAN+65, CLEAN+66
FSTOP CLEAN+2~, CLEAN+14!, CLEAN+75*, CLEAN+77*, CLEAN+79
FSTRT CLEAN+2~, CLEAN+14!, CLEAN+75*, CLEAN+77*, CLEAN+79
HOURS DONE+1!, SENDMSG+3*, SENDMSG+4
MINS DONE+1!, SENDMSG+3*, SENDMSG+4
>> ND2 ENQN+17*, ENQN+18
OCNT ENQN+1~, ENQN+4*, ENQN+21*, ENQN+23*, ENQN+25*, SENDMSG+5
OI CLEAN+3~, CLEAN+15!, CLEAN+23*, CLEAN+24, CLEAN+35*, CLEAN+36
OINAME CLEAN+3~, CLEAN+14!, CLEAN+24*, CLEAN+36*, CLEAN+40, CLEAN+41*, CLEAN+42*, CLEAN+77*, CLEAN+78, CLEAN+85*
, CLEAN+86
OPSJSTP CLEAN+3~, CLEAN+13~, CLEAN+20*, CLEAN+34*
OPSJSTRT CLEAN+3~, CLEAN+13~, CLEAN+21*, CLEAN+33*
>> ORD ENQN+10*, ENQN+11, ENQN+13, ENQN+15, ENQN+17, ENQN+19, ENQN+21, ENQN+23, ENQN+25
PCNT CLEAN+2~, CLEAN+4*, CLEAN+72*, CLEAN+74, CLEAN+77*, CLEAN+78, CLEAN+79, CLEAN+80*, CLEAN+81, CLEAN+82
, CLEAN+83, CLEAN+84*, CLEAN+88, CLEAN+94*
PO CLEAN+2~
PREV0 CLEAN+14!, CLEAN+30*, CLEAN+31
PREV2 CLEAN+2~, CLEAN+47*, CLEAN+49
PREVFO CLEAN+14!, CLEAN+30*, CLEAN+49*, CLEAN+60
>> PREVRFO CLEAN+31*, CLEAN+49*
PSG DONE+1!, SENDMSG+1!, CLEAN+94!
PSG( CLEAN+74*, CLEAN+78*, CLEAN+79*, CLEAN+81*, CLEAN+82*, CLEAN+83*, CLEAN+88*
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+72*, CLEAN+73*, CLEAN+74, CLEAN+86*, CLEAN+87*, CLEAN+88
PSJBEG ENQN+1~
PSJFOL CLEAN+2~, CLEAN+13~, CLEAN+18*, CLEAN+25, CLEAN+26, CLEAN+27, CLEAN+43*, CLEAN+44, CLEAN+45
PSJLOG CLEAN+1~
PSJND CLEAN+1~, CLEAN+10*, CLEAN+12, CLEAN+17, CLEAN+18, CLEAN+19, CLEAN+33, CLEAN+34
PSJND0 ENQN+1~, ENQN+13*, ENQN+14
PSJND2 ENQN+1~, CLEAN+1~, CLEAN+19*, CLEAN+20, CLEAN+21, CLEAN+37*, CLEAN+43
>> PSJND4 CLEAN+11*, CLEAN+22, CLEAN+38
PSJNVDT ENQN+1~, ENQN+15*, ENQN+19*, ENQN+24, ENQN+25, CLEAN+22*, CLEAN+38*
PSJORD ENQN+1~, CLEAN+1~, CLEAN+8*, CLEAN+9*, CLEAN+10, CLEAN+11, CLEAN+19, CLEAN+23, CLEAN+35, CLEAN+37
, CLEAN+39, CLEAN+40, CLEAN+60, CLEAN+65, CLEAN+83, CLEAN+87
PSJOSTP CLEAN+1~, CLEAN+29*, CLEAN+48*, CLEAN+60, CLEAN+61
PSJPDFN ENQN+1~, ENQN+8*, ENQN+10, ENQN+11, ENQN+13, ENQN+15, ENQN+17, ENQN+19, ENQN+21, ENQN+23
, ENQN+25, CLEAN+1~, CLEAN+4*, CLEAN+5*, CLEAN+7, CLEAN+9, CLEAN+10, CLEAN+11, CLEAN+19, CLEAN+23
, CLEAN+26, CLEAN+27, CLEAN+29, CLEAN+30, CLEAN+35, CLEAN+37, CLEAN+39, CLEAN+40, CLEAN+44, CLEAN+45
, CLEAN+47, CLEAN+48
PSJPREV CLEAN+13~, CLEAN+19*, CLEAN+28, CLEAN+29, CLEAN+30, CLEAN+43*, CLEAN+47, CLEAN+48
PSJST CLEAN+13~, CLEAN+17*, CLEAN+33*, CLEAN+80
PSJSTART ENQN+3*, DONE+1!, SENDMSG+3
PSJSTOP ENQN+1~, ENQN+14*, ENQN+18*, ENQN+20
PSJSTP CLEAN+13~, CLEAN+20*, CLEAN+34*, CLEAN+65, CLEAN+66*, CLEAN+67*, CLEAN+68*, CLEAN+69*, CLEAN+71, CLEAN+75
, CLEAN+84, CLEAN+87
PSJSTRT ENQN+2~, ENQN+14*, ENQN+17*, ENQN+21, ENQN+22, ENQN+23, CLEAN+1~, CLEAN+13~, CLEAN+21*, CLEAN+33*
, CLEAN+60, CLEAN+61*, CLEAN+62*, CLEAN+63*, CLEAN+64*, CLEAN+71, CLEAN+75, CLEAN+84, CLEAN+86, CLEAN+87
RFO CLEAN+2~
START ENQN+1~
STOPCHG CLEAN+14!, CLEAN+66*, CLEAN+67*, CLEAN+68*, CLEAN+69*, CLEAN+71, CLEAN+76, CLEAN+80, CLEAN+85, CLEAN+91
, CLEAN+92
STRTCHG CLEAN+14!, CLEAN+61*, CLEAN+62*, CLEAN+63*, CLEAN+64*, CLEAN+71, CLEAN+76, CLEAN+85, CLEAN+91, CLEAN+92
TYP ENQN+9*, ENQN+10, ENQN+11, ENQN+12, ENQN+16, ENQN+17, ENQN+21, ENQN+23, ENQN+25, CLEAN+3~
, CLEAN+6*, CLEAN+9, CLEAN+10, CLEAN+11, CLEAN+16, CLEAN+32, CLEAN+74, CLEAN+81, CLEAN+91, CLEAN+92
VADM CLEAN+7!
VADM(1 CLEAN+72
VADM(2 CLEAN+73
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+75*, 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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All