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

SDAMBAE2.m

Go to the documentation of this file.
  1. SDAMBAE2 ;ALB/BOK - ADD/EDIT CON'T ;11/21/91 12:15 ;
  1. ;;5.3;Scheduling;**15,79,111,132**;Aug 13, 1993
  1. ;
  1. APP ; -- screen on APPOINTMENT TYPE field in VISIT file CLINIC STOP multiple
  1. ; Z - zeroth node of app type file - NAKED REFERENCE - ^SD(409.1,IFN,0)
  1. ; P - pt ifn
  1. ; E - pt's elig code
  1. ; V - elig code is vet code
  1. ;
  1. N Z,P,E,V
  1. S Z=^(0),P=+$P(^SDV(DA(1),0),U,2),E=$S($D(^DPT(P,.36)):+^(.36),1:0),V=$S($D(^DIC(8,E,0)):$P(^(0),U,5),1:"")
  1. I '$P(Z,U,3),$S(V["Y":1,1:$P(Z,U,5)),$S('$P(Z,U,6):1,$D(^DPT(P,"E",$P(Z,U,6),0)):1,1:E=$P(Z,U,6))
  1. Q