SCUTIE1 ;ALB/SCK - INCOMPLETE ENCOUNTER MGMT API CALLS ; 6/17/97
;;5.3;Scheduling;**66**;AUG 13, 1993
;
Q
;
OPENC(SDXMT,SDARRAY) ; API to return whether Transmitted Outpatient Encounter File entry
; points to a deleted encounter.
;
; Input:
; SDXMT - IEN of the Transmitted Outpatient Encounter file entry
; SDARRAY - [optional] - if passed in (as "xxxx"), will return encounter information
; DFN, Clinic IEN, and Encounter date
;
; Return:
; 1 - if encounter is deleted
; 0 - if encounter is not deleted.
; -1 - if error condition
;
; If SDARRAY is passed in, returns:
; SDARRAY["DFN"] = DFN
; SDARRAY["CLINIC"] = Clinic IEN
; SDARRAY["ENCOUNTER"] = Encounter date
; SDARRAY["ERROR"] = Error Condition
; SDARRAY["DELIEN"] = Ien of Deleted Encounter
; SDARRAY["SDOIEN"] = Ien of OP Encounter
; SDARRAY["AE"] = 0 if Originating process is an appointment,
; 1 if not.
;
N SDOK,NODE0,NODE1
;
K @SDARRAY
I +$G(SDXMT)=0 D G DELQ
. S SDOK=-1
. I $G(SDARRAY)]"" S @SDARRAY@("ERROR")="NULL XMT POINTER"
;
I +$P($G(^SD(409.73,SDXMT,0)),U,2)>0,$D(^SCE(+$P(^SD(409.73,SDXMT,0),U,2))) D G DELQ
. S SDOK=0
. I $G(SDARRAY)]"" D
.. K @SDARRAY
.. S NODE0=$G(^SCE($P(^SD(409.73,SDXMT,0),U,2),0))
.. S @SDARRAY@("DFN")=$P(NODE0,U,2)
.. S @SDARRAY@("CLINIC")=$P(NODE0,U,4)
.. S @SDARRAY@("ENCOUNTER")=$P(NODE0,U)
.. S @SDARRAY@("SDOIEN")=$P(^SD(409.73,SDXMT,0),U,2)
.. S @SDARRAY@("AE")=$S($P(NODE0,U,8)=1:0,1:1)
;
I +$P($G(^SD(409.73,SDXMT,0)),U,3)>0,$D(^SD(409.74,+$P(^SD(409.73,SDXMT,0),U,3))) D G DELQ
. S SDOK=1
. I $G(SDARRAY)]"" D
.. K @SDARRAY
.. S NODE0=$G(^SD(409.74,$P(^SD(409.73,SDXMT,0),U,3),0))
.. S NODE1=$G(^SD(409.74,$P(^SD(409.73,SDXMT,0),U,3),1))
.. S @SDARRAY@("DFN")=$P(NODE0,U,2)
.. S @SDARRAY@("CLINIC")=$P(NODE1,U,4)
.. S @SDARRAY@("ENCOUNTER")=$P(NODE1,U)
.. S @SDARRAY@("DELIEN")=$P(^SD(409.73,SDXMT,0),U,3)
.. S @SDARRAY@("AE")=$S($P(NODE1,U,8)=1:0,1:1)
;
S SDOK=-1
I $G(SDARRAY)]"" S @SDARRAY@("ERROR")="No (Deleted) Outpatient Encounter entry found."
DELQ Q SDOK
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSCUTIE1 2300 printed Nov 22, 2024@17:54:19 Page 2
SCUTIE1 ;ALB/SCK - INCOMPLETE ENCOUNTER MGMT API CALLS ; 6/17/97
+1 ;;5.3;Scheduling;**66**;AUG 13, 1993
+2 ;
+3 QUIT
+4 ;
OPENC(SDXMT,SDARRAY) ; API to return whether Transmitted Outpatient Encounter File entry
+1 ; points to a deleted encounter.
+2 ;
+3 ; Input:
+4 ; SDXMT - IEN of the Transmitted Outpatient Encounter file entry
+5 ; SDARRAY - [optional] - if passed in (as "xxxx"), will return encounter information
+6 ; DFN, Clinic IEN, and Encounter date
+7 ;
+8 ; Return:
+9 ; 1 - if encounter is deleted
+10 ; 0 - if encounter is not deleted.
+11 ; -1 - if error condition
+12 ;
+13 ; If SDARRAY is passed in, returns:
+14 ; SDARRAY["DFN"] = DFN
+15 ; SDARRAY["CLINIC"] = Clinic IEN
+16 ; SDARRAY["ENCOUNTER"] = Encounter date
+17 ; SDARRAY["ERROR"] = Error Condition
+18 ; SDARRAY["DELIEN"] = Ien of Deleted Encounter
+19 ; SDARRAY["SDOIEN"] = Ien of OP Encounter
+20 ; SDARRAY["AE"] = 0 if Originating process is an appointment,
+21 ; 1 if not.
+22 ;
+23 NEW SDOK,NODE0,NODE1
+24 ;
+25 KILL @SDARRAY
+26 IF +$GET(SDXMT)=0
Begin DoDot:1
+27 SET SDOK=-1
+28 IF $GET(SDARRAY)]""
SET @SDARRAY@("ERROR")="NULL XMT POINTER"
End DoDot:1
GOTO DELQ
+29 ;
+30 IF +$PIECE($GET(^SD(409.73,SDXMT,0)),U,2)>0
IF $DATA(^SCE(+$PIECE(^SD(409.73,SDXMT,0),U,2)))
Begin DoDot:1
+31 SET SDOK=0
+32 IF $GET(SDARRAY)]""
Begin DoDot:2
+33 KILL @SDARRAY
+34 SET NODE0=$GET(^SCE($PIECE(^SD(409.73,SDXMT,0),U,2),0))
+35 SET @SDARRAY@("DFN")=$PIECE(NODE0,U,2)
+36 SET @SDARRAY@("CLINIC")=$PIECE(NODE0,U,4)
+37 SET @SDARRAY@("ENCOUNTER")=$PIECE(NODE0,U)
+38 SET @SDARRAY@("SDOIEN")=$PIECE(^SD(409.73,SDXMT,0),U,2)
+39 SET @SDARRAY@("AE")=$SELECT($PIECE(NODE0,U,8)=1:0,1:1)
End DoDot:2
End DoDot:1
GOTO DELQ
+40 ;
+41 IF +$PIECE($GET(^SD(409.73,SDXMT,0)),U,3)>0
IF $DATA(^SD(409.74,+$PIECE(^SD(409.73,SDXMT,0),U,3)))
Begin DoDot:1
+42 SET SDOK=1
+43 IF $GET(SDARRAY)]""
Begin DoDot:2
+44 KILL @SDARRAY
+45 SET NODE0=$GET(^SD(409.74,$PIECE(^SD(409.73,SDXMT,0),U,3),0))
+46 SET NODE1=$GET(^SD(409.74,$PIECE(^SD(409.73,SDXMT,0),U,3),1))
+47 SET @SDARRAY@("DFN")=$PIECE(NODE0,U,2)
+48 SET @SDARRAY@("CLINIC")=$PIECE(NODE1,U,4)
+49 SET @SDARRAY@("ENCOUNTER")=$PIECE(NODE1,U)
+50 SET @SDARRAY@("DELIEN")=$PIECE(^SD(409.73,SDXMT,0),U,3)
+51 SET @SDARRAY@("AE")=$SELECT($PIECE(NODE1,U,8)=1:0,1:1)
End DoDot:2
End DoDot:1
GOTO DELQ
+52 ;
+53 SET SDOK=-1
+54 IF $GET(SDARRAY)]""
SET @SDARRAY@("ERROR")="No (Deleted) Outpatient Encounter entry found."
DELQ QUIT SDOK
