Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: TIUPRDS1

Package: Text Integration Utility

Routine: TIUPRDS1


Information

TIUPRDS1 ; SLC/SBW,JER - Print DS Form 10-1000 ;31-Dec-2012 15:09;DU

Source Information

Source file <TIUPRDS1.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Text Integration Utility 4 $$STATUS^TIULC  GETTIU^TIULD  LOADSIG^TIULS1  ($$FOOTER,HEADER)^TIUPRDS2  
VA Fileman 2 ^DIWP  ^DIWW  
Registration 1 ^DGPMLOS  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Text Integration Utility 1 TIUPRDS  

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
ADDENDA ; Discharge Summary Addenda
SETCONT(TIUHEAD) ;Does footer and sets TIUCONT
ADDENSIG ;
AMENDMNT ;If DCS has been amended, next lines are printed.
REPORT ; Report Text
RPTSIG ; Signature should be on bottom of form, Addenda on Subsequent pages

External References

Name Field # of Occurrence
^DGPMLOS PRINT+6
^DIWP REPORT+5, ADDENDA+10
^DIWW REPORT+6, ADDENDA+11
$$STATUS^TIULC PRINT+12
GETTIU^TIULD PRINT+4
LOADSIG^TIULS1 RPTSIG+4, ADDENSIG+2
$$FOOTER^TIUPRDS2 SETCONT+1
HEADER^TIUPRDS2 PRINT+15

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+16
Function Call: WRITE
  • Prompt: !,"LOCAL TITLE: ",$G(^TMP("TIULQ",$J,TIUDA,.01,"E"))
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !,"STANDARD TITLE: ",STDTTL
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: !,"TRANSCRIPTIONIST: ",^TMP("TIULQ",$J,TIUDA,1302,"E")
  • Line Location: PRINT+20
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+14
Function Call: WRITE
  • Prompt: !,"=========================== CONFIDENTIAL INFORMATION ==========================="
  • Line Location: RPTSIG+15
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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("TIULQ" PRINT+16, PRINT+17, PRINT+18, PRINT+20, REPORT+3, REPORT+5, AMENDMNT+2, AMENDMNT+3, AMENDMNT+4, AMENDMNT+5
, AMENDMNT+6, AMENDMNT+7, RPTSIG+2, RPTSIG+3, RPTSIG+4, ADDENDA+3, ADDENDA+5, ADDENDA+6, ADDENDA+8, ADDENDA+10
, ADDENSIG+2, ADDENSIG+4, ADDENSIG+5
^UTILITY($J REPORT+1!, REPORT+6!, ADDENDA+1!, ADDENDA+16!

Label References

Name Line Occurrences
ADDENDA RPTSIG+13
ADDENSIG ADDENDA+12
SETCONT REPORT+4, AMENDMNT+1, RPTSIG+6, ADDENDA+4, ADDENDA+9, ADDENDA+15, ADDENSIG+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ATTNDNG RPTSIG+1~, RPTSIG+3*, RPTSIG+10, ADDENSIG+1~, ADDENSIG+5*, ADDENSIG+7
DGPMIFN PRINT+6~*
DIW REPORT+1~, ADDENDA+1~
DIWF REPORT+1~, REPORT+2*, ADDENDA+1~, ADDENDA+2*
DIWL REPORT+1~, REPORT+2*, ADDENDA+1~, ADDENDA+2*
DIWR REPORT+1~, REPORT+2*, ADDENDA+1~, ADDENDA+2*
DIWT REPORT+1~, ADDENDA+1~
EXPSGNR RPTSIG+1~, RPTSIG+2*, RPTSIG+10, ADDENSIG+1~, ADDENSIG+4*, ADDENSIG+7
IOF PRINT+15
IOM RPTSIG+5
IOSL RPTSIG+7, ADDENDA+14
IOST PRINT+8, PRINT+15, PRINT+21
>> IOT RPTSIG+7, ADDENDA+14
STDTTL PRINT+3~, PRINT+18*, PRINT+19
TIU PRINT+3~, PRINT+4, PRINT+15, SETCONT+1
TIU("AD#" PRINT+5, PRINT+6
TIU("DAYS" PRINT+6*
TIU("LDT" PRINT+5
TIU("WARD" PRINT+7*
TIUADD PRINT+3~, ADDENDA+2*, ADDENDA+3*, ADDENDA+5, ADDENDA+6, ADDENDA+8, ADDENDA+10, ADDENSIG+2, ADDENSIG+4, ADDENSIG+5
TIUCONT PRINT+3~, REPORT+2*, REPORT+3, REPORT+4, REPORT+7, AMENDMNT+1, RPTSIG+6, ADDENDA+3, ADDENDA+4, ADDENDA+8
, ADDENDA+9, ADDENDA+12, ADDENDA+14, ADDENSIG+6, SETCONT+1*
TIUCOPY PRINT+3~, PRINT+8*, PRINT+12*, SETCONT+1
TIUDA PRINT~, PRINT+4, PRINT+12, PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+20, REPORT+3, REPORT+5
, AMENDMNT+2, AMENDMNT+3, AMENDMNT+4, AMENDMNT+5, AMENDMNT+6, AMENDMNT+7, RPTSIG+2, RPTSIG+3, RPTSIG+4, ADDENDA+3
, ADDENDA+5, ADDENDA+6, ADDENDA+8, ADDENDA+10, ADDENSIG+2, ADDENSIG+4, ADDENSIG+5, SETCONT+1
TIUFLAG PRINT~, PRINT+8, PRINT+15, RPTSIG+8, RPTSIG+14, SETCONT+1
TIUHEAD SETCONT~, SETCONT+1
TIUI REPORT+1~, REPORT+2*, REPORT+3*, REPORT+5, AMENDMNT+4*, RPTSIG+12*, ADDENDA+7*, ADDENDA+8*, ADDENDA+10, ADDENSIG+9*
TIULINE RPTSIG+1~, RPTSIG+5*, RPTSIG+8, RPTSIG+14, ADDENSIG+3*
TIUPAGE PRINT+3~, PRINT+4*, PRINT+15, SETCONT+1
TIUSBLK RPTSIG+1~, RPTSIG+4, RPTSIG+6, ADDENSIG+1~, ADDENSIG+2
TIUSBLK( RPTSIG+12, ADDENSIG+9
TIUSTAT PRINT+3~, PRINT+12*
TIUY PRINT+3~, REPORT+2*, AMENDMNT+1*, RPTSIG+6*, RPTSIG+7, ADDENDA+4*, ADDENDA+14*, ADDENSIG+6*
X PRINT+6, REPORT+1~, REPORT+5*, ADDENDA+1~, ADDENDA+10*
Z REPORT+1~, ADDENDA+1~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All