SDOEUT.m

SDOEUT ;ALB/MJK - ACRP Misc APIs For An Encounter ;8/12/96

 ;;5.3;Scheduling;**131,132,211,1015**;Aug 13, 1993;Build 21

 ;

VIEN(SDOE) ; -- get visit ien from valid encounter

 Q +$P($G(^SCE(SDOE,0)),U,5)

 ;

OLD(SDOE) ; -- use old data?

 ;

 ; -- is this a 'new' encounter (since PCE)

 IF $$DATE^SCDXUTL(+$G(^SCE(+SDOE,0))) Q 0

 ;

 ; -- has old data has been converted

 IF $$CONV(.SDOE) Q 0

 ;

 Q 1

 ;

CONV(SDOE) ; -- has old encounter been converted

 ;

 ; -- has encounter been processd by conversion?

 IF $P($G(^SCE(+SDOE,"CNV")),U,4) Q 1

 ;

 Q 0

 ;

POST ; -- post error action logic

 ;W !,"Error:",!

 ;ZW DIPI ZW DIPE

 Q

 ;

SDOEUT    ;ALB/MJK - ACRP Misc APIs For An Encounter ;8/12/96

 +1       ;;5.3;Scheduling;**131,132,211,1015**;Aug 13, 1993;Build 21

 +2       ;

VIEN(SDOE) ; -- get visit ien from valid encounter

 +1        QUIT +$PIECE($GET(^SCE(SDOE,0)),U,5)

 +2       ;

OLD(SDOE) ; -- use old data?

 +1       ;

 +2       ; -- is this a 'new' encounter (since PCE)

 +3        IF $$DATE^SCDXUTL(+$GET(^SCE(+SDOE,0)))

               QUIT 0

 +4       ;

 +5       ; -- has old data has been converted

 +6        IF $$CONV(.SDOE)

               QUIT 0

 +7       ;

 +8        QUIT 1

 +9       ;

CONV(SDOE) ; -- has old encounter been converted

 +1       ;

 +2       ; -- has encounter been processd by conversion?

 +3        IF $PIECE($GET(^SCE(+SDOE,"CNV")),U,4)

               QUIT 1

 +4       ;

 +5        QUIT 0

 +6       ;

POST      ; -- post error action logic

 +1       ;W !,"Error:",!

 +2       ;ZW DIPI ZW DIPE

 +3        QUIT 

 +4       ;