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

Package: Text Integration Utility

Routine: TIUPRPN2


Information

TIUPRPN2 ;SLC/MJC - Header/Footer for Progress Notes ;31-Dec-2012 15:16;DU

Source Information

Source file <TIUPRPN2.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Text Integration Utility 2 $$NOW^TIULC  $$DATE^TIULS  
VA Fileman 1 ^DIR  

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
HEADER(TIUFOOT,TIUFLAG,TIUPFHDR,TIUCONT1,TIUROOT) ; Header
; Requires array TIUFOOT, vars TIUFLAG,TIUPFHDR,TIUCONT1
FTR
FOOTER(TIUFOOT,TIUMISC,TIUCONT1,TIUHDR,TIUROOT) ; Function returns TIUCONT
; Also controls Pagination position, writes footer when appropriate.
; Requires array TIUFOOT, vars TIUMISC,TIUCONT1. Optional TIUHDR.
; IF TIUHDR=1, HEADER WILL NOT BE PRINTED
FOOTW
FOOTX ;
STOP() ;on screen paging check
; quits TIUCONT=1 if cont. ELSE quits TIUCONT=0

External References

Name Field # of Occurrence
^DIR STOP+3
$$NOW^TIULC FTR+14
$$DATE^TIULS FTR+14, HEADER+7, HEADER+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: FTR+0
Function Call: WRITE
  • Prompt: ?21,$S(+$G(TIUCONT1):"** THIS NOTE CONTINUED ON NEXT PAGE **",1:""),!
  • Line Location: FTR+3
Function Call: WRITE
  • Prompt: "WORK COPY ========== UNOFFICIAL "
  • Line Location: FTR+4
Function Call: WRITE
  • Prompt: "- NOT FOR MEDICAL RECORD =========== DO NOT FILE"
  • Line Location: FTR+5
Function Call: WRITE
  • Prompt: TIULINE
  • Line Location: FTR+6
Function Call: WRITE
  • Prompt: !,TIUFOOT("PNMP")
  • Line Location: FTR+7
Function Call: WRITE
  • Prompt: ?(80-$L(TIUPRTNM)\2),TIUPRTNM,?56,TIUPRTDT
  • Line Location: FTR+16
Function Call: WRITE
  • Prompt: ?58,TIUPRTDT,!?(80-$L(TIUPRTNM)\2),TIUPRTNM
  • Line Location: FTR+18
Function Call: WRITE
  • Prompt: !,TIUFOOT("SSN")," ",TIUFOOT("DOB"),?(80-$L(TIUFOOT("LOCP"))\2),TIUFOOT("LOCP")
  • Line Location: FTR+19
Function Call: WRITE
  • Prompt: !,TIUFOOT("HRCN")," ",TIUFOOT("DOB"),?(80-$L(TIUFOOT("LOCP"))\2),TIUFOOT("LOCP")
  • Line Location: FTR+20
Function Call: WRITE
  • Prompt: !,?(80-$L(TIUFOOT("LOCP"))\2),TIUFOOT("LOCP")
  • Line Location: FTR+21
Function Call: WRITE
  • Prompt: ?(80-$L(TIUPFNBR)),TIUPFNBR
  • Line Location: FTR+22
Function Call: WRITE
  • Prompt: ?(80-$L(TIUFOOT("PH#"))),TIUFOOT("PH#")
  • Line Location: FTR+23
Function Call: WRITE
  • Prompt: !,TIULINE
  • Line Location: FTR+24
Function Call: WRITE
  • Prompt: !,"=========================== CONFIDENTIAL INFORMATION ==========================="
  • Line Location: FTR+25
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: FTR+26
Function Call: WRITE
  • Prompt: $$DATE^TIULS(@TIUROOT@(1301,"I"),"MM/DD/CCYY HR:MIN"),?21,"** CONTINUED FROM PREVIOUS SCREEN **",!
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: ?(80-$L(TIUPFHDR)),TIUPFHDR
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: $$DATE^TIULS(@TIUROOT@(1301,"I"),"MM/DD/CCYY HR:MIN"),?21,"** CONTINUED FROM PREVIOUS PAGE **",!!
  • Line Location: HEADER+12
Routine Call
  • DIR
  • Line Location:
    • STOP+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SC - [#44] FTR+10
^TIU(8925.94 - [#8925.94] FTR+11, FTR+12

Label References

Name Line Occurrences
$$STOP FOOTER+7
FOOTW FOOTER+7
FOOTX FOOTER+7, FOOTER+9
FTR FOOTER+8
HEADER FOOTW

Naked Globals

Name Field # of Occurrence
^(0 FTR+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR STOP+2~
DIR(0 STOP+3*
DIV FTR+1~, FTR+10*, FTR+11
IOF FTR+26, HEADER+5
IOSL FOOTER+7, FOOTER+9, FTR
IOST FOOTER+7, HEADER+3
>> IOT FTR
LOC FTR+1~, FTR+8*, FTR+9, FTR+10
TIUCONT FOOTER+4~, FOOTER+5*, FOOTER+7*, FOOTW, FOOTX+1, STOP+2~, STOP+4*, STOP+5
TIUCONT1 FOOTER~, FTR+3, FOOTW, HEADER~, HEADER+7, HEADER+12
TIUDA FOOTER+4~, FOOTER+6*
TIUDIV FTR+1~, FTR+11*, FTR+12
TIUDIVI FTR+1~, FTR+12*, FTR+13
TIUFLAG FOOTER+4~, FOOTER+6*, FTR+4, FTR+20, FTR+21, FTR+22, FTR+23, FTR+24, FOOTW, HEADER~
, HEADER+9, HEADER+10
TIUFNUM FTR+1~
TIUFOOT FOOTER~, FOOTW, HEADER~
TIUFOOT("DOB" FTR+20
TIUFOOT("HRCN" FTR+20, HEADER+5
TIUFOOT("INTNM" FTR+13
TIUFOOT("LOCP" FTR+20, FTR+21
TIUFOOT("PH#" FTR+23
TIUFOOT("PNMP" FTR+7, HEADER+5
TIUFOOT("SITE" FTR+13
TIUHDR FOOTER~, FOOTER+8, FOOTW
>> TIUKID STOP+3
TIULINE FTR+1~, FTR+2*, FTR+6, FTR+24, HEADER+2~*, HEADER+5, HEADER+6, HEADER+9, HEADER+11
TIUMISC FOOTER~, FOOTER+6
TIUPFHDR FOOTW, HEADER~, HEADER+6, HEADER+10
TIUPFNBR FOOTER+4~, FOOTER+6*, FTR+22
TIUPRTDT FTR+1~, FTR+14*, FTR+16, FTR+18
TIUPRTNM FTR+1~, FTR+13*, FTR+15, FTR+16, FTR+18
TIUROOT FOOTER~, FTR+8, FOOTW, HEADER~, HEADER+7, HEADER+12
U FOOTER+6, FTR+10, FTR+12
Y STOP+2~, STOP+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All