source: FOIAVistA/trunk/r/SCHEDULING-SD-SC/SDAMBAE2.m@ 1487

Last change on this file since 1487 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 566 bytes
Line 
1SDAMBAE2 ;ALB/BOK - ADD/EDIT CON'T ;11/21/91 12:15 ;
2 ;;5.3;Scheduling;**15,79,111,132**;Aug 13, 1993
3 ;
4APP ; -- screen on APPOINTMENT TYPE field in VISIT file CLINIC STOP multiple
5 ; Z - zeroth node of app type file - NAKED REFERENCE - ^SD(409.1,IFN,0)
6 ; P - pt ifn
7 ; E - pt's elig code
8 ; V - elig code is vet code
9 ;
10 N Z,P,E,V
11 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:"")
12 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))
13 Q
Note: See TracBrowser for help on using the repository browser.