Changeset 636 for FOIAVistA/tag/r/SCHEDULING-SD-SC/SCRPTP.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/SCRPTP.m (modified) (5 diffs)

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

@@ -1 +1 @@
 SCRPTP ;ALB/CMM - List of Team's Patients ; 29 Jun 99  04:11PM
- ;;5.3;Scheduling;**41,48,174,177,526,520**;AUG 13, 1993;Build 26
+ ;;5.3;Scheduling;**41,48,174,177**;AUG 13, 1993
  ;
 PROMPTS ;Prompt for Institution, Team, Role, Patient Status and Print device
@@ -20 +20 @@
  ;ROLE - roles selected (variable and array) 
  ;PSTAT - patient status - 1=all or OPT or AC 
- ;SORT - 1=d,t,ptname 2=d,t,Pt ID 3=d,t,pract,pt name 4=d,t,pract,Pt ID
+ ;SORT - 1=d,t,ptname 2=d,t,last 4 Pt ID 3=d,t,pract,pt name 4=d,t,pract,last 4 Pt ID
  N ZTSAVE,II
  F II="INST","TEAM","ROLE","ROLE(","SORT","PSTAT","INST(","TEAM(" S ZTSAVE(II)=""
@@ -31 +31 @@
  ;ROLE - roles selected (variable and array)
  ;PSTAT - patient status - 1=all or OPT or AC
- ;SORT - 1=d,t,ptname 2=d,t,Pt ID 3=d,t,pract,pt name 4=d,t,pract,Pt ID
+ ;SORT - 1=d,t,ptname 2=d,t,last 4 Pt ID 3=d,t,pract,pt name 4=d,t,pract,last 4 Pt ID
  ;IOP - print device
  ;ZTDTH - queue time (optional)
@@ -114 +114 @@
  Q FOUND
  ;
-FORMAT(INS,TIEN,PTIEN,PTNAME,PID,PIEN,PNAME,CNAME,PINF,ROLN,PCAP) ;Format column information
- ;INS - Institution ien
- ;TIEN - team ien
- ;PTIEN - patient ien
- ;PTNAME - patient name
- ;PID - SSN
- ;PIEN - practitioner ien
- ;PNAME - practitioner name
- ;CNAME - clinic name
- ;LAST - last appointment
- ;NEXT - next appointment
- ;ROLN - role name
- ;PCAP - PC?
- ;
- N SEC,TRD
- I PNAME="" S PNAME="[BAD DATA]"
- I PTNAME="" S PTNAME="[BAD DATA]"
- I PID="" S PID="*********"
- S @STORE@("P",INS,TIEN,PNAME,PIEN)="" ;practitioner
- S @STORE@("PT",INS,TIEN,PTNAME,PTIEN)="" ;patient
- S @STORE@("PID",INS,TIEN,PID,PTIEN)=""
- I (SORT=1)!(SORT=2) S SEC=PTIEN,TRD=PIEN ;sort doesn't include practitioner
- I (SORT=3)!(SORT=4) S SEC=PIEN,TRD=PTIEN ;sort includes practitioner
- S @STORE@(INS,TIEN,SEC,TRD)=$E(PTNAME,1,15) ;patient name
- S $E(@STORE@(INS,TIEN,SEC,TRD),18)=PID ;9 digit pid
- S $E(@STORE@(INS,TIEN,SEC,TRD),32)=$E(PNAME,1,22) ;practitioner name
- S $E(@STORE@(INS,TIEN,SEC,TRD),56)=$E($G(ROLN),1,22) ;role name
- S $E(@STORE@(INS,TIEN,SEC,TRD),80)=$G(PCAP) ;PC?
- S $E(@STORE@(INS,TIEN,SEC,TRD),85)=$P(PINF,"^",8) ;last appointment
- S $E(@STORE@(INS,TIEN,SEC,TRD),97)=$P(PINF,"^",9) ;next appointment
- S $E(@STORE@(INS,TIEN,SEC,TRD),109)=$E(CNAME,1,24) ;clinic name
- Q
-FORMATAC(SCCNT,CNAME,PINF,INS,TIEN,PTIEN,PTNAME,PID,PIEN,PNAME,ROLN,PCAP) ;Format MULTIPLES
+FORMAT(INS,TIEN,PTIEN,PTNAME,PID,PIEN,PNAME,CNAME,LAST,NEXT,ROLN,PCAP) ;Format column information
  ;INS - Institution ien
  ;TIEN - team ien
@@ -170 +138 @@
  I (SORT=1)!(SORT=2) S SEC=PTIEN,TRD=PIEN ;sort doesn't include practitioner
  I (SORT=3)!(SORT=4) S SEC=PIEN,TRD=PTIEN ;sort includes practitioner
- I '$D(@STORE@(INS,TIEN,SEC,TRD,SCCNT))  D
- .S $E(@STORE@(INS,TIEN,SEC,TRD,SCCNT),85)=$P(PINF,"^",8) ;last appointment
- .S $E(@STORE@(INS,TIEN,SEC,TRD,SCCNT),97)=$P(PINF,"^",9) ;next appointment
- .S $E(@STORE@(INS,TIEN,SEC,TRD,SCCNT),109)=$E(CNAME,1,24) ;clinic name
- .Q
+ S @STORE@(INS,TIEN,SEC,TRD)=$E(PTNAME,1,22) ;patient name
+ S $E(@STORE@(INS,TIEN,SEC,TRD),25)=PID ;last 4 pid
+ S $E(@STORE@(INS,TIEN,SEC,TRD),32)=$E(PNAME,1,22) ;practitioner name
+ S $E(@STORE@(INS,TIEN,SEC,TRD),56)=$E($G(ROLN),1,22) ;role name
+ S $E(@STORE@(INS,TIEN,SEC,TRD),80)=$G(PCAP) ;PC?
+ S $E(@STORE@(INS,TIEN,SEC,TRD),85)=LAST ;last appointment
+ S $E(@STORE@(INS,TIEN,SEC,TRD),97)=NEXT ;next appointment
+ S $E(@STORE@(INS,TIEN,SEC,TRD),109)=$E(CNAME,1,24) ;clinic name
  Q