Globals from FOIA VistA with corrected Node problem for the cross references in the mental health files for C and AU
Cache 13-Sep-2008 18:35:03 ZWR
^SDAM(44.3,0)="SDAM DATA MAP^44.3^12^12"
^SDAM(44.3,1,0)="APPT DATE/TIME"
^SDAM(44.3,1,1)="S SDDATA=$G(SDAPPTDT)"
^SDAM(44.3,2,0)="CLINIC ID AND NAME"
^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"
^SDAM(44.3,3,0)="APPT STATUS"
^SDAM(44.3,3,1)="S SDDATA=$G(SDASTAT)"
^SDAM(44.3,4,0)="PATIENT ID AND NAME"
^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"
^SDAM(44.3,5,0)="LENGTH OF APPT"
^SDAM(44.3,5,1)="S SDDATA=$S($G(SDPATCNT):$P($G(^SC($G(SDCLIEN),""S"",SDAPPTDT,1,$G(SDPATCNT),0)),""^"",2),1:"""")"
^SDAM(44.3,6,0)="COMMENTS"
^SDAM(44.3,6,1)="S SDDATA=$S($G(SDPATCNT):$P($G(^SC($G(SDCLIEN),""S"",SDAPPTDT,1,$G(SDPATCNT),0)),""^"",4),1:"""")"
^SDAM(44.3,7,0)="OVERBOOK"
^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"")"
^SDAM(44.3,8,0)="ELIGIBILITY OF VISIT ID AND NAME"
^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"
^SDAM(44.3,9,0)="CHECK-IN DATE/TIME"
^SDAM(44.3,9,1)="S SDDATA=$S($G(SDPATCNT):$P($G(^SC($G(SDCLIEN),""S"",SDAPPTDT,1,$G(SDPATCNT),""C"")),""^"",1),1:"""")"
^SDAM(44.3,10,0)="APPT TYPE ID AND NAME"
^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"
^SDAM(44.3,11,0)="CHECK-OUT DATE/TIME"
^SDAM(44.3,11,1)="S SDDATA=$S($G(SDPATCNT):$P($G(^SC($G(SDCLIEN),""S"",SDAPPTDT,1,$G(SDPATCNT),""C"")),""^"",3),1:"""")"
^SDAM(44.3,12,0)="INPATIENT/OUTPATIENT STATUS"
^SDAM(44.3,12,1)="S SDDATA=$G(SDPSTAT)"
^SDAM(44.3,"B","APPT DATE/TIME",1)=""
^SDAM(44.3,"B","APPT STATUS",3)=""
^SDAM(44.3,"B","APPT TYPE ID AND NAME",10)=""
^SDAM(44.3,"B","CHECK-IN DATE/TIME",9)=""
^SDAM(44.3,"B","CHECK-OUT DATE/TIME",11)=""
^SDAM(44.3,"B","CLINIC ID AND NAME",2)=""
^SDAM(44.3,"B","COMMENTS",6)=""
^SDAM(44.3,"B","ELIGIBILITY OF VISIT ID AND NA",8)=""
^SDAM(44.3,"B","INPATIENT/OUTPATIENT STATUS",12)=""
^SDAM(44.3,"B","LENGTH OF APPT",5)=""
^SDAM(44.3,"B","OVERBOOK",7)=""
^SDAM(44.3,"B","PATIENT ID AND NAME",4)=""