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

RGP57PST.m

Go to the documentation of this file.
  1. RGP57PST ;BIR/PTD-POST-INIT TO RETIRE #218 EXCEPTIONS ;3/9/10
  1. ;;1.0;CLINICAL INFO RESOURCE NETWORK;**57**;30 Apr 99;Build 2
  1. ;
  1. ;Loop through the CIRN HL7 EXCEPTION LOG (#991.1) file.
  1. ;Find exceptions with EXCEPTION STATUS of NOT PROCESSED ("0").
  1. ;Get the TYPE which is a pointer to the CIRN HL7 EXCEPTION
  1. ;TYPE (#991.11) file. If the TYPE is 218 (Potential Matches
  1. ;Returned),mark the EXCEPTION STATUS to PROCESSED ("1").
  1. ;Exception type 218 is obsolete.
  1. ;
  1. EXLOG ;
  1. ;If patch RG*1.0*57 has previously been installed, quit post-init.
  1. I $$PATCH^XPDUTL("RG*1.0*57") D BMES^XPDUTL(" Post-install previously ran; no need to reprocess file 991.1 again.") Q
  1. ;Else continue with post-init.
  1. ;
  1. D BMES^XPDUTL(" The post-init routine will retire Potential Matches Returned (218)")
  1. D MES^XPDUTL(" exceptions in the CIRN HL7 EXCEPTION LOG (#991.1) file.")
  1. ;
  1. N COUNT,DA,DIC,DIE,DR,EXNUM,EXCTYP,LOGIEN,X,Y,ZNODE
  1. S (LOGIEN,COUNT)=0
  1. F S LOGIEN=$O(^RGHL7(991.1,LOGIEN)) Q:'LOGIEN D
  1. .S EXNUM=0
  1. .F S EXNUM=$O(^RGHL7(991.1,LOGIEN,1,EXNUM)) Q:'EXNUM S ZNODE=$G(^(EXNUM,0)) I $P(ZNODE,"^",5)'=1 D ;Quit if EXCEPTION STATUS (#6) equals 1 for PROCESSED
  1. ..S EXCTYP=$P(ZNODE,"^",3) ;Get exception TYPE
  1. ..I EXCTYP=218 D ;If TYPE is 218 - Potential Matches Returned DO
  1. ...;
  1. DIE ...;Update the EXCEPTION STATUS (#6) field to '1' - PROCESSED.
  1. ...S DA(1)=LOGIEN,DA=EXNUM,DR="6///"_1
  1. ...S DIE="^RGHL7(991.1,"_DA(1)_",1,"
  1. ...L +^RGHL7(991.1,LOGIEN):10
  1. ...D ^DIE K DA,DIE,DR
  1. ...L -^RGHL7(991.1,LOGIEN)
  1. ...S COUNT=COUNT+1
  1. ;
  1. D BMES^XPDUTL(" A total of "_COUNT_" Potential Matches Returned exceptions were retired.")
  1. D MES^XPDUTL(" Post-install routine completed successfully.")
  1. Q