SDOE.m

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       ;