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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BTIUPRT1

Package: IHS Mods To Text Integration Utilities

Routine: BTIUPRT1


Information

BTIUPRT1 ;IHS/MSC/MGH - Print special header and foot notes;18-Mar-2015 12:30;MGH

Source Information

Source file <BTIUPRT1.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Text Integration Utility 5 EXTRACT^TIULQ  $$DATE^TIULS  PATPN^TIULV  ($$FOOTER,$$STOP,HEADER)^TIUPRPN2  SIGBLK^TIUPRPN8  
VA Fileman 2 ^DIWP  ^DIWW  
IHS Mods To Text Integration Utilities 1 ($$FOOTER,HEADER)^BTIUPRT2  
Kernel 1 $$UP^XLFSTR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Mods To Text Integration Utilities 1 BTIUPRPN  

Entry Points

Name Comments DBIA/ICR reference
ADDENDA ; Fall through and do Addenda of docmt TIUDA
SETCONT(TIUFOOT,TIUMISC,TIUCONT1,TIUHEAD,TIUROOT,TIUTYPE) ;Does footer
REPORT(TIUROOT,TIUFOOT,TIUMISC,TIUCONT,TIUIDEND) ; Report Text
; Requires array TIUFOOT, vars TIUMISC, TIUCONT
; Requires TIUROOT =
; ^TMP("TIULQ",$J,NOTEIFN) for parent/stand-alone note, or
; ^TMP("TIULQ",$J,NOTEIFN,"ZADD",ADDMIFN) for addendum, or
; ^TMP("TIULQ",$J,NOTEIFN,"ZZID",KIDSEQ#,IDKIDIFN) for ID kid, or
; ^TMP("TIULQ",$J,NOTEIFN,"ZZID",KIDSEQ#,IDKIDIFN,"ZADD",KIDADDMIFN)
; for ID kid addm.
GETSIG(TIUROOT,TIUSIG) ; Get signature info from TIULQ global;
; Set info into TIUSIG array **100**
; Requires array name TIUROOT; passes back array TIUSIG
; TIUROOT = ^TMP("TIULQ",$J,NOTEIFN) for parent note, or
; ^TMP("TIULQ",$J,NOTEIFN,"ZADD",ADDMIFN) for addendum, or
; ^TMP("TIULQ",$J,NOTEIFN,"ZZID",IDKIDIFN) for ID kid.
; Signature should be on bottom of form, Addenda on Subsequent pages
PRINT(TIUTYPE,TIUFLAG,TIUSPG) ; Print Document
; ^TMP("TIUPR",$J) is array of records to be printed
; TIUFLAG=1 --> Chart Copy TIUSPG=1 --> Contiguous
; TIUFLAG=0 --> Work Copy TIUSPG=0 --> Fresh Page- each note
; TIUCONT=1 --> Continue printing
; TIUCONT1=1 --> Write "Continue to next/from previous-page" msgs
; TIUPFNBR ---> Print Form # like vice 509
; TIUMISC=TIUFLAG_U_TIUPFNBR_U_TIUDA
CHECK(TIUTITLE,TEMPLATE) ;See if there is a header for this note title
IDKIDS(TIUROOT,TIUFOOT,TIUMISC,TIUCONT1,TIUCONT) ; Print ID kids

External References

Name Field # of Occurrence
$$FOOTER^BTIUPRT2 SETCONT+7
HEADER^BTIUPRT2 PRINT+22, PRINT+34
^DIWP REPORT+44, ADDENDA+11
^DIWW REPORT+45, ADDENDA+12
EXTRACT^TIULQ PRINT+40
$$DATE^TIULS REPORT+19, REPORT+27, ADDENDA+6
PATPN^TIULV PRINT+18
$$FOOTER^TIUPRPN2 SETCONT+8
$$STOP^TIUPRPN2 PRINT+48
HEADER^TIUPRPN2 PRINT+24, PRINT+36
SIGBLK^TIUPRPN8 REPORT+50, ADDENDA+17
$$UP^XLFSTR REPORT+21

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$P(TIUERR,U,2)
  • Line Location: PRINT+41
Function Call: WRITE
  • Prompt: "<< Interdisciplinary Note - Begin >>",!
  • Line Location: REPORT+15
Function Call: WRITE
  • Prompt: "<< Interdisciplinary Note - Cont. >>",!
  • Line Location: REPORT+16
Function Call: WRITE
  • Prompt: $S('HASIDKID&'HASIDDAD:"NOTE DATED: ",1:"ENTRY DATED: ")
  • Line Location: REPORT+17
Function Call: WRITE
  • Prompt: $$DATE^TIULS(REFDT,"MM/DD/CCYY HR:MIN")
  • Line Location: REPORT+19
Function Call: WRITE
  • Prompt: ?30,$$UP^XLFSTR(TITLE),!
  • Line Location: REPORT+21
Function Call: WRITE
  • Prompt: $S($P($G(^SC(LOC,0)),U,3)="W":"ADMITTED: ",1:"VISIT: ")
  • Line Location: REPORT+25
Function Call: WRITE
  • Prompt: $$DATE^TIULS(ADT,"MM/DD/CCYY HR:MIN")
  • Line Location: REPORT+27
Function Call: WRITE
  • Prompt: " ",HLOC
  • Line Location: REPORT+29
Function Call: WRITE
  • Prompt: !,"SUBJECT: ",^("E"),!
  • Line Location: REPORT+31
Function Call: WRITE
  • Prompt: !,"ASSOCIATED PROBLEMS:"
  • Line Location: REPORT+35
Function Call: WRITE
  • Prompt: !
  • Line Location: REPORT+40
Function Call: WRITE
  • Prompt: !
  • Line Location: REPORT+49
Function Call: WRITE
  • Prompt: !!,$$DATE^TIULS(ADDMRDT,"MM/DD/CCYY HR:MIN"),?21,"ADDENDUM"
  • Line Location: ADDENDA+6
Function Call: WRITE
  • Prompt: ?39,"STATUS: ",@TIUROOT@("ZADD",TIUADD,.05,"E")
  • Line Location: ADDENDA+7
Function Call: WRITE
  • Prompt: !,"<< Interdisciplinary Note - End >>",!
  • Line Location: ADDENDA+19

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] CHECK+3
^SC - [#44] REPORT+25
^TIU(8925 - [#8925] PRINT+30
^TIU(8925.94 - [#8925.94] CHECK+5, CHECK+6
^TMP("TIULQ" PRINT+39!, PRINT+42, REPORT+13, IDKIDS+5, IDKIDS+6, IDKIDS+9
^TMP("TIUPR" PRINT+12, PRINT+26, PRINT+27, PRINT+28
^UTILITY($J REPORT+41!, REPORT+45!, ADDENDA+2!, ADDENDA+20!

Label References

Name Line Occurrences
$$CHECK PRINT+20, PRINT+32, SETCONT+6
$$SETCONT PRINT+46, PRINT+49, REPORT+12, REPORT+34, REPORT+39, REPORT+43, REPORT+48, ADDENDA+4, ADDENDA+10
GETSIG REPORT+47, ADDENDA+16
IDKIDS PRINT+45
REPORT PRINT+44, IDKIDS+10

Naked Globals

Name Field # of Occurrence
^( REPORT+38
^("E" REPORT+31, GETSIG+8, GETSIG+9, GETSIG+10, GETSIG+12, GETSIG+15, GETSIG+17, GETSIG+20, GETSIG+21, GETSIG+22
, GETSIG+25

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADDMRDT ADDENDA+1~, ADDENDA+5*, ADDENDA+6
ADT REPORT+9~, REPORT+26*, REPORT+27
DFN PRINT+13~, PRINT+17*, PRINT+18, PRINT+22, PRINT+34, SETCONT+7
DIV CHECK+1~, CHECK+3*, CHECK+5, CHECK+6
DIW REPORT+8~, ADDENDA+1~
DIWF REPORT+8~, REPORT+41*, ADDENDA+1~, ADDENDA+2*
DIWL REPORT+8~, REPORT+41*, ADDENDA+1~, ADDENDA+2*
DIWR REPORT+8~, REPORT+41*, ADDENDA+1~, ADDENDA+2*
DIWT REPORT+8~, ADDENDA+1~
DUZ(2 CHECK+3
FOOTER PRINT+9~, SETCONT+6*, SETCONT+7
HASIDDAD REPORT+10~, REPORT+14*, REPORT+16, REPORT+17
HASIDKID REPORT+10~, REPORT+13*, REPORT+15, REPORT+17
HEADER PRINT+9~, PRINT+20*, PRINT+21, PRINT+22, PRINT+32*, PRINT+33, PRINT+34
HLOC REPORT+9~, REPORT+28*, REPORT+29
IEN CHECK+1~, CHECK+4*, CHECK+5*, CHECK+6
IOST PRINT+48, PRINT+49
KIDDA IDKIDS+2~, IDKIDS+6*, IDKIDS+7, IDKIDS+8
LOC REPORT+8~, REPORT+22*, REPORT+23, REPORT+25
REFDT REPORT+9~, REPORT+18*, REPORT+19
SUBJ REPORT+9~, REPORT+30*, REPORT+31
TEMPLATE CHECK~, CHECK+6
TIEN CHECK+1~, CHECK+2*, CHECK+6*, CHECK+7
TITLE REPORT+9~, REPORT+20*, REPORT+21, CHECK+1~, CHECK+4*, CHECK+5
TIU PRINT+13~, REPORT+8~
TIUADD ADDENDA+1~, ADDENDA+2*, ADDENDA+3*, ADDENDA+5, ADDENDA+7, ADDENDA+9, ADDENDA+11, ADDENDA+15
TIUADRT ADDENDA+14~, ADDENDA+15*, ADDENDA+16, ADDENDA+17
TIUCONT PRINT+8~, PRINT+11*, PRINT+12, PRINT+26, PRINT+27, PRINT+30*, PRINT+44, PRINT+45, PRINT+46*, PRINT+47
, PRINT+48*, PRINT+49*, REPORT~, REPORT+12*, REPORT+33, REPORT+34*, REPORT+37, REPORT+39*, REPORT+42, REPORT+43*
, REPORT+46, REPORT+48*, REPORT+50, REPORT+51, ADDENDA+3, ADDENDA+4*, ADDENDA+9, ADDENDA+10*, ADDENDA+13, ADDENDA+17
, ADDENDA+22, IDKIDS~, IDKIDS+5, IDKIDS+10
TIUCONT1 PRINT+9~, PRINT+11*, PRINT+22, PRINT+24, PRINT+28*, PRINT+34, PRINT+36, PRINT+45, PRINT+46*, PRINT+49*
, REPORT+10~, REPORT+11*, REPORT+12, REPORT+32*, REPORT+34, REPORT+39, REPORT+43, REPORT+48, REPORT+50, ADDENDA+4
, ADDENDA+10, ADDENDA+17, IDKIDS~, SETCONT~, SETCONT+7, SETCONT+8
TIUDA PRINT+8~, PRINT+37*, PRINT+38, PRINT+40, PRINT+43, REPORT+10~, REPORT+11*, REPORT+13, IDKIDS+2~, IDKIDS+3*
, IDKIDS+5, IDKIDS+6, IDKIDS+8, IDKIDS+9
TIUERR PRINT+40, PRINT+41, REPORT+8~
TIUFLAG PRINT~, PRINT+10*, PRINT+22, PRINT+24, PRINT+34, PRINT+36, PRINT+38, IDKIDS+7
TIUFOOT PRINT+8~, PRINT+18, PRINT+24, PRINT+36, PRINT+44, PRINT+45, PRINT+46, PRINT+49, REPORT~, REPORT+12
, REPORT+34, REPORT+39, REPORT+43, REPORT+48, REPORT+50, ADDENDA+4, ADDENDA+10, ADDENDA+17, IDKIDS~, IDKIDS+10
, SETCONT~, SETCONT+8
TIUHEAD SETCONT~, SETCONT+7, SETCONT+8
TIUI PRINT+8~, PRINT+12*, PRINT+14, PRINT+17, PRINT+26, PRINT+27, PRINT+28, REPORT+8~, REPORT+36~*, REPORT+37*
, REPORT+38, REPORT+41*, REPORT+42*, REPORT+44, ADDENDA+1~, ADDENDA+8*, ADDENDA+9*, ADDENDA+11
TIUIDEND REPORT~, ADDENDA+19, IDKIDS+2~, IDKIDS+3*, IDKIDS+9*, IDKIDS+10
TIUIDONE PRINT+9~
TIUIDRT IDKIDS+2~, IDKIDS+8*, IDKIDS+10
TIUJ PRINT+8~, PRINT+26*, PRINT+27, PRINT+28
TIUK PRINT+8~, PRINT+22, PRINT+27*, PRINT+28, PRINT+30, PRINT+34, PRINT+37, SETCONT+7
TIUL IDKIDS+2~, IDKIDS+4*, IDKIDS+5*, IDKIDS+6, IDKIDS+8, IDKIDS+9
TIULINE GETSIG+7~*
TIUMISC PRINT+9~, PRINT+38*, PRINT+44, PRINT+45, PRINT+46, PRINT+49, REPORT~, REPORT+11, REPORT+12, REPORT+34
, REPORT+39, REPORT+43, REPORT+48, REPORT+50, ADDENDA+4, ADDENDA+10, ADDENDA+17, IDKIDS~, IDKIDS+3, IDKIDS+7*
, IDKIDS+10, SETCONT~, SETCONT+7, SETCONT+8
TIUPAGE PRINT+8~
TIUPFHDR PRINT+9~, PRINT+14*, PRINT+15*, PRINT+24, PRINT+36
TIUPFNBR PRINT+9~, PRINT+28*, PRINT+38, IDKIDS+7
TIUPGRP PRINT+8~, PRINT+14*, PRINT+16
TIUROOT PRINT+31~, PRINT+43*, PRINT+44, PRINT+45, PRINT+46, PRINT+49, REPORT~, REPORT+12, REPORT+14, REPORT+18
, REPORT+20, REPORT+22, REPORT+26, REPORT+28, REPORT+30, REPORT+33, REPORT+34, REPORT+37, REPORT+39, REPORT+42
, REPORT+43, REPORT+44, REPORT+47, REPORT+48, REPORT+50, ADDENDA+3, ADDENDA+4, ADDENDA+5, ADDENDA+7, ADDENDA+9
, ADDENDA+10, ADDENDA+11, ADDENDA+15, IDKIDS~, GETSIG~, GETSIG+8, GETSIG+9, GETSIG+10, GETSIG+11, GETSIG+12
, GETSIG+13, GETSIG+14, GETSIG+15, GETSIG+16, GETSIG+17, GETSIG+18, GETSIG+19, GETSIG+20, GETSIG+21, GETSIG+22
, GETSIG+25, SETCONT~, SETCONT+7, SETCONT+8
TIUSIG REPORT+47, REPORT+50, ADDENDA+16, ADDENDA+17, GETSIG~
TIUSIG("ADMINCDT" GETSIG+25*
TIUSIG("AUTHOR" GETSIG+8*
TIUSIG("COSCHRT" GETSIG+22*
TIUSIG("COSGDATE" GETSIG+16*
TIUSIG("COSGEDBY" GETSIG+17*
TIUSIG("COSGMODE" GETSIG+20*
TIUSIG("COSGNAME" GETSIG+18*
TIUSIG("COSGTITL" GETSIG+19*
TIUSIG("EXPCOSNR" GETSIG+10*
TIUSIG("EXPSIGNR" GETSIG+9*
TIUSIG("SIGCHRT" GETSIG+21*
TIUSIG("SIGNDATE" GETSIG+11*
TIUSIG("SIGNEDBY" GETSIG+12*
TIUSIG("SIGNMODE" GETSIG+15*
TIUSIG("SIGNNAME" GETSIG+13*
TIUSIG("SIGTITL" GETSIG+14*
TIUSORT IDKIDS+2~
TIUSPG PRINT~, PRINT+10*, PRINT+16*, PRINT+22, PRINT+24, PRINT+34, PRINT+36, PRINT+46, PRINT+49
TIUTITLE CHECK~, CHECK+4
TIUTYP PRINT+8~
TIUTYPE PRINT~, PRINT+20, PRINT+32, PRINT+46, PRINT+49, REPORT+12, REPORT+34, REPORT+39, REPORT+43, REPORT+48
, ADDENDA+4, ADDENDA+10, SETCONT~, SETCONT+6
TMP PRINT+9~
U PRINT+38, PRINT+41, REPORT+11, REPORT+25, IDKIDS+3, IDKIDS+7, CHECK+6
X REPORT+8~, REPORT+44*, ADDENDA+1~, ADDENDA+11*, SETCONT+5~, SETCONT+7*, SETCONT+8*, SETCONT+9
Z REPORT+8~, ADDENDA+1~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All