ACKQPCE3.m

ACKQPCE3 ;HCIOFO/AG - Quasar/PCE Interface; August 1999.

 ;;3.0;QUASAR;;Feb 11, 2000

 ;;

 ;

KILLPCE(ACKVIEN) ; kill a visit from PCE 

 ; see KILLPCE^ACKQPCE for comments. this routine should not be

 ; called directly, only from ^ACKQPCE (this routine assumes that

 ; ACKVIEN exists).

 N ACKDEAD,ACKLOCK,ACKPCE,ACKE,ACKARR,ACKMSG,ACKRSN

 S ACKDEAD=1,ACKLOCK=0

 ;

 ; get the PCE VISIT IEN from the visit file

 S ACKPCE=$$GET1^DIQ(509850.6,ACKVIEN_",",125,"I")

 ;

 ; if no PCE Visit Ien then nothing to do.

 I 'ACKPCE G KILLPCEX

 ;

 ; lock the visit

 L +^ACK(509850.6,ACKVIEN):0 I $T S ACKLOCK=1

 ;

 ; clear any existing PCE Errors for this visit

 D CLEAR^ACKQPCE(ACKVIEN)

 ;

 ; call PCE to delete the visit

 S ACKE=$$DELVFILE^PXAPI("ALL",ACKPCE,"","",0,0,"")

 ;

 ; if deletion not completed then record error and set flag

 I ACKE'=1 D

 . K ACKRSN S ACKRSN=0

 . S ACKMSG="Unable to Delete PCE Visit (error code="_ACKE_")"

 . D ADDRSN^ACKQPCE2("PCE VISIT",ACKPCE,"",ACKMSG,.ACKRSN)

 . D FILERSN^ACKQPCE(ACKVIEN,.ACKRSN)

 .  ; file last edited in Quasar date to create exception entry

 . K ACKARR D NOW^%DTC

 . S ACKARR(509850.6,ACKVIEN_",",140)=%

 . D FILE^DIE("","ACKARR","")

 . S ACKDEAD=0

 ;

 ; if deleted ok then update fields and set flag

 I ACKE=1 D

 . K ACKARR D NOW^%DTC

 . S ACKARR(509850.6,ACKVIEN_",",125)="@"  ; remove PCE Visit ien

 . S ACKARR(509850.6,ACKVIEN_",",135)=%    ; last sent to pce

 . D FILE^DIE("","ACKARR","")

 . S ACKDEAD=1

 ;

KILLPCEX ; exit point from KILLPCE

 ;

 ; if visit was locked then unlock it

 I ACKLOCK L -^ACK(509850.6,ACKVIEN)

 ;

 ; return whether the PCe visit was killed

 Q ACKDEAD

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ACKQPCE3   1678     printed  Apr 09, 2024@21:35:20                                                                                                                                                                                                    Page 2

ACKQPCE3  ;HCIOFO/AG - Quasar/PCE Interface; August 1999.

 +1       ;;3.0;QUASAR;;Feb 11, 2000

 +2       ;;

 +3       ;

KILLPCE(ACKVIEN) ; kill a visit from PCE 

 +1       ; see KILLPCE^ACKQPCE for comments. this routine should not be

 +2       ; called directly, only from ^ACKQPCE (this routine assumes that

 +3       ; ACKVIEN exists).

 +4        NEW ACKDEAD,ACKLOCK,ACKPCE,ACKE,ACKARR,ACKMSG,ACKRSN

 +5        SET ACKDEAD=1

           SET ACKLOCK=0

 +6       ;

 +7       ; get the PCE VISIT IEN from the visit file

 +8        SET ACKPCE=$$GET1^DIQ(509850.6,ACKVIEN_",",125,"I")

 +9       ;

 +10      ; if no PCE Visit Ien then nothing to do.

 +11       IF 'ACKPCE

               GOTO KILLPCEX

 +12      ;

 +13      ; lock the visit

 +14       LOCK +^ACK(509850.6,ACKVIEN):0

           IF $TEST

               SET ACKLOCK=1

 +15      ;

 +16      ; clear any existing PCE Errors for this visit

 +17       DO CLEAR^ACKQPCE(ACKVIEN)

 +18      ;

 +19      ; call PCE to delete the visit

 +20       SET ACKE=$$DELVFILE^PXAPI("ALL",ACKPCE,"","",0,0,"")

 +21      ;

 +22      ; if deletion not completed then record error and set flag

 +23       IF ACKE'=1

               Begin DoDot:1

 +24               KILL ACKRSN

                   SET ACKRSN=0

 +25               SET ACKMSG="Unable to Delete PCE Visit (error code="_ACKE_")"

 +26               DO ADDRSN^ACKQPCE2("PCE VISIT",ACKPCE,"",ACKMSG,.ACKRSN)

 +27               DO FILERSN^ACKQPCE(ACKVIEN,.ACKRSN)

 +28      ; file last edited in Quasar date to create exception entry

 +29               KILL ACKARR

                   DO NOW^%DTC

 +30               SET ACKARR(509850.6,ACKVIEN_",",140)=%

 +31               DO FILE^DIE("","ACKARR","")

 +32               SET ACKDEAD=0

               End DoDot:1

 +33      ;

 +34      ; if deleted ok then update fields and set flag

 +35       IF ACKE=1

               Begin DoDot:1

 +36               KILL ACKARR

                   DO NOW^%DTC

 +37      ; remove PCE Visit ien

                   SET ACKARR(509850.6,ACKVIEN_",",125)="@"

 +38      ; last sent to pce

                   SET ACKARR(509850.6,ACKVIEN_",",135)=%

 +39               DO FILE^DIE("","ACKARR","")

 +40               SET ACKDEAD=1

               End DoDot:1

 +41      ;

KILLPCEX  ; exit point from KILLPCE

 +1       ;

 +2       ; if visit was locked then unlock it

 +3        IF ACKLOCK

               LOCK -^ACK(509850.6,ACKVIEN)

 +4       ;

 +5       ; return whether the PCe visit was killed

 +6        QUIT ACKDEAD

 +7       ;