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

Package: Text Integration Utility

Routine: TIUPRPN7


Information

TIUPRPN7 ;SLC/MJC - Progress Notes Outpt Batch Prt ;6/26/01

Source Information

Source file <TIUPRPN7.m>

Entry Points

Name Comments DBIA/ICR reference
BATCH ;batch print outpatient progress notes sorted by terminal digit
DEV
PRINT ;entry point for non-interactive tasked job
EXIT
LOC(LOC,DIV) ;checks if this location should be batch prted
TROUBLE ;message to print if no output

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"Notes will be printed in terminal digit order."
  • Line Location: BATCH+8
Function Call: WRITE
  • Prompt: !!?5,"This option may also be scheduled to run non-interactively"
  • Line Location: BATCH+9
Function Call: WRITE
  • Prompt: !?5,"in file #19.2 OPTION SCHEDULING FILE.",!!
  • Line Location: BATCH+10
Function Call: WRITE
  • Prompt: $C(7),$C(7),!?5,"Before using this option "
  • Line Location: BATCH+12
Function Call: WRITE
  • Prompt: "you must enter the divisions for your site in"
  • Line Location: BATCH+13
Function Call: WRITE
  • Prompt: !?5,"file #8925.94 - TIU DIVISION PRINT PARAMETERS FILE."
  • Line Location: BATCH+14
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: $C(7),$C(7),!?5,"You must select a printer for this "
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: "option!!"
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request Queued!",1:"Request Canceled!")
  • Line Location: DEV+8
Function Call: WRITE
  • Prompt: !!,"The option [TIU PRINT PN BATCH OUTPT] ran to completion at "
  • Line Location: TROUBLE+1
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT($$NOW^XLFDT,"1P")," but did not find any notes."
  • Line Location: TROUBLE+2
Function Call: WRITE
  • Prompt: !!,"If you were expecting notes to print review the following:"
  • Line Location: TROUBLE+3
Function Call: WRITE
  • Prompt: !!,"INTERACTIVE"
  • Line Location: TROUBLE+5
Function Call: WRITE
  • Prompt: !,"-----------"
  • Line Location: TROUBLE+6
Function Call: WRITE
  • Prompt: !,"1. Very little can go wrong- the required criteria is screened"
  • Line Location: TROUBLE+7
Function Call: WRITE
  • Prompt: !,"while the user is manually queueing the job."
  • Line Location: TROUBLE+8
Function Call: WRITE
  • Prompt: !!,"2. This option prints all the outpatient progress notes, in"
  • Line Location: TROUBLE+9
Function Call: WRITE
  • Prompt: !,"terminal digit order, for the selected date range for ALL CLINICS"
  • Line Location: TROUBLE+10
Function Call: WRITE
  • Prompt: !,"for the selected DIVISION. Verify that you have signed progress"
  • Line Location: TROUBLE+11
Function Call: WRITE
  • Prompt: !,"notes satisfying this criteria.",!
  • Line Location: TROUBLE+12
Function Call: WRITE
  • Prompt: !!,"NON-INTERACTIVE (job set to run in OPTION SCHEDULING FILE (#19.2)"
  • Line Location: TROUBLE+14
Function Call: WRITE
  • Prompt: !,"-----------------------------------------------------------------"
  • Line Location: TROUBLE+15
Function Call: WRITE
  • Prompt: !,"1. DIVISION must be defined in file #8925.94 (TIU DIVISION PRINT"
  • Line Location: TROUBLE+16
Function Call: WRITE
  • Prompt: !,"PRINT PARAMETERS FILE)."
  • Line Location: TROUBLE+17
Function Call: WRITE
  • Prompt: !!,"2. The variable TIUDIV must be defined in the VARIABLE NAME "
  • Line Location: TROUBLE+18
Function Call: WRITE
  • Prompt: !,"multiple of the OPTION SCHEDULING FILE (#19.2). TIUDIV should"
  • Line Location: TROUBLE+19
Function Call: WRITE
  • Prompt: !,"be set to the IEN of an entry in the TIU DIVISION PRINT PARAMETERS"
  • Line Location: TROUBLE+20
Function Call: WRITE
  • Prompt: !,"FILE (#8925.94)."
  • Line Location: TROUBLE+21
Function Call: WRITE
  • Prompt: !!,"3. This option must find a valid date in field #1.01 of"
  • Line Location: TROUBLE+22
Function Call: WRITE
  • Prompt: !,"file #8925.94 to start looping on. If a valid date is not "
  • Line Location: TROUBLE+23
Function Call: WRITE
  • Prompt: !,"found, the option will terminate with this message."
  • Line Location: TROUBLE+24
Function Call: WRITE
  • Prompt: !!,"4. To assist in troubleshooting, if no notes are found, the"
  • Line Location: TROUBLE+25
Function Call: WRITE
  • Prompt: !,"DATE/TIME field (#1.01) of file #8925.94 will not be re-set"
  • Line Location: TROUBLE+26
Function Call: WRITE
  • Prompt: !,"to the new value (which is NOW) when the option begins "
  • Line Location: TROUBLE+27
Function Call: WRITE
  • Prompt: "calculating."
  • Line Location: TROUBLE+28
Info |  Source |  Entry Points |  Interaction Calls