Routine: PSJ0103

Information

PSJ0103 ;BIR/JLC - Check for Non-Standard Schedules ;01-MAR-04

Source file <PSJ0103.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Your DUZ is not defined." Line Location: ENNV+1
Function Call: READ	Variable: X Timeout: DTIME Line Location: ENNV+2
Function Call: WRITE	Prompt: "Must be number, 1-999 days." Line Location: ENNV+4
Function Call: WRITE	Prompt: !!,"The check of Pharmacy orders is",$S($D(ZTSK):"",1:" NOT")," queued",! Line Location: ENNV+6
Function Call: WRITE	Prompt: " (to start NOW).",!!,"YOU WILL RECEIVE A MAILMAN MESSAGE WHEN TASK #"_ZTSK_" HAS COMPLETED." Line Location: ENNV+7

FileNo	Call Tags
^PS(50.606 - [#50.606]	GET1^DIQ