TIUP134P ; SLC/JAK,RMO - Post-Install for TIU*1*134 Cont.;7/8/02@13:15:47
;;1.0;TEXT INTEGRATION UTILITIES;**134**;Jun 20, 1997
PRINT ; -- Device Selection
W !!,"This routine will print ALL records processed to date by the"
W !,"auto-link routine independent of the date range selected at"
W !,"processing time."
W !!,*7,"This report requires a column width of 132.",!
S %ZIS="Q" D ^%ZIS I POP K POP G PRINTQ
I $D(IO("Q")) K IO("Q") D Q
. S ZTRTN="LIST^TIUP134P"
. S ZTDESC="TIU*1*134 AUTO-LINK MISSING VISIT TO DOCUMENT RESULTS"
. D ^%ZTLOAD W !,$S($D(ZTSK):"Request queued",1:"Request Cancelled!")
. K ZTSK,ZTDESC,ZTDTH,ZTIO,ZTRTN,%ZIS
. D HOME^%ZIS
U IO D LIST,^%ZISC
PRINTQ Q
;
LIST ; -- Entry point to generate list
N TIUDA,TIULNK,TIUOUT S TIUOUT=0
I $D(ZTQUEUED) S ZTREQ="@"
D HDR
I +$O(^XTMP("TIUP134","LNK",0))'>0 W !?4,"No records in list." G LISTQ
S TIUDA=0
F S TIUDA=$O(^XTMP("TIUP134","LNK",TIUDA)) Q:'TIUDA!(TIUOUT) S TIULNK=$G(^(TIUDA)) D LISTONE(TIUDA,TIULNK)
LISTQ Q
;
LISTONE(TIUDA,TIULNK) ;Entry point to list one record
; Input -- TIUDA TIU Document file (#8925) IEN
; TIULNK 1st piece= 1=Linked and 0=Not Linked
; 2nd piece= Exception type if not linked
; 3rd piece= Visit file (#9000010) IEN if linked
; Output -- None
N DFN,TIUEX,VADM,VAIP,VAIN,VA
I $Y>(IOSL-4) D ASK G LISTONEQ:TIUOUT D HDR
S DFN=+$P($G(^TIU(8925,+TIUDA,0)),U,2)
S TIUEX=+$P($G(TIULNK),U,2)
D OERR^VADPT
W !,$E($G(VADM(1)),1,20)_" ("_$G(VA("BID"))_")"
W ?30,TIUDA
W ?42,$E($P($G(^TIU(8925.1,+$G(^TIU(8925,+TIUDA,0)),0)),U,1),1,10)
W ?53,$$DATE^TIULS(+$P($G(^TIU(8925,+TIUDA,13)),U,1),"MM/DD/CCYY HR:MIN")
I +$G(TIULNK),$P(TIULNK,U,3) D
. N DA,DIC,DIQ,DR,TIUVISIT
. S DIC="^AUPNVSIT(",DIQ="TIUVISIT",DIQ(0)="E",DA=+$P(TIULNK,U,3)
. S DR=".01;.22" D EN^DIQ1
. W ?70,$E($G(TIUVISIT(9000010,DA,.22,"E")),1,15)
. W ?86,$G(TIUVISIT(9000010,DA,.01,"E"))
. W ?109,"Yes-Visit #"_$P(TIULNK,U,3)
ELSE D
. W ?109,"No-"
. W $S(TIUEX=1:"Multiple Visits",TIUEX=2:"Entry in Use",TIUEX=3:"No Matching Visit",1:"")
LISTONEQ Q
;
ASK ; -- End of Page
I IO=IO(0),$E(IOST)="C" D
. W ! N DIR,X,Y S DIR(0)="E"
. D ^DIR I $D(DUOUT)!$D(DTOUT) S TIUOUT=1
Q
;
HDR ; -- Header for report
N LNE,TIUNOW
D NOW^%DTC S Y=% X ^DD("DD") S TIUNOW=Y
W @IOF,"TIU*1*134 AUTO-LINK MISSING VISIT TO DOCUMENT LIST - Printed: ",TIUNOW
W !,"Patient",?30,"Document #",?42,"Title",?53,"Reference Date",?70,"Visit Location",?86,"Visit Date/Time",?109,"Linked"
W ! S LNE="",$P(LNE,"-",(IOM-1))="" W LNE
Q
;
MAIL ;Send completion message to user who initiated post-install
N XMSUB,XMTEXT,XMDUZ,XMY,XMZ,XMMG
N TIURNG,TIUTXT
S XMDUZ="PATCH TIU*1*134 AUTO-LINK VISIT TO DOCUMENT",XMY(.5)=""
S:$G(DUZ) XMY(DUZ)=""
S TIUTXT(1)="Auto-link missing VISIT field (#.03) in the TIU DOCUMENT file (#8925)"
S TIUTXT(2)="to an existing visit:"
S TIUTXT(3)=""
S TIUTXT(4)="Task Started: "_$$FMTE^XLFDT($G(^XTMP("TIUP134","T0")))
S TIUTXT(5)="Task Ended: "_$$FMTE^XLFDT($G(^XTMP("TIUP134","T1")))
S TIUTXT(6)=""
;
S TIURNG=$$FMTE^XLFDT($P($G(^XTMP("TIUP134","CHKPT")),U,2))_" thru "_$S($G(^XTMP("TIUP134","STOP")):$$FMTE^XLFDT($P($G(^XTMP("TIUP134","CHKPT")),U,1)),1:$$FMTE^XLFDT($P($G(^XTMP("TIUP134","CHKPT")),U,3)))
S TIUTXT(7)="Date Range Processed: "_TIURNG
S TIUTXT(8)=""
S TIUTXT(9)="Number of entries automatically linked: "_+$G(^XTMP("TIUP134","CNT","LNK"))
S TIUTXT(10)=""
S TIUTXT(11)="Number of entries NOT automatically linked: "_+$G(^XTMP("TIUP134","CNT","EX"))
S TIUTXT(12)=" -Number NOT linked because - Multiple Visits: "_+$G(^XTMP("TIUP134","CNT","EX",1))
S TIUTXT(13)=" -Number NOT linked because - Entry in Use: "_+$G(^XTMP("TIUP134","CNT","EX",2))
S TIUTXT(14)=" -Number NOT linked because - No Matching Visit: "_+$G(^XTMP("TIUP134","CNT","EX",3))
S TIUTXT(15)=""
S TIUTXT(16)="TOTAL Number of entries processed: "_+$G(^XTMP("TIUP134","CNT","TOT"))
S TIUTXT(17)=""
I $G(^XTMP("TIUP134","STOP")) D
. S TIUTXT(18)="Task STOPPED: "_$$FMTE^XLFDT($G(^XTMP("TIUP134","STOP")))_"."
ELSE D
. S TIUTXT(18)="Task COMPLETED successfully."
. S TIUTXT(19)=""
. S TIUTXT(20)="To print a detailed listing of ALL records processed invoke D PRINT^TIUP134P."
S XMTEXT="TIUTXT(",XMSUB="TIU*1*134 Auto-link from "_TIURNG
D ^XMD
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUP134P 4410 printed Oct 16, 2024@18:43:22 Page 2
TIUP134P ; SLC/JAK,RMO - Post-Install for TIU*1*134 Cont.;7/8/02@13:15:47
+1 ;;1.0;TEXT INTEGRATION UTILITIES;**134**;Jun 20, 1997
PRINT ; -- Device Selection
+1 WRITE !!,"This routine will print ALL records processed to date by the"
+2 WRITE !,"auto-link routine independent of the date range selected at"
+3 WRITE !,"processing time."
+4 WRITE !!,*7,"This report requires a column width of 132.",!
+5 SET %ZIS="Q"
DO ^%ZIS
IF POP
KILL POP
GOTO PRINTQ
+6 IF $DATA(IO("Q"))
KILL IO("Q")
Begin DoDot:1
+7 SET ZTRTN="LIST^TIUP134P"
+8 SET ZTDESC="TIU*1*134 AUTO-LINK MISSING VISIT TO DOCUMENT RESULTS"
+9 DO ^%ZTLOAD
WRITE !,$SELECT($DATA(ZTSK):"Request queued",1:"Request Cancelled!")
+10 KILL ZTSK,ZTDESC,ZTDTH,ZTIO,ZTRTN,%ZIS
+11 DO HOME^%ZIS
End DoDot:1
QUIT
+12 USE IO
DO LIST
DO ^%ZISC
PRINTQ QUIT
+1 ;
LIST ; -- Entry point to generate list
+1 NEW TIUDA,TIULNK,TIUOUT
SET TIUOUT=0
+2 IF $DATA(ZTQUEUED)
SET ZTREQ="@"
+3 DO HDR
+4 IF +$ORDER(^XTMP("TIUP134","LNK",0))'>0
WRITE !?4,"No records in list."
GOTO LISTQ
+5 SET TIUDA=0
+6 FOR
SET TIUDA=$ORDER(^XTMP("TIUP134","LNK",TIUDA))
if 'TIUDA!(TIUOUT)
QUIT
SET TIULNK=$GET(^(TIUDA))
DO LISTONE(TIUDA,TIULNK)
LISTQ QUIT
+1 ;
LISTONE(TIUDA,TIULNK) ;Entry point to list one record
+1 ; Input -- TIUDA TIU Document file (#8925) IEN
+2 ; TIULNK 1st piece= 1=Linked and 0=Not Linked
+3 ; 2nd piece= Exception type if not linked
+4 ; 3rd piece= Visit file (#9000010) IEN if linked
+5 ; Output -- None
+6 NEW DFN,TIUEX,VADM,VAIP,VAIN,VA
+7 IF $Y>(IOSL-4)
DO ASK
if TIUOUT
GOTO LISTONEQ
DO HDR
+8 SET DFN=+$PIECE($GET(^TIU(8925,+TIUDA,0)),U,2)
+9 SET TIUEX=+$PIECE($GET(TIULNK),U,2)
+10 DO OERR^VADPT
+11 WRITE !,$EXTRACT($GET(VADM(1)),1,20)_" ("_$GET(VA("BID"))_")"
+12 WRITE ?30,TIUDA
+13 WRITE ?42,$EXTRACT($PIECE($GET(^TIU(8925.1,+$GET(^TIU(8925,+TIUDA,0)),0)),U,1),1,10)
+14 WRITE ?53,$$DATE^TIULS(+$PIECE($GET(^TIU(8925,+TIUDA,13)),U,1),"MM/DD/CCYY HR:MIN")
+15 IF +$GET(TIULNK)
IF $PIECE(TIULNK,U,3)
Begin DoDot:1
+16 NEW DA,DIC,DIQ,DR,TIUVISIT
+17 SET DIC="^AUPNVSIT("
SET DIQ="TIUVISIT"
SET DIQ(0)="E"
SET DA=+$PIECE(TIULNK,U,3)
+18 SET DR=".01;.22"
DO EN^DIQ1
+19 WRITE ?70,$EXTRACT($GET(TIUVISIT(9000010,DA,.22,"E")),1,15)
+20 WRITE ?86,$GET(TIUVISIT(9000010,DA,.01,"E"))
+21 WRITE ?109,"Yes-Visit #"_$PIECE(TIULNK,U,3)
End DoDot:1
+22 IF '$TEST
Begin DoDot:1
+23 WRITE ?109,"No-"
+24 WRITE $SELECT(TIUEX=1:"Multiple Visits",TIUEX=2:"Entry in Use",TIUEX=3:"No Matching Visit",1:"")
End DoDot:1
LISTONEQ QUIT
+1 ;
ASK ; -- End of Page
+1 IF IO=IO(0)
IF $EXTRACT(IOST)="C"
Begin DoDot:1
+2 WRITE !
NEW DIR,X,Y
SET DIR(0)="E"
+3 DO ^DIR
IF $DATA(DUOUT)!$DATA(DTOUT)
SET TIUOUT=1
End DoDot:1
+4 QUIT
+5 ;
HDR ; -- Header for report
+1 NEW LNE,TIUNOW
+2 DO NOW^%DTC
SET Y=%
XECUTE ^DD("DD")
SET TIUNOW=Y
+3 WRITE @IOF,"TIU*1*134 AUTO-LINK MISSING VISIT TO DOCUMENT LIST - Printed: ",TIUNOW
+4 WRITE !,"Patient",?30,"Document #",?42,"Title",?53,"Reference Date",?70,"Visit Location",?86,"Visit Date/Time",?109,"Linked"
+5 WRITE !
SET LNE=""
SET $PIECE(LNE,"-",(IOM-1))=""
WRITE LNE
+6 QUIT
+7 ;
MAIL ;Send completion message to user who initiated post-install
+1 NEW XMSUB,XMTEXT,XMDUZ,XMY,XMZ,XMMG
+2 NEW TIURNG,TIUTXT
+3 SET XMDUZ="PATCH TIU*1*134 AUTO-LINK VISIT TO DOCUMENT"
SET XMY(.5)=""
+4 if $GET(DUZ)
SET XMY(DUZ)=""
+5 SET TIUTXT(1)="Auto-link missing VISIT field (#.03) in the TIU DOCUMENT file (#8925)"
+6 SET TIUTXT(2)="to an existing visit:"
+7 SET TIUTXT(3)=""
+8 SET TIUTXT(4)="Task Started: "_$$FMTE^XLFDT($GET(^XTMP("TIUP134","T0")))
+9 SET TIUTXT(5)="Task Ended: "_$$FMTE^XLFDT($GET(^XTMP("TIUP134","T1")))
+10 SET TIUTXT(6)=""
+11 ;
+12 SET TIURNG=$$FMTE^XLFDT($PIECE($GET(^XTMP("TIUP134","CHKPT")),U,2))_" thru "_$SELECT($GET(^XTMP("TIUP134","STOP")):$$FMTE^XLFDT($PIECE($GET(^XTMP("TIUP134","CHKPT")),U,1)),1:$$FMTE^XLFDT($PIECE($GET(^XTMP("TIUP134","CHKPT")),U,3)))
+13 SET TIUTXT(7)="Date Range Processed: "_TIURNG
+14 SET TIUTXT(8)=""
+15 SET TIUTXT(9)="Number of entries automatically linked: "_+$GET(^XTMP("TIUP134","CNT","LNK"))
+16 SET TIUTXT(10)=""
+17 SET TIUTXT(11)="Number of entries NOT automatically linked: "_+$GET(^XTMP("TIUP134","CNT","EX"))
+18 SET TIUTXT(12)=" -Number NOT linked because - Multiple Visits: "_+$GET(^XTMP("TIUP134","CNT","EX",1))
+19 SET TIUTXT(13)=" -Number NOT linked because - Entry in Use: "_+$GET(^XTMP("TIUP134","CNT","EX",2))
+20 SET TIUTXT(14)=" -Number NOT linked because - No Matching Visit: "_+$GET(^XTMP("TIUP134","CNT","EX",3))
+21 SET TIUTXT(15)=""
+22 SET TIUTXT(16)="TOTAL Number of entries processed: "_+$GET(^XTMP("TIUP134","CNT","TOT"))
+23 SET TIUTXT(17)=""
+24 IF $GET(^XTMP("TIUP134","STOP"))
Begin DoDot:1
+25 SET TIUTXT(18)="Task STOPPED: "_$$FMTE^XLFDT($GET(^XTMP("TIUP134","STOP")))_"."
End DoDot:1
+26 IF '$TEST
Begin DoDot:1
+27 SET TIUTXT(18)="Task COMPLETED successfully."
+28 SET TIUTXT(19)=""
+29 SET TIUTXT(20)="To print a detailed listing of ALL records processed invoke D PRINT^TIUP134P."
End DoDot:1
+30 SET XMTEXT="TIUTXT("
SET XMSUB="TIU*1*134 Auto-link from "_TIURNG
+31 DO ^XMD
+32 QUIT
