Routine: TIUPRPN8

Package	Total	Call Graph
Text Integration Utility	4	WRAP^TIUFLD $$BEEP^TIULC1 ($$DATE,$$SIGNAME,$$SIGTITL)^TIULS $$SETCONT^TIUPRPN1
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
IHS Mods To Text Integration Utilities	1	BTIUPRT1
Text Integration Utility	1	TIUPRPN1

Name	Comments	DBIA/ICR reference
AMEND	; signature blocks of amender
SIGBLK(TIUFOOT,TIUMISC,TIUCONT1,TIUCONT,TIUSIG,TIUROOT)	; Print signature block info ; Requires array TIUFOOT, requires TIUMISC ; Requires TIUCONT1 ; Receives TIUCONT by ref (req'd) ; Receives array TIUSIG by ref, required. ; Requires TIUROOT

Name	Field # of Occurrence
$$GET1^DIQ	SIGBLK+41
WRAP^TIUFLD	SIGBLK+21, SIGBLK+44, SIGBLK+62, SIGBLK+82
$$BEEP^TIULC1	SIGBLK+27, SIGBLK+28, SIGBLK+72, SIGBLK+88, SIGBLK+89
$$DATE^TIULS	SIGBLK+25, SIGBLK+69, SIGBLK+86, AMEND+6
$$SIGNAME^TIULS	AMEND+9
$$SIGTITL^TIULS	AMEND+10
$$SETCONT^TIUPRPN1	SIGBLK+13, SIGBLK+17, SIGBLK+30, SIGBLK+52, SIGBLK+58, SIGBLK+78, SIGBLK+92, AMEND+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "**DRAFT COPY - DRAFT COPY -- ABOVE NOTE IS UNSIGNED--" Line Location: SIGBLK+11
Function Call: WRITE	Prompt: " DRAFT COPY - DRAFT COPY**",! Line Location: SIGBLK+12
Function Call: WRITE	Prompt: ?21,"Author: ",$P(TIUSIG("AUTHOR"),";",2),! Line Location: SIGBLK+15
Function Call: WRITE	Prompt: ?18,"Signed by:",$S($P(TIUSIG("SIGNMODE"),";")="C":" /s/ ",1:" /es/ "),?34,$S(TIUSIG("SIGNNAME")]"":TIUSIG("SIGNNAME"),1:$P(TIUSIG("SIGNEDBY"),";",2)) Line Location: SIGBLK+18
Function Call: WRITE	Prompt: !?34,$G(TIUFT(1)) Line Location: SIGBLK+22
Function Call: WRITE	Prompt: !?39,$G(TIUFT(2)) Line Location: SIGBLK+23
Function Call: WRITE	Prompt: !?34,TIUSIG("SIGTITL") Line Location: SIGBLK+24
Function Call: WRITE	Prompt: !?34,$$DATE^TIULS(+TIUSIG("SIGNDATE"),"MM/DD/CCYY HR:MIN") Line Location: SIGBLK+25
Function Call: WRITE	Prompt: !?34,"Analog Pager: ",$P($$BEEP^TIULC1(+TIUSIG("SIGNEDBY")),U) Line Location: SIGBLK+27
Function Call: WRITE	Prompt: !?34,"Digital Pager: ",$P($$BEEP^TIULC1(+TIUSIG("SIGNEDBY")),U,2) Line Location: SIGBLK+28
Function Call: WRITE	Prompt: !?2,"Marked signed on chart by:",?34,$G(TIUONCH) Line Location: SIGBLK+34
Function Call: WRITE	Prompt: !?34,"for ",$P(TIUSIG("AUTHOR"),";",2) Line Location: SIGBLK+40
Function Call: WRITE	Prompt: !?34,$G(TIUFT(1)) Line Location: SIGBLK+45
Function Call: WRITE	Prompt: !?39,$G(TIUFT(2)) Line Location: SIGBLK+46
Function Call: WRITE	Prompt: !?34,"REQUIRES COSIGNATURE",! Line Location: SIGBLK+48
Function Call: WRITE	Prompt: !!?4,"Receipt Acknowledged By:" Line Location: SIGBLK+54
Function Call: WRITE	Prompt: !,?4,"* AWAITING SIGNATURE *",?30,$G(@TIUROOT@("EXTRASGNR",TIUI,"EXPNAME")) Line Location: SIGBLK+57
Function Call: WRITE	Prompt: !?29,"/es/ ",$G(@TIUROOT@("EXTRASGNR",TIUI,"NAME")) Line Location: SIGBLK+59
Function Call: WRITE	Prompt: !?34,$G(TIUFT(1)) Line Location: SIGBLK+63
Function Call: WRITE	Prompt: !?39,$G(TIUFT(2)) Line Location: SIGBLK+64
Function Call: WRITE	Prompt: !?34,$G(@TIUROOT@("EXTRASGNR",TIUI,"TITLE")) Line Location: SIGBLK+65
Function Call: WRITE	Prompt: !?30,"for ",$P($G(@TIUROOT@("EXTRASGNR",TIUI,"EXPNAME")),",",2) Line Location: SIGBLK+67
Function Call: WRITE	Prompt: " ",$P($G(@TIUROOT@("EXTRASGNR",TIUI,"EXPNAME")),",") Line Location: SIGBLK+68
Function Call: WRITE	Prompt: !?34,$$DATE^TIULS($G(@TIUROOT@("EXTRASGNR",TIUI,"DATE")),"MM/DD/CCYY HR:MIN") Line Location: SIGBLK+69
Function Call: WRITE	Prompt: !?34,"Analog Pager: ",$P(BEEP,U) Line Location: SIGBLK+73
Function Call: WRITE	Prompt: !?34,"Digital Pager: ",$P(BEEP,U,2) Line Location: SIGBLK+74
Function Call: WRITE	Prompt: !!?16,"Cosigned by:",$S($P(TIUSIG("COSGMODE"),";")="C":" /s/ ",1:" /es/ "),?34,$S(TIUSIG("COSGNAME")]"":TIUSIG("COSGNAME"),1:$P(TIUSIG("COSGEDBY"),";",2)) Line Location: SIGBLK+79
Function Call: WRITE	Prompt: !?34,$G(TIUFT(1)) Line Location: SIGBLK+83
Function Call: WRITE	Prompt: !?39,$G(TIUFT(2)) Line Location: SIGBLK+84
Function Call: WRITE	Prompt: !?34,TIUSIG("COSGTITL") Line Location: SIGBLK+85
Function Call: WRITE	Prompt: !?34,$$DATE^TIULS(+TIUSIG("COSGDATE"),"MM/DD/CCYY HR:MIN") Line Location: SIGBLK+86
Function Call: WRITE	Prompt: !?34,"Analog Pager: ",$P($$BEEP^TIULC1(+TIUSIG("COSGEDBY")),U) Line Location: SIGBLK+88
Function Call: WRITE	Prompt: !?34,"Digital Pager: ",$P($$BEEP^TIULC1(+TIUSIG("COSGEDBY")),U,2) Line Location: SIGBLK+89
Function Call: WRITE	Prompt: !,"Marked cosigned on chart by:",?34,$P(TIUSIG("COSCHRT"),";",2) Line Location: SIGBLK+93
Function Call: WRITE	Prompt: ! Line Location: SIGBLK+94
Function Call: WRITE	Prompt: !!?12,"Amendment Filed:",?34,$$DATE^TIULS(@TIUROOT@(1601,"I"),"MM/DD/CCYY HR:MIN") Line Location: AMEND+6
Function Call: WRITE	Prompt: !!?29 Line Location: AMEND+8
Function Call: WRITE	Prompt: "_" Line Location: AMEND+8
Function Call: WRITE	Prompt: !?29,$$SIGNAME^TIULS(@TIUROOT@(1602,"I")) Line Location: AMEND+9
Function Call: WRITE	Prompt: !?29,$$SIGTITL^TIULS(@TIUROOT@(1602,"I")) Line Location: AMEND+10
Function Call: WRITE	Prompt: !?29,"/es/",?34,@TIUROOT@(1604,"E") Line Location: AMEND+12
Function Call: WRITE	Prompt: !?34,@TIUROOT@(1605,"E") Line Location: AMEND+13

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BEEP	SIGBLK+71~, SIGBLK+72*, SIGBLK+73, SIGBLK+74
IOST	SIGBLK+26, SIGBLK+70, SIGBLK+87
TIUCONT	SIGBLK~, SIGBLK+7, SIGBLK+10, SIGBLK+13, SIGBLK+16, SIGBLK+17, SIGBLK+29, SIGBLK+30, SIGBLK+50, SIGBLK+52* , SIGBLK+58, SIGBLK+77, SIGBLK+78, SIGBLK+91, SIGBLK+92, AMEND+3, AMEND+4
TIUCONT1	SIGBLK~, SIGBLK+13, SIGBLK+17, SIGBLK+30, SIGBLK+52, SIGBLK+58, SIGBLK+78, SIGBLK+92, AMEND+2!, AMEND+3 , AMEND+4!
TIUDA	SIGBLK+6~, SIGBLK+7*
TIUFLAG	SIGBLK+6~, SIGBLK+7*, SIGBLK+26, SIGBLK+70, SIGBLK+87
TIUFOOT	SIGBLK~, SIGBLK+13, SIGBLK+17, SIGBLK+30, SIGBLK+52, SIGBLK+58, SIGBLK+78, SIGBLK+92, AMEND+3
TIUFT	SIGBLK+20~, SIGBLK+43~, SIGBLK+61~, SIGBLK+81~
TIUFT(1	SIGBLK+22, SIGBLK+45, SIGBLK+63, SIGBLK+83
TIUFT(2	SIGBLK+23, SIGBLK+46, SIGBLK+64, SIGBLK+84
TIUI	SIGBLK+51~, SIGBLK+53, SIGBLK+56, SIGBLK+57, SIGBLK+58, SIGBLK+59, SIGBLK+60, SIGBLK+62, SIGBLK+65, SIGBLK+66 , SIGBLK+67, SIGBLK+68, SIGBLK+69, SIGBLK+72, AMEND+8*
TIUMISC	SIGBLK~, SIGBLK+7, SIGBLK+13, SIGBLK+17, SIGBLK+30, SIGBLK+52, SIGBLK+58, SIGBLK+78, SIGBLK+92, AMEND+3
TIUONCH	SIGBLK+31~, SIGBLK+32, SIGBLK+33, SIGBLK+34
TIUROOT	SIGBLK~, SIGBLK+13, SIGBLK+17, SIGBLK+30, SIGBLK+47, SIGBLK+50, SIGBLK+52, SIGBLK+53, SIGBLK+56, SIGBLK+57 , SIGBLK+58, SIGBLK+59, SIGBLK+60, SIGBLK+62, SIGBLK+65, SIGBLK+66, SIGBLK+67, SIGBLK+68, SIGBLK+69, SIGBLK+72 , SIGBLK+78, SIGBLK+92, AMEND+2, AMEND+3, AMEND+5, AMEND+6, AMEND+7, AMEND+9, AMEND+10, AMEND+11 , AMEND+12, AMEND+13
TIUSIG	SIGBLK~
TIUSIG("ADMINCDT"	SIGBLK+10
TIUSIG("AUTHOR"	SIGBLK+38, SIGBLK+40, SIGBLK+41
TIUSIG("COSCHRT"	SIGBLK+33, SIGBLK+93
TIUSIG("COSGDATE"	SIGBLK+77, SIGBLK+86
TIUSIG("COSGEDBY"	SIGBLK+79, SIGBLK+88, SIGBLK+89
TIUSIG("COSGMODE"	SIGBLK+79, SIGBLK+91
TIUSIG("COSGNAME"	SIGBLK+79
TIUSIG("COSGTITL"	SIGBLK+80, SIGBLK+82, SIGBLK+85
TIUSIG("SIGCHRT"	SIGBLK+32
TIUSIG("SIGNDATE"	SIGBLK+10, SIGBLK+16, SIGBLK+25
TIUSIG("SIGNEDBY"	SIGBLK+18, SIGBLK+27, SIGBLK+28, SIGBLK+38
TIUSIG("SIGNMODE"	SIGBLK+18, SIGBLK+29
TIUSIG("SIGNNAME"	SIGBLK+18
TIUSIG("SIGTITL"	SIGBLK+19, SIGBLK+21, SIGBLK+24
TIUSIGTL	SIGBLK+39~, SIGBLK+41*, SIGBLK+42, SIGBLK+44
U	SIGBLK+7, SIGBLK+27, SIGBLK+28, SIGBLK+73, SIGBLK+74, SIGBLK+88, SIGBLK+89

Customize PDF page

Package: Text Integration Utility

Routine: TIUPRPN8

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Local Variables

Legend: