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

Package: Inpatient Medications

Routine: PSJ078A


Information

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

Source Information

Source file <PSJ078A.m>

Entry Points

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

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