Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

Name Comments DBIA/ICR reference
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
AMEND ; signature blocks of amender

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call