- SDOE ;ALB/MJK - ACRP APIs For An Encounter ;8/12/96
- ;;5.3;Scheduling;**131,1015**;Aug 13, 1993;Build 21
- ;
- ; ------------------------- cpt api's --------------------------
- ;
- CPT(SDOE,SDERR) ; -- SDOE ASSIGNED A PROCEDURE [API ID: 65]
- D PREP^SDQUT
- Q $$CPT^SDOECPT(.SDOE,$G(SDERR))
- ;
- GETCPT(SDOE,SDCPT,SDERR) ; -- SDOE GET PROCEDURES [API ID: 61]
- D PREP^SDQUT
- G GETCPTG^SDOECPT
- ;
- FINDCPT(SDOE,SDCPTID,SDERR) ; -- SDOE FIND PROCEDURE [API ID: 71]
- D PREP^SDQUT
- Q $$FINDCPT^SDOECPT(.SDOE,.SDCPTID,$G(SDERR))
- ;
- ; ------------------------- dx api's --------------------------
- ;
- DX(SDOE,SDERR) ; -- SDOE ASSIGNED A DIAGNOSIS [API ID: 64]
- D PREP^SDQUT
- Q $$DX^SDOEDX(.SDOE,$G(SDERR))
- ;
- GETDX(SDOE,SDDX,SDERR) ; -- SDOE GET DIAGNOSES [API ID: 56]
- D PREP^SDQUT
- G GETDXG^SDOEDX
- ;
- FINDDX(SDOE,SDDXID,SDERR) ; -- SDOE FIND DIAGNOSIS [API ID: 70]
- D PREP^SDQUT
- Q $$FINDDX^SDOEDX(.SDOE,.SDDXID,$G(SDERR))
- ;
- GETPDX(SDOE,SDERR) ; -- SDOE GET PRIMARY DIAGNOSIS [API ID: 73]
- D PREP^SDQUT
- Q $$GETPDX^SDOEDX(.SDOE,$G(SDERR))
- ;
- ; ------------------------- provider api's --------------------------
- ;
- PRV(SDOE,SDERR) ; -- SDOE ASSIGNED A PROVIDER [API ID: 63]
- D PREP^SDQUT
- Q $$PRV^SDOEPRV(.SDOE,$G(SDERR))
- ;
- GETPRV(SDOE,SDPRV,SDERR) ; -- SDOE GET PROVIDERS [API ID: 58]
- D PREP^SDQUT
- G GETPRVG^SDOEPRV
- ;
- FINDPRV(SDOE,SDPRVID,SDERR) ; -- SDOE FIND PROVIDER [API ID: 69]
- D PREP^SDQUT
- Q $$FINDPRV^SDOEPRV(.SDOE,.SDPRVID,$G(SDERR))
- ;
- ; --------------------------------oe api's--------------------------
- ;
- GETOE(SDOE,SDERR) ; -- SDOE GET ZERO NODE [API ID: 98]
- D PREP^SDQUT
- Q $$GETOE^SDOEOE(.SDOE,$G(SDERR))
- ;
- GETGEN(SDOE,SDAT,SDERR) ; -- SDOE GET GENERAL DATA [API ID: 76]
- D PREP^SDQUT
- G GETGENG^SDOEOE
- ;
- PARSE(SDATA,SDFMT,SDY,SDERR) ; -- SDOE PARSE GENERAL DATA [API ID: 78]
- D PREP^SDQUT
- G PARSEG^SDOEOE
- ;
- EXAE(DFN,SDBEG,SDEND,SDFLAGS,SDERR) ; -- SDOE FIND FIRST STANDALONE [API ID: 72]
- D PREP^SDQUT
- Q $$EXAE^SDOEOE(.DFN,.SDBEG,.SDEND,$G(SDFLAGS),$G(SDERR))
- ;
- GETLAST(DFN,SDBEG,SDFLAGS,SDERR) ; -- SDOE FIND LAST STANDALONE [API ID: 75]
- D PREP^SDQUT
- Q $$GETLAST^SDOEOE(.DFN,.SDBEG,$G(SDFLAGS),$G(SDERR))
- ;
- EXOE(DFN,SDBEG,SDEND,SDFLAGS,SDERR) ; -- SDOE FIND FIRST ENCOUNTER [API ID: 74]
- D PREP^SDQUT
- Q $$EXOE^SDOEOE(.DFN,.SDBEG,.SDEND,$G(SDFLAGS),$G(SDERR))
- ;
- ER(SDOE) ; -- api retrieves Extended Reference field
- ; - not supported generically
- ; - will be removed in the future
- ; - you need IA to use!
- ;
- Q $P($G(^SCE(SDOE,0)),U,9)
- ;
- SDOE ;ALB/MJK - ACRP APIs For An Encounter ;8/12/96
- +1 ;;5.3;Scheduling;**131,1015**;Aug 13, 1993;Build 21
- +2 ;
- +3 ; ------------------------- cpt api's --------------------------
- +4 ;
- CPT(SDOE,SDERR) ; -- SDOE ASSIGNED A PROCEDURE [API ID: 65]
- +1 DO PREP^SDQUT
- +2 QUIT $$CPT^SDOECPT(.SDOE,$GET(SDERR))
- +3 ;
- GETCPT(SDOE,SDCPT,SDERR) ; -- SDOE GET PROCEDURES [API ID: 61]
- +1 DO PREP^SDQUT
- +2 GOTO GETCPTG^SDOECPT
- +3 ;
- FINDCPT(SDOE,SDCPTID,SDERR) ; -- SDOE FIND PROCEDURE [API ID: 71]
- +1 DO PREP^SDQUT
- +2 QUIT $$FINDCPT^SDOECPT(.SDOE,.SDCPTID,$GET(SDERR))
- +3 ;
- +4 ; ------------------------- dx api's --------------------------
- +5 ;
- DX(SDOE,SDERR) ; -- SDOE ASSIGNED A DIAGNOSIS [API ID: 64]
- +1 DO PREP^SDQUT
- +2 QUIT $$DX^SDOEDX(.SDOE,$GET(SDERR))
- +3 ;
- GETDX(SDOE,SDDX,SDERR) ; -- SDOE GET DIAGNOSES [API ID: 56]
- +1 DO PREP^SDQUT
- +2 GOTO GETDXG^SDOEDX
- +3 ;
- FINDDX(SDOE,SDDXID,SDERR) ; -- SDOE FIND DIAGNOSIS [API ID: 70]
- +1 DO PREP^SDQUT
- +2 QUIT $$FINDDX^SDOEDX(.SDOE,.SDDXID,$GET(SDERR))
- +3 ;
- GETPDX(SDOE,SDERR) ; -- SDOE GET PRIMARY DIAGNOSIS [API ID: 73]
- +1 DO PREP^SDQUT
- +2 QUIT $$GETPDX^SDOEDX(.SDOE,$GET(SDERR))
- +3 ;
- +4 ; ------------------------- provider api's --------------------------
- +5 ;
- PRV(SDOE,SDERR) ; -- SDOE ASSIGNED A PROVIDER [API ID: 63]
- +1 DO PREP^SDQUT
- +2 QUIT $$PRV^SDOEPRV(.SDOE,$GET(SDERR))
- +3 ;
- GETPRV(SDOE,SDPRV,SDERR) ; -- SDOE GET PROVIDERS [API ID: 58]
- +1 DO PREP^SDQUT
- +2 GOTO GETPRVG^SDOEPRV
- +3 ;
- FINDPRV(SDOE,SDPRVID,SDERR) ; -- SDOE FIND PROVIDER [API ID: 69]
- +1 DO PREP^SDQUT
- +2 QUIT $$FINDPRV^SDOEPRV(.SDOE,.SDPRVID,$GET(SDERR))
- +3 ;
- +4 ; --------------------------------oe api's--------------------------
- +5 ;
- GETOE(SDOE,SDERR) ; -- SDOE GET ZERO NODE [API ID: 98]
- +1 DO PREP^SDQUT
- +2 QUIT $$GETOE^SDOEOE(.SDOE,$GET(SDERR))
- +3 ;
- GETGEN(SDOE,SDAT,SDERR) ; -- SDOE GET GENERAL DATA [API ID: 76]
- +1 DO PREP^SDQUT
- +2 GOTO GETGENG^SDOEOE
- +3 ;
- PARSE(SDATA,SDFMT,SDY,SDERR) ; -- SDOE PARSE GENERAL DATA [API ID: 78]
- +1 DO PREP^SDQUT
- +2 GOTO PARSEG^SDOEOE
- +3 ;
- EXAE(DFN,SDBEG,SDEND,SDFLAGS,SDERR) ; -- SDOE FIND FIRST STANDALONE [API ID: 72]
- +1 DO PREP^SDQUT
- +2 QUIT $$EXAE^SDOEOE(.DFN,.SDBEG,.SDEND,$GET(SDFLAGS),$GET(SDERR))
- +3 ;
- GETLAST(DFN,SDBEG,SDFLAGS,SDERR) ; -- SDOE FIND LAST STANDALONE [API ID: 75]
- +1 DO PREP^SDQUT
- +2 QUIT $$GETLAST^SDOEOE(.DFN,.SDBEG,$GET(SDFLAGS),$GET(SDERR))
- +3 ;
- EXOE(DFN,SDBEG,SDEND,SDFLAGS,SDERR) ; -- SDOE FIND FIRST ENCOUNTER [API ID: 74]
- +1 DO PREP^SDQUT
- +2 QUIT $$EXOE^SDOEOE(.DFN,.SDBEG,.SDEND,$GET(SDFLAGS),$GET(SDERR))
- +3 ;
- ER(SDOE) ; -- api retrieves Extended Reference field
- +1 ; - not supported generically
- +2 ; - will be removed in the future
- +3 ; - you need IA to use!
- +4 ;
- +5 QUIT $PIECE($GET(^SCE(SDOE,0)),U,9)
- +6 ;
