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 |  FileMan Files Accessed Via FileMan Db Call |  Local Variables |  All
Print Page as PDF
Routine: TIUPRPN8

Package: Text Integration Utility

Routine: TIUPRPN8


Information

TIUPRPN8 ;SLC/MAM - Print SF 509-Progress Notes, Cont ;11/10/04 [1/4/05 12:17pm]

Source Information

Source file <TIUPRPN8.m>

Call Graph

Call Graph Total: 5

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

Caller Graph

Caller Graph Total: 2

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

Entry Points

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

External References

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

FileMan Files Accessed Via FileMan Db Call

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Local Variables |  All