SCUTIE1.m

SCUTIE1 ;ALB/SCK - INCOMPLETE ENCOUNTER MGMT API CALLS ; 6/17/97

 ;;5.3;Scheduling;**66,1015**;AUG 13, 1993;Build 21

 ;

 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

SCUTIE1   ;ALB/SCK - INCOMPLETE ENCOUNTER MGMT API CALLS ; 6/17/97

 +1       ;;5.3;Scheduling;**66,1015**;AUG 13, 1993;Build 21

 +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