TIUPNCVU.m

TIUPNCVU ;SLC/DAN - Final pass through ^GMR(121 for conversion ;4/22/98@14:08:17

 ;;1.0;TEXT INTEGRATION UTILITIES;**9**;Jun 20, 1997

EN ; Entry Point

 I +$$VERSION^XPDUTL("TIU")'>0 W !,"YOU MUST INSTALL TIU BEFORE RUNNING THIS OPTION!",$C(7) Q  ;Make sure TIU is installed first.

WHY F TIUWN=1:1 S TIULINE=$P($T(@("EXPLAIN+"_TIUWN)),";;",2) Q:TIULINE="STOP"  W !,TIULINE

 S TIURUN=$$READ^TIUU("Y","Are you sure you want to run this","NO")

 I '+TIURUN W !,"Ok, come back when you're sure." D CLEAN Q

 ;Agreed to run it, now check to see if PN conversion is currently running.

 I $P(^TIU(8925.97,1,0),U,3)="" W !!,"It appears as though the Progress Notes conversion is running.",!,"Please run this after the conversion finishes." D CLEAN Q

 W !! S TIUECS=$$ASKCOS I 'TIUECS D CLEAN Q

 ;

DEVICE ;Allows user to queue this option

 S %ZIS="Q" D ^%ZIS I POP D CLEAN Q

 I $D(IO("Q")) S ZTDESC="Final conversion pass",ZTRTN="DQ^TIUPNCVU",ZTIO=ION,ZTSAVE("TIUECS")="" D ^%ZTLOAD W !,"Request ",$S($D(ZTSK):"Queued",1:"Cancelled"),! D ^%ZISC,CLEAN,HOME^%ZIS Q

 ;

DQ ;Move through ^GMR(121 and convert any remaining notes

 W:$E(IOST,1,2)="C-" !,"Working..." S (TIUATC,TIUCVTED)=0

 S GMRIEN=0 F  S GMRIEN=$O(^GMR(121,GMRIEN)) Q:'+GMRIEN  D:'$D(^GMR(121,"CNV",GMRIEN)) CONVERT(GMRIEN) W:$E(IOST,1,2)="C-"&'(GMRIEN#1000) "." ;Convert if not already done.

 W !!,"CONVERSION IS COMPLETE!"

 W !!,"Total entries processed: ",$P(^GMR(121,0),"^",4),!,"Attempted to convert: ",TIUATC,!,"Converted: ",TIUCVTED

 ;

CLEAN ;KILL VARIABLES

 K TIUWN,TIULINE,TIURUN,TIUECS,%ZIS,POP,IO("Q"),ZTRTN,ZTDESC,ZTIO,ZTSAVE,GMRIEN,TIU,EMER,Y,TIUATC,TIUCVTED,DIR,ZTSK

 Q

 ;

CONVERT(Y) ;Sets needed variables and calls the convert individual note process

 N DPTIEN S EMER=1 S DPTIEN=$P(^GMR(121,Y,0),"^",2) I DPTIEN,$E($P(^DPT(DPTIEN,0),"^",9),1,4)'="0000" S TIUATC=TIUATC+1

 D EMERG^TIUPNCV4

 I $D(^GMR(121,"CNV",GMRIEN)) S TIUCVTED=TIUCVTED+1

 S:GMRIEN>$P(^TIU(8925.97,1,0),"^",5) $P(^TIU(8925.97,1,0),"^",5)=GMRIEN ;Update PN last entry processed

 Q

 ;

ASKCOS() ;Ask for cosigner to be used for notes that are signed but uncosigned and req cosignature

 W !,"For notes that are signed but are uncosigned, an expected",!,"cosigner must be identified before notes can be moved to TIU."

 W !!,"Please identify a user who will become the expected cosigner for",!,"these notes.  The clinical coordinator is recommended.",!

 W !,"Once these are moved to TIU the above named cosigner can edit the notes",!,"and put in the correct expected cosigner.",!

 N DIR,Y S DIR(0)="P^200:AEMQ",DIR("A")="Enter EXPECTED COSIGNER" D ^DIR

 Q +Y

 ;

EXPLAIN ;Explain what this option does

 ;;This option will process all remaining unconverted progress notes.

 ;;Notes that cannot be converted will be identified, along with the

 ;;the reason they could not be converted, as the process runs.

 ;;It is HIGHLY RECOMMENDED that you queue this option to a printer

 ;;so you can review the notes that did not convert.

 ;;

 ;;This option should be run after you have completed the final progress notes

 ;;conversion pass.  This will move all remaining notes (including

 ;;unsigned and uncosigned) to TIU.

 ;;

 ;;Notes that are reported as not converting, that you subsequently

 ;;fix, should be moved using the SINGLE PROGRES NOTES CONVERSION option.

 ;;

 ;;STOP

TIUPNCVU  ;SLC/DAN - Final pass through ^GMR(121 for conversion ;4/22/98@14:08:17

 +1       ;;1.0;TEXT INTEGRATION UTILITIES;**9**;Jun 20, 1997

EN        ; Entry Point

 +1       ;Make sure TIU is installed first.

           IF +$$VERSION^XPDUTL("TIU")'>0

               WRITE !,"YOU MUST INSTALL TIU BEFORE RUNNING THIS OPTION!",$CHAR(7)

               QUIT 

WHY        FOR TIUWN=1:1

               SET TIULINE=$PIECE($TEXT(@("EXPLAIN+"_TIUWN)),";;",2)

               IF TIULINE="STOP"

                   QUIT 

               WRITE !,TIULINE

 +1        SET TIURUN=$$READ^TIUU("Y","Are you sure you want to run this","NO")

 +2        IF '+TIURUN

               WRITE !,"Ok, come back when you're sure."

               DO CLEAN

               QUIT 

 +3       ;Agreed to run it, now check to see if PN conversion is currently running.

 +4        IF $PIECE(^TIU(8925.97,1,0),U,3)=""

               WRITE !!,"It appears as though the Progress Notes conversion is running.",!,"Please run this after the conversion finishes."

               DO CLEAN

               QUIT 

 +5        WRITE !!

           SET TIUECS=$$ASKCOS

           IF 'TIUECS

               DO CLEAN

               QUIT 

 +6       ;

DEVICE    ;Allows user to queue this option

 +1        SET %ZIS="Q"

           DO ^%ZIS

           IF POP

               DO CLEAN

               QUIT 

 +2        IF $DATA(IO("Q"))

               SET ZTDESC="Final conversion pass"

               SET ZTRTN="DQ^TIUPNCVU"

               SET ZTIO=ION

               SET ZTSAVE("TIUECS")=""

               DO ^%ZTLOAD

               WRITE !,"Request ",$SELECT($DATA(ZTSK):"Queued",1:"Cancelled"),!

               DO ^%ZISC

               DO CLEAN

               DO HOME^%ZIS

               QUIT 

 +3       ;

DQ        ;Move through ^GMR(121 and convert any remaining notes

 +1        IF $EXTRACT(IOST,1,2)="C-"

               WRITE !,"Working..."

           SET (TIUATC,TIUCVTED)=0

 +2       ;Convert if not already done.

           SET GMRIEN=0

           FOR 

               SET GMRIEN=$ORDER(^GMR(121,GMRIEN))

               IF '+GMRIEN

                   QUIT 

               IF '$DATA(^GMR(121,"CNV",GMRIEN))

                   DO CONVERT(GMRIEN)

               IF $EXTRACT(IOST,1,2)="C-"&'(GMRIEN#1000)

                   WRITE "."

 +3        WRITE !!,"CONVERSION IS COMPLETE!"

 +4        WRITE !!,"Total entries processed: ",$PIECE(^GMR(121,0),"^",4),!,"Attempted to convert: ",TIUATC,!,"Converted: ",TIUCVTED

 +5       ;

CLEAN     ;KILL VARIABLES

 +1        KILL TIUWN,TIULINE,TIURUN,TIUECS,%ZIS,POP,IO("Q"),ZTRTN,ZTDESC,ZTIO,ZTSAVE,GMRIEN,TIU,EMER,Y,TIUATC,TIUCVTED,DIR,ZTSK

 +2        QUIT 

 +3       ;

CONVERT(Y) ;Sets needed variables and calls the convert individual note process

 +1        NEW DPTIEN

           SET EMER=1

           SET DPTIEN=$PIECE(^GMR(121,Y,0),"^",2)

           IF DPTIEN

               IF $EXTRACT($PIECE(^DPT(DPTIEN,0),"^",9),1,4)'="0000"

                   SET TIUATC=TIUATC+1

 +2        DO EMERG^TIUPNCV4

 +3        IF $DATA(^GMR(121,"CNV",GMRIEN))

               SET TIUCVTED=TIUCVTED+1

 +4       ;Update PN last entry processed

           IF GMRIEN>$PIECE(^TIU(8925.97,1,0),"^",5)

               SET $PIECE(^TIU(8925.97,1,0),"^",5)=GMRIEN

 +5        QUIT 

 +6       ;

ASKCOS()  ;Ask for cosigner to be used for notes that are signed but uncosigned and req cosignature

 +1        WRITE !,"For notes that are signed but are uncosigned, an expected",!,"cosigner must be identified before notes can be moved to TIU."

 +2        WRITE !!,"Please identify a user who will become the expected cosigner for",!,"these notes.  The clinical coordinator is recommended.",!

 +3        WRITE !,"Once these are moved to TIU the above named cosigner can edit the notes",!,"and put in the correct expected cosigner.",!

 +4        NEW DIR,Y

           SET DIR(0)="P^200:AEMQ"

           SET DIR("A")="Enter EXPECTED COSIGNER"

           DO ^DIR

 +5        QUIT +Y

 +6       ;

EXPLAIN   ;Explain what this option does

 +1       ;;This option will process all remaining unconverted progress notes.

 +2       ;;Notes that cannot be converted will be identified, along with the

 +3       ;;the reason they could not be converted, as the process runs.

 +4       ;;It is HIGHLY RECOMMENDED that you queue this option to a printer

 +5       ;;so you can review the notes that did not convert.

 +6       ;;

 +7       ;;This option should be run after you have completed the final progress notes

 +8       ;;conversion pass.  This will move all remaining notes (including

 +9       ;;unsigned and uncosigned) to TIU.

 +10      ;;

 +11      ;;Notes that are reported as not converting, that you subsequently

 +12      ;;fix, should be moved using the SINGLE PROGRES NOTES CONVERSION option.

 +13      ;;

 +14      ;;STOP