Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BTIUPRT2

BTIUPRT2.m

Go to the documentation of this file.
  1. BTIUPRT2 ;IHS/MSC/MGH - Special header/footers;18-Mar-2015 12:30;DU
  1. ;;1.0;TEXT INTEGRATION UTILITIES;**1008,1013**;Jun 20, 1997;Build 33
  1. ;From TIUPRPN2 - Header/Footer for Progress Notes ;25-JAN-2001 08:50:35
  1. ;IHS/MSC/MGH 1013 new VADM because of variable leak
  1. ;
  1. ; Also controls Pagination position, writes footer when appropriate.
  1. ; vars TIUMISC,TIUCONT1. Optional TIUHDR.
  1. ; IF TIUHDR=1, HEADER WILL NOT BE PRINTED
  1. N TIUCONT,TIUFLAG,TIUPFNBR,TIUDA,LINENO,LINE,Y,CNT
  1. K ^TMP("TIUBOIL",$J)
  1. S TIUCONT=1
  1. S TIUFLAG=$P(TIUMISC,U),TIUPFNBR=$P(TIUMISC,U,2),TIUDA=$P(TIUMISC,U,3)
  1. I $E(IOST)="C" G FOOTX:$Y+3<IOSL S TIUCONT=$$STOP G FOOTW
  1. G FTR:+$G(TIUHDR)
  1. G:$Y+10<IOSL FOOTX
  1. FTR D BOIL(FOOTER,.CNT,DFN)
  1. S LINENO=CNT+4
  1. I (IOT'="HFS")!(IOSL<250) F Q:$Y+LINENO'<IOSL W ! ;moves ftr to pg bottom
  1. N TIUFNUM,TIULINE,LOC,DIV,TIUDIV,TIUDIVI,TIUPRTDT,TIUPRTNM
  1. S $P(TIULINE,"-",81)=""
  1. S Y="" F S Y=$O(^TMP("TIUBOIL",$J,Y)) Q:Y="" D
  1. .W !,$G(^TMP("TIUBOIL",$J,Y,0))
  1. W ?21,$S(+$G(TIUCONT1):"** THIS NOTE CONTINUED ON NEXT PAGE **",1:""),!
  1. S TIUPRTDT="Printed:"_$$DATE^TIULS($$NOW^TIULC,"MM/DD/CCYY HR:MIN")
  1. W ?55,TIUPRTDT
  1. W !,"=========================== CONFIDENTIAL INFORMATION ==========================="
  1. W @IOF
  1. FOOTW I '+$G(TIUHDR),+$G(TIUCONT) D HEADER(TIUFLAG,TIUCONT1,HEADER,TIUDA,DFN)
  1. FOOTX ;
  1. Q TIUCONT
  1. ; Requires array TIUFOOT, vars TIUFLAG,TIUPFHDR,TIUCONT1
  1. N TIULINE,LINENO,X,LINE,NEWLINE,Y,LINENO
  1. K ^TMP("TIUBOIL",$J)
  1. S $P(TIULINE,"-",81)=""
  1. I $E(IOST)="C" D
  1. .;W @IOF,$C(13),!,TIULINE,!
  1. .;I +$G(TIUCONT1) W $$DATE^TIULS(@TIUROOT@(1301,"I"),"MM/DD/CCYY HR:MIN"),
  1. .I +G(TIUCONT1) W !,?21,"** CONTINUED FROM PREVIOUS SCREEN **",!!
  1. E D
  1. .;W !,TIULINE,!
  1. .;I +$G(TIUCONT1) W $$DATE^TIULS(@TIUROOT@(1301,"I"),"MM/DD/CCYY HR:MIN"),
  1. .I +$G(TIUCONT1) W !,?21,"** CONTINUED FROM PREVIOUS PAGE **",!!
  1. D BOIL(HEADER,.LINENO,DFN)
  1. S Y="" F S Y=$O(^TMP("TIUBOIL",$J,Y)) Q:Y="" D
  1. .W !,$G(^TMP("TIUBOIL",$J,Y,0))
  1. W !
  1. Q
  1. BOIL(TYPE,CNT,DFN) ;Expand boilerplate text
  1. N TIU,VADM
  1. S TIU("VISIT")=TIUK
  1. S LINENO=0 F S LINENO=$O(^TIU(8927,TYPE,2,LINENO)) Q:LINENO="" D
  1. . S CNT=LINENO
  1. . S LINE=$G(^TIU(8927,TYPE,2,LINENO,0))
  1. . I LINE["|" S X=$$BOIL^TIUSRVD(LINE,LINENO) D
  1. . .I X["~@" D INSMULT^TIUSRVD(X,"^TMP(""TIUBOIL"",$J)",.LINENO) I 1
  1. . .E S ^TMP("TIUBOIL",$J,LINENO,0)=X
  1. . E S ^TMP("TIUBOIL",$J,LINENO,0)=LINE
  1. Q
  1. STOP() ;on screen paging check
  1. ; quits TIUCONT=1 if cont. ELSE quits TIUCONT=0
  1. N DIR,Y,TIUCONT
  1. S DIR(0)="E" D ^DIR
  1. S TIUCONT=Y
  1. Q TIUCONT