| 1 | SDOE ;ALB/MJK - ACRP APIs For An Encounter ;8/12/96
|
---|
| 2 | ;;5.3;Scheduling;**131**;Aug 13, 1993
|
---|
| 3 | ;
|
---|
| 4 | ; ------------------------- cpt api's --------------------------
|
---|
| 5 | ;
|
---|
| 6 | CPT(SDOE,SDERR) ; -- SDOE ASSIGNED A PROCEDURE [API ID: 65]
|
---|
| 7 | D PREP^SDQUT
|
---|
| 8 | Q $$CPT^SDOECPT(.SDOE,$G(SDERR))
|
---|
| 9 | ;
|
---|
| 10 | GETCPT(SDOE,SDCPT,SDERR) ; -- SDOE GET PROCEDURES [API ID: 61]
|
---|
| 11 | D PREP^SDQUT
|
---|
| 12 | G GETCPTG^SDOECPT
|
---|
| 13 | ;
|
---|
| 14 | FINDCPT(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 | ;
|
---|
| 20 | DX(SDOE,SDERR) ; -- SDOE ASSIGNED A DIAGNOSIS [API ID: 64]
|
---|
| 21 | D PREP^SDQUT
|
---|
| 22 | Q $$DX^SDOEDX(.SDOE,$G(SDERR))
|
---|
| 23 | ;
|
---|
| 24 | GETDX(SDOE,SDDX,SDERR) ; -- SDOE GET DIAGNOSES [API ID: 56]
|
---|
| 25 | D PREP^SDQUT
|
---|
| 26 | G GETDXG^SDOEDX
|
---|
| 27 | ;
|
---|
| 28 | FINDDX(SDOE,SDDXID,SDERR) ; -- SDOE FIND DIAGNOSIS [API ID: 70]
|
---|
| 29 | D PREP^SDQUT
|
---|
| 30 | Q $$FINDDX^SDOEDX(.SDOE,.SDDXID,$G(SDERR))
|
---|
| 31 | ;
|
---|
| 32 | GETPDX(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 | ;
|
---|
| 38 | PRV(SDOE,SDERR) ; -- SDOE ASSIGNED A PROVIDER [API ID: 63]
|
---|
| 39 | D PREP^SDQUT
|
---|
| 40 | Q $$PRV^SDOEPRV(.SDOE,$G(SDERR))
|
---|
| 41 | ;
|
---|
| 42 | GETPRV(SDOE,SDPRV,SDERR) ; -- SDOE GET PROVIDERS [API ID: 58]
|
---|
| 43 | D PREP^SDQUT
|
---|
| 44 | G GETPRVG^SDOEPRV
|
---|
| 45 | ;
|
---|
| 46 | FINDPRV(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 | ;
|
---|
| 52 | GETOE(SDOE,SDERR) ; -- SDOE GET ZERO NODE [API ID: 98]
|
---|
| 53 | D PREP^SDQUT
|
---|
| 54 | Q $$GETOE^SDOEOE(.SDOE,$G(SDERR))
|
---|
| 55 | ;
|
---|
| 56 | GETGEN(SDOE,SDAT,SDERR) ; -- SDOE GET GENERAL DATA [API ID: 76]
|
---|
| 57 | D PREP^SDQUT
|
---|
| 58 | G GETGENG^SDOEOE
|
---|
| 59 | ;
|
---|
| 60 | PARSE(SDATA,SDFMT,SDY,SDERR) ; -- SDOE PARSE GENERAL DATA [API ID: 78]
|
---|
| 61 | D PREP^SDQUT
|
---|
| 62 | G PARSEG^SDOEOE
|
---|
| 63 | ;
|
---|
| 64 | EXAE(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 | ;
|
---|
| 68 | GETLAST(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 | ;
|
---|
| 72 | EXOE(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 | ;
|
---|
| 76 | ER(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 | ;
|
---|