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

Package: Inpatient Medications

Routine: PSJ0061


Information

PSJ0061 ;BIR/LDT - Check for Trailing Zeros on dates; 02 MAY-01

Source Information

Source file <PSJ0061.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 ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Your user code is undefined. 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 TWO MAILMAN MESSAGES WHEN TASK #"_ZTSK_" HAS COMPLETED."
  • Line Location: ENNV+4
Info |  Source |  Entry Points |  Interaction Calls