Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SDOEUT

SDOEUT.m

Go to the documentation of this file.
  1. SDOEUT ;ALB/MJK - ACRP Misc APIs For An Encounter ;8/12/96
  1. ;;5.3;Scheduling;**131,132,211**;Aug 13, 1993
  1. ;
  1. VIEN(SDOE) ; -- get visit ien from valid encounter
  1. Q +$P($G(^SCE(SDOE,0)),U,5)
  1. ;
  1. OLD(SDOE) ; -- use old data?
  1. ;
  1. ; -- is this a 'new' encounter (since PCE)
  1. IF $$DATE^SCDXUTL(+$G(^SCE(+SDOE,0))) Q 0
  1. ;
  1. ; -- has old data has been converted
  1. IF $$CONV(.SDOE) Q 0
  1. ;
  1. Q 1
  1. ;
  1. CONV(SDOE) ; -- has old encounter been converted
  1. ;
  1. ; -- has encounter been processd by conversion?
  1. IF $P($G(^SCE(+SDOE,"CNV")),U,4) Q 1
  1. ;
  1. Q 0
  1. ;
  1. POST ; -- post error action logic
  1. ;W !,"Error:",!
  1. ;ZW DIPI ZW DIPE
  1. Q
  1. ;