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

TIUPNCV5.m

Go to the documentation of this file. 
  1. TIUPNCV5 ;SLC/DJP ;PNs ==> TIU cnv rtns ;5-7-97
  1.  ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
  1.  ;
  1. INTRO ;Introduction text
  1.  K DIR W @IOF W !!?16,"**** PROGRESS NOTE CONVERSION ****"
  1.  I $P($G(^GMR(121.99,1,"TITLE")),U,4)'="FINISHED" D MOREWK Q
  1.  D CANRUN Q:$G(TIU("QUIT"))
  1.  W !!?5,"This option will copy the data from the Generic Progress Note"
  1.  W !?5,"package (File #121) into the Text Integration Utility (TIU)"
  1.  W !?5,"package (File #8925).  Entries missing required data fields"
  1.  W !?5,"are ignored during processing but annotated on an error list."
  1.  ;
  1.  W !!?5,"The Generic Progress Note (^GMR 121) global will NOT be"
  1.  W !?5,"automatically deleted during this process.  It is recommended"
  1.  W !?5,"that the file be archived and purged as soon as possible after"
  1.  W !?5,"the conversion has been verified as complete."
  1.  ;
  1.  W !!?5,"A mail message documenting all discrepancies encountered during"
  1.  W !?5,"processing will be sent to you upon completion or halt of the"
  1.  W " conversion.",!
  1.  W !?5,"During conversion, a cross-reference is set in the"
  1.  W !?5,"GENERIC PROGRESS NOTE file (#121)- which contains"
  1.  W !?5,"the IEN of the progress note and the corresponding"
  1.  W !?5,"IEN in the TIU DOCUMENT file (#8925).",!
  1.  W !?5,"FORMAT:  ^GMR(121,""CNV"",IEN)=TIU IEN",!!
  1.  S DIR(0)="E" D ^DIR I $D(DIRUT) S TIU("QUIT")=1 Q
  1.  K DIR
  1.  D PNIEN Q:$G(TIU("QUIT"))
  1.  D MAIL Q:$G(TIU("QUIT"))
  1.  Q
  1.  ;
  1. MOREWK ;Must run GMRP*2.5*44 before installing & implementing TIU
  1.  S TIU("QUIT")=1
  1.  K DIR
  1.  W !!?5,"You MUST install and implement the patch, GMRP*2.5*44, prior"
  1.  W !?5,"to converting data from the Generic Progress Note files to the"
  1.  W !?5,"Text Integration Utility files.  This is a MUST DO action.",!
  1.  W !?5,"Additional information concerning this patch may be found in the"
  1.  W !?5,"TIU Implementation Guide."
  1.  H 2
  1.  Q
  1.  ;
  1. MAIL ;Mail Prompt
  1.  S TIUMAIL=$P(^VA(200,TIU("DUZ"),0),U,1)
  1.  W ! K DIR S DIR(0)="P^200:EMZ"
  1.  S DIR("A")="Please enter person to receive the completion message"
  1.  S DIR("B")=TIUMAIL,DIR("?")="^D HELP6^TIUPNCV5"
  1.  D ^DIR K DIR I $D(DIRUT)!(Y<0) S TIU("QUIT")=1 Q
  1.  S TIUUSER=$P(Y,U,1)
  1.  Q
  1.  ;
  1. PNIEN ;GMRPN IEN Prompt
  1.  N GMRPDA
  1.  S GMRPDA="A"
  1.  S GMRPDA=$O(^GMR(121,GMRPDA),-1)
  1.  W ! K DIR S DIR(0)="NA^0:99999999"
  1.  S DIR("A")="Enter IEN of last Progress Note in ^GMR(121 :  "
  1.  S DIR("B")=GMRPDA,DIR("?")="^D HELP10^TIUPNCV7" D ^DIR K DIR
  1.  I $D(DIRUT)!(Y<0) S TIU("QUIT")=1 Q
  1.  S TIUPNIEN=+Y
  1.  Q
  1.  ;
  1. HELP6 ;Help text for MAIL prompt
  1.  W !!?5,"At the completion of the conversion a bulletin will sent"
  1.  W !?5,"to this individual indicating completion status."
  1.  Q
  1.  ;
  1. CANRUN ; If Progress Note Conversion is currently running or the
  1.  ; Discharge Summary conversion is running, you CANNOT restart or
  1.  ; begin to run the Progress Note Conversion
  1.  S TIU2=$P($G(^TIU(8925.97,1,0)),U,2) ;start date
  1.  S TIU5=$P($G(^TIU(8925.97,1,0)),U,3) ;completed date
  1.  S TIU3=$P($G(^TIU(8925.97,1,0)),U,5) ;processing ien
  1.  I +$G(TIU2),+$G(TIU5),'+$G(TIU3) D  Q
  1.  . S TIU("QUIT")=1
  1.  . W !!?5,"Progress Note Conversion now running.",!
  1.  . W !?5,"DO NOT RUN CONVERSION",!
  1.  . K TIU2,TIU5,TIU3
  1.  . H 5
  1.  I +$G(^GMR(128,"CNV","T0")),'+$G(^GMR(128,"CNV","T1")) D  Q
  1.  . S TIU("QUIT")=1
  1.  . W !!?5,"Discharge Summary Conversion now running.",!
  1.  . W !?5,"Do not run Progress Note Conversion concurrently.",!
  1.  . H 5
  1.  Q
  1.  ;