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
Print Page as PDF
Routine: TIUPRPN2

Package: Text Integration Utility

Routine: TIUPRPN2


Information

TIUPRPN2 ;SLC/MJC - Header/Footer for Progress Notes ;25-JAN-2001 08:50:35

Source Information

Source file <TIUPRPN2.m>

Entry Points

Name Comments DBIA/ICR reference
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
FTR
FOOTW
FOOTX ;
HEADER(TIUFOOT,TIUFLAG,TIUPFHDR,TIUCONT1,TIUROOT) ; Header
; Requires array TIUFOOT, vars TIUFLAG,TIUPFHDR,TIUCONT1
STOP() ;on screen paging check
; quits TIUCONT=1 if cont. ELSE quits TIUCONT=0

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: !,?(80-$L(TIUFOOT("LOCP"))\2),TIUFOOT("LOCP")
  • Line Location: FTR+20
Function Call: WRITE
  • Prompt: ?(80-$L(TIUPFNBR)),TIUPFNBR
  • Line Location: FTR+21
Function Call: WRITE
  • Prompt: ?(80-$L(TIUFOOT("PH#"))),TIUFOOT("PH#")
  • Line Location: FTR+22
Function Call: WRITE
  • Prompt: !,TIULINE
  • Line Location: FTR+23
Function Call: WRITE
  • Prompt: !,"=========================== CONFIDENTIAL INFORMATION ==========================="
  • Line Location: FTR+24
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: FTR+25
Function Call: WRITE
  • Prompt: $$DATE^TIULS(@TIUROOT@(1301,"I"),"MM/DD/CCYY HR:MIN"),?21,"** CONTINUED FROM PREVIOUS SCREEN **",!
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: ?(80-$L(TIUPFHDR)),TIUPFHDR
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: $$DATE^TIULS(@TIUROOT@(1301,"I"),"MM/DD/CCYY HR:MIN"),?21,"** CONTINUED FROM PREVIOUS PAGE **",!!
  • Line Location: HEADER+11
Info |  Source |  Entry Points |  Interaction Calls