source: FOIAVistA/trunk/r/SCHEDULING-SD-SC/SCUTIE1.m@ 1470

Last change on this file since 1470 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.2 KB
Line 
1SCUTIE1 ;ALB/SCK - INCOMPLETE ENCOUNTER MGMT API CALLS ; 6/17/97
2 ;;5.3;Scheduling;**66**;AUG 13, 1993
3 ;
4 Q
5 ;
6OPENC(SDXMT,SDARRAY) ; API to return whether Transmitted Outpatient Encounter File entry
7 ; points to a deleted encounter.
8 ;
9 ; Input:
10 ; SDXMT - IEN of the Transmitted Outpatient Encounter file entry
11 ; SDARRAY - [optional] - if passed in (as "xxxx"), will return encounter information
12 ; DFN, Clinic IEN, and Encounter date
13 ;
14 ; Return:
15 ; 1 - if encounter is deleted
16 ; 0 - if encounter is not deleted.
17 ; -1 - if error condition
18 ;
19 ; If SDARRAY is passed in, returns:
20 ; SDARRAY["DFN"] = DFN
21 ; SDARRAY["CLINIC"] = Clinic IEN
22 ; SDARRAY["ENCOUNTER"] = Encounter date
23 ; SDARRAY["ERROR"] = Error Condition
24 ; SDARRAY["DELIEN"] = Ien of Deleted Encounter
25 ; SDARRAY["SDOIEN"] = Ien of OP Encounter
26 ; SDARRAY["AE"] = 0 if Originating process is an appointment,
27 ; 1 if not.
28 ;
29 N SDOK,NODE0,NODE1
30 ;
31 K @SDARRAY
32 I +$G(SDXMT)=0 D G DELQ
33 . S SDOK=-1
34 . I $G(SDARRAY)]"" S @SDARRAY@("ERROR")="NULL XMT POINTER"
35 ;
36 I +$P($G(^SD(409.73,SDXMT,0)),U,2)>0,$D(^SCE(+$P(^SD(409.73,SDXMT,0),U,2))) D G DELQ
37 . S SDOK=0
38 . I $G(SDARRAY)]"" D
39 .. K @SDARRAY
40 .. S NODE0=$G(^SCE($P(^SD(409.73,SDXMT,0),U,2),0))
41 .. S @SDARRAY@("DFN")=$P(NODE0,U,2)
42 .. S @SDARRAY@("CLINIC")=$P(NODE0,U,4)
43 .. S @SDARRAY@("ENCOUNTER")=$P(NODE0,U)
44 .. S @SDARRAY@("SDOIEN")=$P(^SD(409.73,SDXMT,0),U,2)
45 .. S @SDARRAY@("AE")=$S($P(NODE0,U,8)=1:0,1:1)
46 ;
47 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
48 . S SDOK=1
49 . I $G(SDARRAY)]"" D
50 .. K @SDARRAY
51 .. S NODE0=$G(^SD(409.74,$P(^SD(409.73,SDXMT,0),U,3),0))
52 .. S NODE1=$G(^SD(409.74,$P(^SD(409.73,SDXMT,0),U,3),1))
53 .. S @SDARRAY@("DFN")=$P(NODE0,U,2)
54 .. S @SDARRAY@("CLINIC")=$P(NODE1,U,4)
55 .. S @SDARRAY@("ENCOUNTER")=$P(NODE1,U)
56 .. S @SDARRAY@("DELIEN")=$P(^SD(409.73,SDXMT,0),U,3)
57 .. S @SDARRAY@("AE")=$S($P(NODE1,U,8)=1:0,1:1)
58 ;
59 S SDOK=-1
60 I $G(SDARRAY)]"" S @SDARRAY@("ERROR")="No (Deleted) Outpatient Encounter entry found."
61DELQ Q SDOK
Note: See TracBrowser for help on using the repository browser.