RGP43PST ;BIR/PTD-POST-INIT TO RETIRE EXCEPTIONS #209, 213, 214, 218 ;10/05/05
;;1.0;CLINICAL INFO RESOURCE NETWORK;**43**;30 Apr 99
;
;Loop through the CIRN HL7 EXCEPTION LOG (#991.1) file.
;Find exceptions with EXCEPTION STATUS of NOT PROCESSED ("0").
;Get the TYPE which is a pointer to the CIRN HL7 EXCEPTION
;TYPE (#991.11) file. If the TYPE is 209, 213, 214, or 218,
;mark the EXCEPTION STATUS to PROCESSED ("1"). These exception
;types will not be generated in the future.
;
EXLOG ;
;If patch RG*1.0*43 has previously been installed, quit post-init.
I $$PATCH^XPDUTL("RG*1.0*43") D BMES^XPDUTL(" Post-install previously ran; no need to reprocess file 991.1.") Q
;Else continue with post-init.
;
D BMES^XPDUTL(" The post-init routine will retire selected exceptions in")
D MES^XPDUTL(" the CIRN HL7 EXCEPTION LOG (#991.1) file.")
;
N COUNT,DA,DIC,DIE,DR,EXNUM,EXCTYP,LOGIEN,X,Y,ZNODE
S (LOGIEN,COUNT)=0
F S LOGIEN=$O(^RGHL7(991.1,LOGIEN)) Q:'LOGIEN D
.S EXNUM=0
.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
..S EXCTYP=$P(ZNODE,"^",3) ;Quit if TYPE is NOT one of these 4:
..;209 - Required field(s) missing for patient sent to MPI
..;213 - SSN Match Failed
..;214 - Name Doesn't Match
..;218 - Potential Matches Returned
..I $S(EXCTYP=209:0,EXCTYP=213:0,EXCTYP=214:0,EXCTYP=218:0,1:1) Q ;TYPE is one of the four we want to mark as PROCESSED
..;
DIE ..;Update the EXCEPTION STATUS (#6) field to '1'.
..S DA(1)=LOGIEN,DA=EXNUM,DR="6///"_1
..S DIE="^RGHL7(991.1,"_DA(1)_",1,"
..L +^RGHL7(991.1,LOGIEN):10
..D ^DIE K DA,DIE,DR
..L -^RGHL7(991.1,LOGIEN)
..S COUNT=COUNT+1
;
D BMES^XPDUTL(" A total of "_COUNT_" exceptions were retired.")
D MES^XPDUTL(" Post-install routine completed successfully.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRGP43PST 1898 printed Dec 13, 2024@01:42:35 Page 2
RGP43PST ;BIR/PTD-POST-INIT TO RETIRE EXCEPTIONS #209, 213, 214, 218 ;10/05/05
+1 ;;1.0;CLINICAL INFO RESOURCE NETWORK;**43**;30 Apr 99
+2 ;
+3 ;Loop through the CIRN HL7 EXCEPTION LOG (#991.1) file.
+4 ;Find exceptions with EXCEPTION STATUS of NOT PROCESSED ("0").
+5 ;Get the TYPE which is a pointer to the CIRN HL7 EXCEPTION
+6 ;TYPE (#991.11) file. If the TYPE is 209, 213, 214, or 218,
+7 ;mark the EXCEPTION STATUS to PROCESSED ("1"). These exception
+8 ;types will not be generated in the future.
+9 ;
EXLOG ;
+1 ;If patch RG*1.0*43 has previously been installed, quit post-init.
+2 IF $$PATCH^XPDUTL("RG*1.0*43")
DO BMES^XPDUTL(" Post-install previously ran; no need to reprocess file 991.1.")
QUIT
+3 ;Else continue with post-init.
+4 ;
+5 DO BMES^XPDUTL(" The post-init routine will retire selected exceptions in")
+6 DO MES^XPDUTL(" the CIRN HL7 EXCEPTION LOG (#991.1) file.")
+7 ;
+8 NEW COUNT,DA,DIC,DIE,DR,EXNUM,EXCTYP,LOGIEN,X,Y,ZNODE
+9 SET (LOGIEN,COUNT)=0
+10 FOR
SET LOGIEN=$ORDER(^RGHL7(991.1,LOGIEN))
if 'LOGIEN
QUIT
Begin DoDot:1
+11 SET EXNUM=0
+12 ;Quit if EXCEPTION STATUS (#6) equals 1 for PROCESSED
FOR
SET EXNUM=$ORDER(^RGHL7(991.1,LOGIEN,1,EXNUM))
if 'EXNUM
QUIT
SET ZNODE=$GET(^(EXNUM,0))
IF $PIECE(ZNODE,"^",5)'=1
Begin DoDot:2
+13 ;Quit if TYPE is NOT one of these 4:
SET EXCTYP=$PIECE(ZNODE,"^",3)
+14 ;209 - Required field(s) missing for patient sent to MPI
+15 ;213 - SSN Match Failed
+16 ;214 - Name Doesn't Match
+17 ;218 - Potential Matches Returned
+18 ;TYPE is one of the four we want to mark as PROCESSED
IF $SELECT(EXCTYP=209:0,EXCTYP=213:0,EXCTYP=214:0,EXCTYP=218:0,1:1)
QUIT
+19 ;
DIE ;Update the EXCEPTION STATUS (#6) field to '1'.
+1 SET DA(1)=LOGIEN
SET DA=EXNUM
SET DR="6///"_1
+2 SET DIE="^RGHL7(991.1,"_DA(1)_",1,"
+3 LOCK +^RGHL7(991.1,LOGIEN):10
+4 DO ^DIE
KILL DA,DIE,DR
+5 LOCK -^RGHL7(991.1,LOGIEN)
+6 SET COUNT=COUNT+1
End DoDot:2
End DoDot:1
+7 ;
+8 DO BMES^XPDUTL(" A total of "_COUNT_" exceptions were retired.")
+9 DO MES^XPDUTL(" Post-install routine completed successfully.")
+10 QUIT
