source: FOIAVistA/trunk/g/SDAM.zwr@ 995

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

initial load of FOIAVistA 6/30/08 version

File size: 2.7 KB
Line 
1Globals from FOIA VistA with corrected Node problem for the cross references in the mental health files for C and AU
2Cache 13-Sep-2008 18:35:03 ZWR
3^SDAM(44.3,0)="SDAM DATA MAP^44.3^12^12"
4^SDAM(44.3,1,0)="APPT DATE/TIME"
5^SDAM(44.3,1,1)="S SDDATA=$G(SDAPPTDT)"
6^SDAM(44.3,2,0)="CLINIC ID AND NAME"
7^SDAM(44.3,2,1)="S SDDATA="""" S SDDATA1=$S($G(SDCLIEN):SDCLIEN,1:$P($G(^DPT($G(SDPATIEN),""S"",SDAPPTDT,0)),""^"",1)) S SDDATA2=$P($G(^SC($G(SDDATA1),0)),""^"",1) S SDDATA=$G(SDDATA1)_""^""_$G(SDDATA2) K SDDATA1,SDDATA2"
8^SDAM(44.3,3,0)="APPT STATUS"
9^SDAM(44.3,3,1)="S SDDATA=$G(SDASTAT)"
10^SDAM(44.3,4,0)="PATIENT ID AND NAME"
11^SDAM(44.3,4,1)="S SDDATA=$S($G(SDPATIEN):SDPATIEN,1:$P($G(^SC($G(SDCLIEN),""S"",SDAPPTDT,1,$G(SDPATCNT),0)),""^"",1)) S SDDATA1=$P($G(^DPT($G(SDDATA),0)),""^"",1) S SDDATA=SDDATA_""^""_$G(SDDATA1) K SDDATA1"
12^SDAM(44.3,5,0)="LENGTH OF APPT"
13^SDAM(44.3,5,1)="S SDDATA=$S($G(SDPATCNT):$P($G(^SC($G(SDCLIEN),""S"",SDAPPTDT,1,$G(SDPATCNT),0)),""^"",2),1:"""")"
14^SDAM(44.3,6,0)="COMMENTS"
15^SDAM(44.3,6,1)="S SDDATA=$S($G(SDPATCNT):$P($G(^SC($G(SDCLIEN),""S"",SDAPPTDT,1,$G(SDPATCNT),0)),""^"",4),1:"""")"
16^SDAM(44.3,7,0)="OVERBOOK"
17^SDAM(44.3,7,1)="S SDDATA=$S($G(SDPATCNT):$P($G(^SC($G(SDCLIEN),""S"",SDAPPTDT,1,$G(SDPATCNT),""OB"")),""^"",1),1:"""") S SDDATA=$S($G(SDDATA)=""O"":""Y"",1:""N"")"
18^SDAM(44.3,8,0)="ELIGIBILITY OF VISIT ID AND NAME"
19^SDAM(44.3,8,1)="S SDDATA=$S($G(SDPATCNT):$P($G(^SC($G(SDCLIEN),""S"",SDAPPTDT,1,$G(SDPATCNT),0)),""^"",10),1:"""")_""^"" I SDDATA'=""^"" S SDDATA3=$E(SDDATA,1,$L(SDDATA)-1) S SDDATA1=$P($G(^DIC(8,$G(SDDATA3),0)),""^"",1) S SDDATA=$G(SDDATA)_$G(SDDATA1) K SDDATA1,SDDATA3"
20^SDAM(44.3,9,0)="CHECK-IN DATE/TIME"
21^SDAM(44.3,9,1)="S SDDATA=$S($G(SDPATCNT):$P($G(^SC($G(SDCLIEN),""S"",SDAPPTDT,1,$G(SDPATCNT),""C"")),""^"",1),1:"""")"
22^SDAM(44.3,10,0)="APPT TYPE ID AND NAME"
23^SDAM(44.3,10,1)="S SDDATA=$P($G(^DPT($G(SDPATIEN),""S"",SDAPPTDT,0)),""^"",16)_""^"" I SDDATA'=""^"" S SDDATA2=$E(SDDATA,1,$L(SDDATA)-1) S SDDATA=SDDATA_$P($G(^SD(409.1,$G(SDDATA2),0)),""^"",1) K SDDATA2"
24^SDAM(44.3,11,0)="CHECK-OUT DATE/TIME"
25^SDAM(44.3,11,1)="S SDDATA=$S($G(SDPATCNT):$P($G(^SC($G(SDCLIEN),""S"",SDAPPTDT,1,$G(SDPATCNT),""C"")),""^"",3),1:"""")"
26^SDAM(44.3,12,0)="INPATIENT/OUTPATIENT STATUS"
27^SDAM(44.3,12,1)="S SDDATA=$G(SDPSTAT)"
28^SDAM(44.3,"B","APPT DATE/TIME",1)=""
29^SDAM(44.3,"B","APPT STATUS",3)=""
30^SDAM(44.3,"B","APPT TYPE ID AND NAME",10)=""
31^SDAM(44.3,"B","CHECK-IN DATE/TIME",9)=""
32^SDAM(44.3,"B","CHECK-OUT DATE/TIME",11)=""
33^SDAM(44.3,"B","CLINIC ID AND NAME",2)=""
34^SDAM(44.3,"B","COMMENTS",6)=""
35^SDAM(44.3,"B","ELIGIBILITY OF VISIT ID AND NA",8)=""
36^SDAM(44.3,"B","INPATIENT/OUTPATIENT STATUS",12)=""
37^SDAM(44.3,"B","LENGTH OF APPT",5)=""
38^SDAM(44.3,"B","OVERBOOK",7)=""
39^SDAM(44.3,"B","PATIENT ID AND NAME",4)=""
Note: See TracBrowser for help on using the repository browser.