DGENUPL5.m

DGENUPL5 ;ALB/KCL/GSN - PROCESS INCOMING (Z11 EVENT TYPE) HL7 MESSAGES ; 5/6/03 2:45pm

 ;;5.3;Registration;**222,504,1015**;08/13/93;Build 21

 ;

 ;DG*5.3*504 - Now, only updates the DG SECURITY LOG file #38.1 Zero

 ;             node, when SECURITY LEVEL [#2] goes from a Non-sensitive

 ;             value to a Sensitive value, i.e. (null or 0) to 1.

GETLOCKS(DFN) ;

 ; Description - Locks first the patient enrollment history, then the patient record. Used to sychronize the upload with registration and load/edit.

 ;

 ;Input: DFN - ien of patient record.

 ;Output: none

 ;

 N COUNT

 F COUNT=1:1:500 Q:$$BEGUPLD^DGENUPL3(DFN)

 F COUNT=1:1:500 Q:$$LOCK^DGENA1(DFN)

 F COUNT=1:1:500 Q:$$LOCK^DGENPTA1(DFN)

 Q

 ;

 ;

UNLOCK(DFN) ;

 ; Description: releases the locks obtained by GETLOCKS()

 ;

 ;Input: DFN - ien of patient record

 ;Output: none

 ;

 D ENDUPLD^DGENUPL3(DFN)

 D UNLOCK^DGENA1(DFN)

 D UNLOCK^DGENPTA1(DFN)

 Q

 ;

 ;

SECUPLD(DFN,DGSEC,OLDSEC) ;

 ; Description: Upload a patient security record receieved from the

 ;              HEC. The consistency checks on the record are assumed

 ;              to have been completed.

 ;

 ;  Input:

 ;     DFN - PATIENT ien

 ;   DGSEC - as array containing the patient security record, pass

 ;           by reference

 ;

 ; Output:

 ;  OLDSEC - as array containing the patient security record, prior

 ;           to upload of security data from HEC, pass by reference

 ;   

 ;

 N SECIEN

 ;

 ; is there a local security log record for the patient?

 S SECIEN=$$FINDSEC^DGENSEC(DFN)

 ;

 ; if local security record, obtain record prior to upload

 I $$GET^DGENSEC(SECIEN,.OLDSEC)

 ;

 ; if no local security log record for the patient, create a new

 ; security log entry with HEC security

 I 'SECIEN D

 .I $$STORE^DGENSEC(.DGSEC)

 E  D

 .; otherwise update the existing security log entry with HEC security

 .; if new level = Yes and old level Not = Yes          (DG*5.3*504)

 .I $G(DGSEC("LEVEL"))=1,$G(OLDSEC("LEVEL"))'=1 D

 ..I $$UPDATE^DGENSEC(DFN,.DGSEC)

 .E  D

 ..; since no update occurring, then set arrays the same to prevent an

 ..; Audit record from being created later.

 ..M DGSEC=OLDSEC

 ;

 Q

DGENUPL5  ;ALB/KCL/GSN - PROCESS INCOMING (Z11 EVENT TYPE) HL7 MESSAGES ; 5/6/03 2:45pm

 +1       ;;5.3;Registration;**222,504,1015**;08/13/93;Build 21

 +2       ;

 +3       ;DG*5.3*504 - Now, only updates the DG SECURITY LOG file #38.1 Zero

 +4       ;             node, when SECURITY LEVEL [#2] goes from a Non-sensitive

 +5       ;             value to a Sensitive value, i.e. (null or 0) to 1.

GETLOCKS(DFN) ;

 +1       ; Description - Locks first the patient enrollment history, then the patient record. Used to sychronize the upload with registration and load/edit.

 +2       ;

 +3       ;Input: DFN - ien of patient record.

 +4       ;Output: none

 +5       ;

 +6        NEW COUNT

 +7        FOR COUNT=1:1:500

               IF $$BEGUPLD^DGENUPL3(DFN)

                   QUIT 

 +8        FOR COUNT=1:1:500

               IF $$LOCK^DGENA1(DFN)

                   QUIT 

 +9        FOR COUNT=1:1:500

               IF $$LOCK^DGENPTA1(DFN)

                   QUIT 

 +10       QUIT 

 +11      ;

 +12      ;

UNLOCK(DFN) ;

 +1       ; Description: releases the locks obtained by GETLOCKS()

 +2       ;

 +3       ;Input: DFN - ien of patient record

 +4       ;Output: none

 +5       ;

 +6        DO ENDUPLD^DGENUPL3(DFN)

 +7        DO UNLOCK^DGENA1(DFN)

 +8        DO UNLOCK^DGENPTA1(DFN)

 +9        QUIT 

 +10      ;

 +11      ;

SECUPLD(DFN,DGSEC,OLDSEC) ;

 +1       ; Description: Upload a patient security record receieved from the

 +2       ;              HEC. The consistency checks on the record are assumed

 +3       ;              to have been completed.

 +4       ;

 +5       ;  Input:

 +6       ;     DFN - PATIENT ien

 +7       ;   DGSEC - as array containing the patient security record, pass

 +8       ;           by reference

 +9       ;

 +10      ; Output:

 +11      ;  OLDSEC - as array containing the patient security record, prior

 +12      ;           to upload of security data from HEC, pass by reference

 +13      ;   

 +14      ;

 +15       NEW SECIEN

 +16      ;

 +17      ; is there a local security log record for the patient?

 +18       SET SECIEN=$$FINDSEC^DGENSEC(DFN)

 +19      ;

 +20      ; if local security record, obtain record prior to upload

 +21       IF $$GET^DGENSEC(SECIEN,.OLDSEC)

 +22      ;

 +23      ; if no local security log record for the patient, create a new

 +24      ; security log entry with HEC security

 +25       IF 'SECIEN

               Begin DoDot:1

 +26               IF $$STORE^DGENSEC(.DGSEC)

               End DoDot:1

 +27      IF '$TEST

               Begin DoDot:1

 +28      ; otherwise update the existing security log entry with HEC security

 +29      ; if new level = Yes and old level Not = Yes          (DG*5.3*504)

 +30               IF $GET(DGSEC("LEVEL"))=1

                       IF $GET(OLDSEC("LEVEL"))'=1

                           Begin DoDot:2

 +31                           IF $$UPDATE^DGENSEC(DFN,.DGSEC)

                           End DoDot:2

 +32              IF '$TEST

                       Begin DoDot:2

 +33      ; since no update occurring, then set arrays the same to prevent an

 +34      ; Audit record from being created later.

 +35                       MERGE DGSEC=OLDSEC

                       End DoDot:2

               End DoDot:1

 +36      ;

 +37       QUIT