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

Package: Text Integration Utility

Routine: TIUPRDS1


Information

TIUPRDS1 ; SLC/SBW,JER - Print DS Form 10-1000 ;8/15/06 11:01

Source Information

Source file <TIUPRDS1.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT(TIUDA,TIUFLAG) ; Print Summary
; TIUCONT=1 for Continue, 0 for Exit, NULL for Timeout.
; Returned from $$Stop
REPORT ; Report Text
AMENDMNT ;If DCS has been amended, next lines are printed.
RPTSIG ; Signature should be on bottom of form, Addenda on Subsequent pages
ADDENDA ; Discharge Summary Addenda
ADDENSIG ;
SETCONT(TIUHEAD) ;Does footer and sets TIUCONT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DICTATION DATE: ",$P(^TMP("TIULQ",$J,TIUDA,1307,"E"),"@"),?40,"TRANSCRIPTION DATE: ",$P(^TMP("TIULQ",$J,TIUDA,1201,"E"),"@")
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !,"LOCAL TITLE: ",$G(^TMP("TIULQ",$J,TIUDA,.01,"E"))
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !,"STANDARD TITLE: ",STDTTL
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !,"TRANSCRIPTIONIST: ",^TMP("TIULQ",$J,TIUDA,1302,"E")
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !!,^TMP("TIULQ",$J,TIUDA,1601,"E"),?23,"AMENDMENT FILED:"
  • Line Location: AMENDMNT+3
Function Call: WRITE
  • Prompt: !!?23
  • Line Location: AMENDMNT+4
Function Call: WRITE
  • Prompt: "_"
  • Line Location: AMENDMNT+4
Function Call: WRITE
  • Prompt: !?17,"/es/",?23,^TMP("TIULQ",$J,TIUDA,1604,"E")
  • Line Location: AMENDMNT+6
Function Call: WRITE
  • Prompt: !?23,$G(^TMP("TIULQ",$J,TIUDA,1605,"E"))
  • Line Location: AMENDMNT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: RPTSIG+7
Function Call: WRITE
  • Prompt: !,TIULINE
  • Line Location: RPTSIG+8
Function Call: WRITE
  • Prompt: !,"WORK COPY =========== UNOFFICIAL - NOT FOR MEDICAL RECORD ========== DO NOT FILE"
  • Line Location: RPTSIG+9
Function Call: WRITE
  • Prompt: !,"SIGNATURE PHYSICIAN/DENTIST",?39,"SIGNATURE APPROVING PHYSICIAN/DENTIST"
  • Line Location: RPTSIG+10
Function Call: WRITE
  • Prompt: !?39,"SIGNATURE APPROVING PHYSICIAN/DENTIST"
  • Line Location: RPTSIG+11
Function Call: WRITE
  • Prompt: !,TIUSBLK(TIUI)
  • Line Location: RPTSIG+12
Function Call: WRITE
  • Prompt: !,TIULINE
  • Line Location: RPTSIG+13
Function Call: WRITE
  • Prompt: !,"=========================== CONFIDENTIAL INFORMATION ==========================="
  • Line Location: RPTSIG+14
Function Call: WRITE
  • Prompt: !!,$G(^TMP("TIULQ",$J,TIUDA,"ZADD",TIUADD,1201,"E")),?23,"ADDENDUM"
  • Line Location: ADDENDA+5
Function Call: WRITE
  • Prompt: ?39,"STATUS: ",$G(^TMP("TIULQ",$J,TIUDA,"ZADD",TIUADD,.05,"E"))
  • Line Location: ADDENDA+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDENDA+14
Function Call: WRITE
  • Prompt: !,"SIGNATURE PHYSICIAN/DENTIST",?39,"SIGNATURE APPROVING PHYSICIAN/DENTIST"
  • Line Location: ADDENSIG+7
Function Call: WRITE
  • Prompt: !?39,"SIGNATURE APPROVING PHYSICIAN/DENTIST"
  • Line Location: ADDENSIG+8
Function Call: WRITE
  • Prompt: !,TIUSBLK(TIUI)
  • Line Location: ADDENSIG+9
Info |  Source |  Entry Points |  Interaction Calls