Changeset 636 for FOIAVistA/tag/r/SCHEDULING-SD-SC/SCRPTA2.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• SCHEDULING-SD-SC/SCRPTA2.m (modified) (4 diffs)

FOIAVistA/tag/r/SCHEDULING-SD-SC/SCRPTA2.m

@@ -1 +1 @@
 SCRPTA2 ;ALB/CMM - Patient Listing w/Team Assignment Data ; 30 Jun 99  1:33 PM
- ;;5.3;Scheduling;**41,88,140,148,174,181,177,526**;AUG 13, 1993;Build 8
+ ;;5.3;Scheduling;**41,88,140,148,174,181,177**;AUG 13, 1993
  ;
  ;Patient Listing w/Team Assignment Data Report continued
@@ -70 +70 @@
  S PTNAME=$P($G(^DPT(PIEN,0)),"^") ;patient name
  S PID=$P($G(^DPT(PIEN,.36)),"^",3),PID=$TR(PID,"-","")
- ;9 digit ssn SD*5.3*526 - dmr
- ;S PID=$E(PID,6,10) ;last four pid include 5th for pseudo notation
+ S PID=$E(PID,6,10) ;last four pid include 5th for pseudo notation
  ;
  S ADATE=$P(NODE,"^",3) ;position assignment date - fm format
@@ -119 +118 @@
  S $E(@STORE@(IIEN,TIEN),40)="Primary Care Team: "_$S(PC=1:"YES",1:"NO")
  ;
- S @STORE@(IIEN,TIEN,PIEN,TPIEN,PTNAME,PTIEN)=$E(PTNAME,1,17)
- S $E(@STORE@(IIEN,TIEN,PIEN,TPIEN,PTNAME,PTIEN),19)=PID
+ S @STORE@(IIEN,TIEN,PIEN,TPIEN,PTNAME,PTIEN)=$E(PTNAME,1,21)
+ S $E(@STORE@(IIEN,TIEN,PIEN,TPIEN,PTNAME,PTIEN),24)=PID
  S $E(@STORE@(IIEN,TIEN,PIEN,TPIEN,PTNAME,PTIEN),31)=ADATE
  S $E(@STORE@(IIEN,TIEN,PIEN,TPIEN,PTNAME,PTIEN),43)=PCAP
@@ -140 +139 @@
  S PTNAME=$E($P($G(^DPT(PIEN,0)),"^"),1,20) ;patient name
  S PID=$P($G(^DPT(PIEN,.36)),"^",3),PID=$TR(PID,"-","")
- ;S PID=$E(PID,6,10) ;9 digit ssn patch 526
+ S PID=$E(PID,6,10) ;last 4 plus 5th for psuedo
  ;
  S TIEN=+$P($G(^SCPT(404.42,PTIEN,0)),"^",3) ;team ien