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

Package: Inpatient Medications

Routine: PSJ0071


Information

PSJ0071 ;BIR/JLC - Check for mis-matched schedule internal ; 19-FEB-02

Source Information

Source file <PSJ0071.m>

Call Graph

Call Graph Total: 6

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

Entry Points

Name Comments DBIA/ICR reference
LOG ; Create field change entry in activity log.
ERR
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, LOG+2
^%ZTLOAD ENNV+2
EN^PSGS0 ENQN+20
DEM^VADPT CLEAN+3
$$FMADD^XLFDT ENQN+3
$$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+12, CLEAN+13, CLEANMSG
^PS(51.1 - [#51.1] ENQN+15, ENQN+16, ENQN+17
^PS(52.6 - [#52.6] CLEAN+10
^PS(55 - [#55] ENQN+8, ENQN+10, ENQN+12, ENQN+13, CLEAN+5, CLEAN+7*, CLEAN+10, CLEAN+11, LOG+1, LOG+2*
, LOG+3, LOG+4*
^VA(200 - [#200] CLEAN+1
^XPD(9.7 - [#9.7] ENQN+7
^XTMP("PSJ71" ENQN+4!, ERR*, ERR+1*, ERR+3, CLEAN+2, CLEAN+4, CLEAN+6

Label References

Name Line Occurrences
CLEAN ERR+3
CLEANMSG CLEAN+17, CLEAN+18
ERR ENQN+15
LOG CLEAN+8
SENDMSG ERR+2

Naked Globals

Name Field # of Occurrence
^( CLEAN+10
^(0 LOG+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ENQN+3, SENDMSG+1, SENDMSG+3, CLEANMSG, LOG+1~, LOG+2
A ENQN+1~, ENQN+15*, CLEAN+6*
>> AD CLEAN+10*
>> AIEN CLEAN+10*
BEG CLEAN+1*, CLEAN+17*, CLEAN+18, CLEANMSG~
>> BLANK CLEAN+1*, CLEAN+9, CLEAN+15
CREAT ENQN+1~, ENQN+3*, ERR+1
DAYS ENQN+1~, DONE+1!, SENDMSG+3*, SENDMSG+4
>> DFN CLEAN+3*
DUZ ENNV+1, SENDMSG+1, CLEAN+1, CLEANMSG
END CLEAN+1*, CLEAN+17*, CLEAN+18, CLEANMSG~
EXPR ENQN+1~, ENQN+3*, ERR+1
>> FSTOP CLEAN+13*, CLEAN+15
>> FSTRT CLEAN+12*, CLEAN+15
HOURS DONE+1!, SENDMSG+3*, SENDMSG+4
IEN ENQN+1~, ENQN+7*
>> INS CLEAN+1*, LOG+2
MINS ENQN+1~, DONE+1!, SENDMSG+3*, SENDMSG+4
ND LOG+3*, LOG+4*!
OCNT ENQN+1~, ENQN+2*, ERR*, SENDMSG+5
>> OINAME CLEAN+10*, CLEAN+14*, CLEAN+15
>> PCNT CLEAN+1*, CLEAN+9*, CLEAN+15*, CLEAN+16*, CLEAN+17*
PSG DONE+1!, SENDMSG+1!, CLEAN+17!
PSG( CLEAN+9*, CLEAN+15*, CLEAN+16*
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*
>> PSGOES ENQN+2*
PSGS0XT ENQN+1~, ENQN+14!, ENQN+15*, ENQN+20*, ENQN+21, ERR, CLEAN+6*, CLEAN+7, LOG+4
PSGST ENQN+1~, ENQN+15*
>> PSIVLN LOG+1*, LOG+2, LOG+3, LOG+4
PSJADM ENQN+1~, ENQN+13*, ENQN+16
PSJBEG ENQN+1~, ENQN+7*, ENQN+8*, ENQN+10, ENQN+12
PSJFRE ENQN+1~, ENQN+13*, ENQN+14, ENQN+15, ENQN+21, ERR, CLEAN+6*, LOG+4
>> PSJND CLEAN+11*
PSJND0 ENQN+1~, ENQN+13*
PSJORD ENQN+1~, ENQN+11*, ENQN+12*, ENQN+13, ERR, CLEAN+2*, CLEAN+4*, CLEAN+5, CLEAN+6, CLEAN+7
, CLEAN+10, CLEAN+11, LOG+1, LOG+2, LOG+3, LOG+4
PSJPDFN ENQN+1~, ENQN+9*, ENQN+10*, ENQN+12, ENQN+13, ERR, CLEAN+1*, CLEAN+2*, CLEAN+3, CLEAN+4
, CLEAN+5, CLEAN+6, CLEAN+7, CLEAN+10, CLEAN+11, LOG+1, LOG+2, LOG+3, LOG+4
PSJSCH ENQN+1~, ENQN+13*, ENQN+14, ENQN+15, ENQN+16, ENQN+17, ENQN+18, ENQN+19, ENQN+20, ERR
PSJSTA ENQN+1~, ENQN+13*, ENQN+14
PSJSTART ENQN+1~, ENQN+3*, DONE+1!, SENDMSG+3
>> PSJSTP CLEAN+11*, CLEAN+13
>> PSJSTRT CLEAN+11*, CLEAN+12
U LOG+4
VADM CLEAN+3!
VADM(1 CLEAN+9
VADM(2 CLEAN+9
X ENQN+1~, ENQN+15, ENQN+16*, ENQN+17*, ENQN+20*, DONE+1!, SENDMSG+3*, LOG+1~
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+12*, CLEAN+13*, CLEANMSG*, CLEANMSG+1, LOG+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