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

Package: Text Integration Utility

Routine: TIUPRPN1


Information

TIUPRPN1 ;SLC/JER - Print SF 509-Progress Notes ;11/23/07

Source Information

Source file <TIUPRPN1.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Text Integration Utility 7 ($$STOP,IDKID)^TIUFLP1  EXTRACT^TIULQ  $$DATE^TIULS  PATPN^TIULV  $$MEMBEROF^TIUPR222  ($$FOOTER,$$STOP,HEADER)^TIUPRPN2  SIGBLK^TIUPRPN8  
VA Fileman 2 ^DIWP  ^DIWW  
Kernel 1 $$UP^XLFSTR  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Text Integration Utility 4 TIUPRPN  TIUPRPN5  TIUPRPN7  TIUPRPN8  
IHS Mods To Text Integration Utilities 1 BTIUPRPN  

Entry Points

Name Comments DBIA/ICR reference
SETCONT(TIUFOOT,TIUMISC,TIUCONT1,TIUHEAD,TIUROOT) ;Does footer
ADDENDA ; Fall through and do Addenda of docmt TIUDA
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
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.
IDKIDS(TIUROOT,TIUFOOT,TIUMISC,TIUCONT1,TIUCONT) ; Print ID kids
PRINT(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

External References

Name Field # of Occurrence
^DIWP REPORT+44, ADDENDA+12
^DIWW REPORT+45, ADDENDA+13
$$STOP^TIUFLP1 ADDENDA+23, IDKIDS+10
IDKID^TIUFLP1 IDKIDS+11
EXTRACT^TIULQ PRINT+37
$$DATE^TIULS REPORT+19, REPORT+27, ADDENDA+7
PATPN^TIULV PRINT+20
$$MEMBEROF^TIUPR222 IDKIDS+7
$$FOOTER^TIUPRPN2 SETCONT+4
$$STOP^TIUPRPN2 PRINT+45
HEADER^TIUPRPN2 PRINT+21, PRINT+35
SIGBLK^TIUPRPN8 REPORT+50, ADDENDA+18
$$UP^XLFSTR REPORT+21, REPORT+22

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NOTE DATED:",!,"Document #",TIUDA," for ",$G(TIUFOOT("PNMP")),!,"no longer exists in the TIU DOCUMENT file.",!!!
  • Line Location: PRINT+32
Function Call: WRITE
  • Prompt: !,$P(TIUERR,U,2)
  • Line Location: PRINT+38
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: !,"LOCAL TITLE: ",$$UP^XLFSTR(TITLE),!
  • Line Location: REPORT+21
Function Call: WRITE
  • Prompt: "STANDARD TITLE: ",$$UP^XLFSTR(LOINCNM),!
  • Line Location: REPORT+22
Function Call: WRITE
  • Prompt: $S($P(^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+7
Function Call: WRITE
  • Prompt: ?39,"STATUS: ",@TIUROOT@("ZADD",TIUADD,.05,"E")
  • Line Location: ADDENDA+8
Function Call: WRITE
  • Prompt: !,"<< Interdisciplinary Note - End >>",!
  • Line Location: ADDENDA+20

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SC - [#44] REPORT+25
^TIU(8925 - [#8925] PRINT+30, ADDENDA+4, IDKIDS+7
^TMP("TIULQ" PRINT+36!, PRINT+39, REPORT+13, IDKIDS+5, IDKIDS+6, IDKIDS+14
^TMP("TIUPR" PRINT+12, PRINT+23, PRINT+24, PRINT+25
^UTILITY($J REPORT+41!, REPORT+45!, ADDENDA+2!, ADDENDA+21!

Label References

Name Line Occurrences
$$SETCONT PRINT+31, PRINT+33, PRINT+43, PRINT+46, REPORT+12, REPORT+34, REPORT+39, REPORT+43, REPORT+48, ADDENDA+5
, ADDENDA+11, IDKIDS+8
GETSIG REPORT+47, ADDENDA+17
IDKIDS PRINT+42
REPORT PRINT+41, IDKIDS+15

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+24

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADDMRDT ADDENDA+1~, ADDENDA+6*, ADDENDA+7
ADT REPORT+9~, REPORT+26*, REPORT+27
CONT PRINT+8~, PRINT+11*, IDKIDS+9, IDKIDS+10*
DFN PRINT+13~, PRINT+18*, PRINT+20
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~
HASIDDAD REPORT+10~, REPORT+14*, REPORT+16, REPORT+17
HASIDKID REPORT+10~, REPORT+13*, REPORT+15, REPORT+17
HLOC REPORT+9~, REPORT+28*, REPORT+29
IOST PRINT+45, PRINT+46, ADDENDA+23, IDKIDS+10
KIDDA IDKIDS+2~, IDKIDS+6*, IDKIDS+7, IDKIDS+11, IDKIDS+12, IDKIDS+13
LOC REPORT+8~, REPORT+23*, REPORT+24, REPORT+25
LOINCNM REPORT+9~, REPORT+20*, REPORT+22
REFDT REPORT+9~, REPORT+18*, REPORT+19
SUBJ REPORT+9~, REPORT+30*, REPORT+31
TITLE REPORT+9~, REPORT+20*, REPORT+21
TIU PRINT+13~, REPORT+8~
TIUADD ADDENDA+1~, ADDENDA+2*, ADDENDA+4*, ADDENDA+6, ADDENDA+8, ADDENDA+10, ADDENDA+12, ADDENDA+16
TIUADRT ADDENDA+15~, ADDENDA+16*, ADDENDA+17, ADDENDA+18
TIUASK PRINT+8~, PRINT+11*, ADDENDA+23*, IDKIDS+10, IDKIDS+11*
TIUCONT PRINT+8~, PRINT+11*, PRINT+12, PRINT+23, PRINT+24, PRINT+31*, PRINT+33*, PRINT+41, PRINT+42, PRINT+43*
, PRINT+44, PRINT+45*, PRINT+46*, REPORT~, REPORT+12*, REPORT+33, REPORT+34*, REPORT+37, REPORT+39*, REPORT+42
, REPORT+43*, REPORT+46, REPORT+48*, REPORT+50, REPORT+51, ADDENDA+4, ADDENDA+5*, ADDENDA+10, ADDENDA+11*, ADDENDA+14
, ADDENDA+18, ADDENDA+23*, ADDENDA+24, IDKIDS~, IDKIDS+5, IDKIDS+8*, IDKIDS+9, IDKIDS+10*, IDKIDS+15
TIUCONT1 PRINT+9~, PRINT+11*, PRINT+21, PRINT+25*, PRINT+31, PRINT+33, PRINT+35, PRINT+42, PRINT+43*, PRINT+46*
, REPORT+10~, REPORT+11*, REPORT+12, REPORT+32*, REPORT+34, REPORT+39, REPORT+43, REPORT+48, REPORT+50, ADDENDA+5
, ADDENDA+11, ADDENDA+18, IDKIDS~, IDKIDS+8*, SETCONT~, SETCONT+4
TIUDA PRINT+8~, PRINT+28*, PRINT+30, PRINT+32, PRINT+37, PRINT+40, REPORT+10~, REPORT+11*, REPORT+13, IDKIDS+2~
, IDKIDS+3*, IDKIDS+5, IDKIDS+6, IDKIDS+11, IDKIDS+13, IDKIDS+14
TIUERR PRINT+37, PRINT+38, REPORT+8~
TIUFLAG PRINT~, PRINT+10*, PRINT+21, PRINT+28, PRINT+35, IDKIDS+12
TIUFOOT PRINT+8~, PRINT+20, PRINT+21, PRINT+31, PRINT+33, PRINT+35, PRINT+41, PRINT+42, PRINT+43, PRINT+46
, REPORT~, REPORT+12, REPORT+34, REPORT+39, REPORT+43, REPORT+48, REPORT+50, ADDENDA+5, ADDENDA+11, ADDENDA+18
, IDKIDS~, IDKIDS+8, IDKIDS+15, SETCONT~, SETCONT+4
TIUFOOT("PNMP" PRINT+32
TIUHEAD SETCONT~, SETCONT+4
TIUI PRINT+8~, PRINT+12*, PRINT+16, PRINT+18, PRINT+23, PRINT+24, PRINT+25, REPORT+8~, REPORT+36~*, REPORT+37*
, REPORT+38, REPORT+41*, REPORT+42*, REPORT+44, ADDENDA+1~, ADDENDA+9*, ADDENDA+10*, ADDENDA+12
TIUIDEND REPORT~, ADDENDA+20, IDKIDS+2~, IDKIDS+3*, IDKIDS+14*, IDKIDS+15
TIUIDONE PRINT+9~
TIUIDRT IDKIDS+2~, IDKIDS+13*, IDKIDS+15
TIUJ PRINT+8~, PRINT+23*, PRINT+24, PRINT+25
TIUK PRINT+8~, PRINT+24*, PRINT+25, PRINT+28
TIUKID PRINT+8~, PRINT+43, PRINT+46, IDKIDS+8, IDKIDS+11*
TIUL IDKIDS+2~, IDKIDS+4*, IDKIDS+5*, IDKIDS+6, IDKIDS+13, IDKIDS+14
TIULINE GETSIG+7~*
TIUMISC PRINT+9~, PRINT+28*, PRINT+31, PRINT+33, PRINT+41, PRINT+42, PRINT+43, PRINT+46, REPORT~, REPORT+11
, REPORT+12, REPORT+34, REPORT+39, REPORT+43, REPORT+48, REPORT+50, ADDENDA+5, ADDENDA+11, ADDENDA+18, IDKIDS~
, IDKIDS+3, IDKIDS+8, IDKIDS+12*, IDKIDS+15, SETCONT~, SETCONT+4
TIUPAGE PRINT+8~
TIUPFHDR PRINT+9~, PRINT+16*, PRINT+17*, PRINT+21, PRINT+35
TIUPFNBR PRINT+9~, PRINT+25*, PRINT+28, IDKIDS+12
TIUPGRP PRINT+8~, PRINT+16*, PRINT+19
TIUROOT PRINT+31, PRINT+33, PRINT+34~, PRINT+40*, PRINT+41, PRINT+42, PRINT+43, PRINT+46, REPORT~, REPORT+12
, REPORT+14, REPORT+18, REPORT+20, REPORT+23, 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+4, ADDENDA+5, ADDENDA+6
, ADDENDA+8, ADDENDA+10, ADDENDA+11, ADDENDA+12, ADDENDA+16, IDKIDS~, IDKIDS+8, 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+24, SETCONT~, SETCONT+4
TIUSIG REPORT+47, REPORT+50, ADDENDA+17, ADDENDA+18, GETSIG~
TIUSIG("ADMINCDT" GETSIG+24*
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+19*, PRINT+21, PRINT+35, PRINT+43, PRINT+46, IDKIDS+8
TIUTYP PRINT+8~
TMP PRINT+9~
U PRINT+28, PRINT+38, REPORT+11, REPORT+25, ADDENDA+4, IDKIDS+3, IDKIDS+12
X REPORT+8~, REPORT+44*, ADDENDA+1~, ADDENDA+12*
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