SDOEUT ;ALB/MJK - ACRP Misc APIs For An Encounter ;8/12/96
;;5.3;Scheduling;**131,132,211**;Aug 13, 1993
;
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
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDOEUT 638 printed Oct 16, 2024@18:59:33 Page 2
SDOEUT ;ALB/MJK - ACRP Misc APIs For An Encounter ;8/12/96
+1 ;;5.3;Scheduling;**131,132,211**;Aug 13, 1993
+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 ;
