Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

Name Comments DBIA/ICR reference
ENNV ; Begin check of existing orders
ENQN ; Check of existing Pharmacy orders.
ERR
DONE ;
SENDMSG ;Send mail message when check is complete.
CLEAN ;
CLEANMSG(BEG,END)
LOG ; Create field change entry in activity log.

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
Info |  Source |  Entry Points |  Interaction Calls