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

Package: Text Integration Utility

Routine: TIUPRDS


Information

TIUPRDS ; SLC/SBW - Print Form 10-1000 Discharge Summaries ; 6/9/04

Source Information

Source file <TIUPRDS.m>

Entry Points

Name Comments DBIA/ICR reference
WRITE(TIUFLAG) ; Writes form 10-1000 data to screen or paper.
DEVICE ; Device handling
; Call with: ZTRTN
NOQUE
QUE ; Queue output
ENTRY ; Entry point to print queued discharge summary

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled!")
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: !,"No Document Record Specified.",$C(7)
  • Line Location: ENTRY+6
Function Call: WRITE
  • Prompt: !,$P(TIUERR,U,2)
  • Line Location: ENTRY+16
Info |  Source |  Entry Points |  Interaction Calls