Changeset 636 for FOIAVistA/tag/r/SCHEDULING-SD-SC/SCRPEC2.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/SCHEDULING-SD-SC/SCRPEC2.m
r628 r636 1 1 SCRPEC2 ;ALB/CMM - Detail List of Pts & Enroll Clinics Continued ; 29 Jun 99 04:11PM 2 ;;5.3;Scheduling;**41,140,174,177 ,526**;AUG 13, 1993;Build 82 ;;5.3;Scheduling;**41,140,174,177**;AUG 13, 1993 3 3 ; 4 4 ;Detailed Listing of Patients and Their Enrolled Clinics Report … … 106 106 S HLD="H1" 107 107 S @STORE@("SUBHEADER",HLD)="Patient Name" 108 S $E(@STORE@("SUBHEADER",HLD),1 6)="Pt ID"108 S $E(@STORE@("SUBHEADER",HLD),18)="Pt ID" 109 109 S $E(@STORE@("SUBHEADER",HLD),25)="Stat" 110 110 S $E(@STORE@("SUBHEADER",HLD),31)="Elig" … … 129 129 ;CIEN - clinic ien 130 130 ; 131 S @STORE@(INS,TIEN,CIEN,PTIEN)=$E($P(PDATA,"^"),1,1 2) ;patient name132 S $E(@STORE@(INS,TIEN,CIEN,PTIEN),1 4)=$P(PDATA,"^",2) ;primary long id 9 digit133 S $E(@STORE@(INS,TIEN,CIEN,PTIEN),2 6)=$P(PDATA,"^",3) ;means test category131 S @STORE@(INS,TIEN,CIEN,PTIEN)=$E($P(PDATA,"^"),1,15) ;patient name 132 S $E(@STORE@(INS,TIEN,CIEN,PTIEN),18)=$E($P(PDATA,"^",2),6,10) ;primary long id last 4 plus P 133 S $E(@STORE@(INS,TIEN,CIEN,PTIEN),25)=$P(PDATA,"^",3) ;means test category 134 134 S $E(@STORE@(INS,TIEN,CIEN,PTIEN),31)=$P(PDATA,"^",4) ;primary eligibility 135 135 ;Removed by patch 174
Note:
See TracChangeset
for help on using the changeset viewer.