- 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 Feb 19, 2025@00:25:39 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 ;