source: FOIAVistA/tag/r/SCHEDULING-SD-SC/SDOE.m@ 1621

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

initial load of FOIAVistA 6/30/08 version

File size: 2.6 KB
Line 
1SDOE ;ALB/MJK - ACRP APIs For An Encounter ;8/12/96
2 ;;5.3;Scheduling;**131**;Aug 13, 1993
3 ;
4 ; ------------------------- cpt api's --------------------------
5 ;
6CPT(SDOE,SDERR) ; -- SDOE ASSIGNED A PROCEDURE [API ID: 65]
7 D PREP^SDQUT
8 Q $$CPT^SDOECPT(.SDOE,$G(SDERR))
9 ;
10GETCPT(SDOE,SDCPT,SDERR) ; -- SDOE GET PROCEDURES [API ID: 61]
11 D PREP^SDQUT
12 G GETCPTG^SDOECPT
13 ;
14FINDCPT(SDOE,SDCPTID,SDERR) ; -- SDOE FIND PROCEDURE [API ID: 71]
15 D PREP^SDQUT
16 Q $$FINDCPT^SDOECPT(.SDOE,.SDCPTID,$G(SDERR))
17 ;
18 ; ------------------------- dx api's --------------------------
19 ;
20DX(SDOE,SDERR) ; -- SDOE ASSIGNED A DIAGNOSIS [API ID: 64]
21 D PREP^SDQUT
22 Q $$DX^SDOEDX(.SDOE,$G(SDERR))
23 ;
24GETDX(SDOE,SDDX,SDERR) ; -- SDOE GET DIAGNOSES [API ID: 56]
25 D PREP^SDQUT
26 G GETDXG^SDOEDX
27 ;
28FINDDX(SDOE,SDDXID,SDERR) ; -- SDOE FIND DIAGNOSIS [API ID: 70]
29 D PREP^SDQUT
30 Q $$FINDDX^SDOEDX(.SDOE,.SDDXID,$G(SDERR))
31 ;
32GETPDX(SDOE,SDERR) ; -- SDOE GET PRIMARY DIAGNOSIS [API ID: 73]
33 D PREP^SDQUT
34 Q $$GETPDX^SDOEDX(.SDOE,$G(SDERR))
35 ;
36 ; ------------------------- provider api's --------------------------
37 ;
38PRV(SDOE,SDERR) ; -- SDOE ASSIGNED A PROVIDER [API ID: 63]
39 D PREP^SDQUT
40 Q $$PRV^SDOEPRV(.SDOE,$G(SDERR))
41 ;
42GETPRV(SDOE,SDPRV,SDERR) ; -- SDOE GET PROVIDERS [API ID: 58]
43 D PREP^SDQUT
44 G GETPRVG^SDOEPRV
45 ;
46FINDPRV(SDOE,SDPRVID,SDERR) ; -- SDOE FIND PROVIDER [API ID: 69]
47 D PREP^SDQUT
48 Q $$FINDPRV^SDOEPRV(.SDOE,.SDPRVID,$G(SDERR))
49 ;
50 ; --------------------------------oe api's--------------------------
51 ;
52GETOE(SDOE,SDERR) ; -- SDOE GET ZERO NODE [API ID: 98]
53 D PREP^SDQUT
54 Q $$GETOE^SDOEOE(.SDOE,$G(SDERR))
55 ;
56GETGEN(SDOE,SDAT,SDERR) ; -- SDOE GET GENERAL DATA [API ID: 76]
57 D PREP^SDQUT
58 G GETGENG^SDOEOE
59 ;
60PARSE(SDATA,SDFMT,SDY,SDERR) ; -- SDOE PARSE GENERAL DATA [API ID: 78]
61 D PREP^SDQUT
62 G PARSEG^SDOEOE
63 ;
64EXAE(DFN,SDBEG,SDEND,SDFLAGS,SDERR) ; -- SDOE FIND FIRST STANDALONE [API ID: 72]
65 D PREP^SDQUT
66 Q $$EXAE^SDOEOE(.DFN,.SDBEG,.SDEND,$G(SDFLAGS),$G(SDERR))
67 ;
68GETLAST(DFN,SDBEG,SDFLAGS,SDERR) ; -- SDOE FIND LAST STANDALONE [API ID: 75]
69 D PREP^SDQUT
70 Q $$GETLAST^SDOEOE(.DFN,.SDBEG,$G(SDFLAGS),$G(SDERR))
71 ;
72EXOE(DFN,SDBEG,SDEND,SDFLAGS,SDERR) ; -- SDOE FIND FIRST ENCOUNTER [API ID: 74]
73 D PREP^SDQUT
74 Q $$EXOE^SDOEOE(.DFN,.SDBEG,.SDEND,$G(SDFLAGS),$G(SDERR))
75 ;
76ER(SDOE) ; -- api retrieves Extended Reference field
77 ; - not supported generically
78 ; - will be removed in the future
79 ; - you need IA to use!
80 ;
81 Q $P($G(^SCE(SDOE,0)),U,9)
82 ;
Note: See TracBrowser for help on using the repository browser.