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

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

@@ -1 +1 @@
 SCRPRAC2 ;ALB/CMM - Practitioner Demographics continued ; 29 Jun 99  04:11PM
- ;;5.3;Scheduling;**41,177,520**;AUG 13, 1993;Build 26
+ ;;5.3;Scheduling;**41,177**;AUG 13, 1993
  ;
  ;Practitioner Demographics Report
@@ -40 +40 @@
  .S MAX=$P(NODE,"^",8) ;max patient assignments to position
  .S ASSIGN=+$$PCPOSCNT^SCAPMCU1(PIEN,DT,0) ;assigned patients
- .N CNAME,SCCLIEN
- .D SETASCL(PIEN,.CNAME,.SCCLIEN) ;associated clinics
+ .S CNAME=$P($G(^SC(+$P(NODE,U,9),0)),U) ;associated clinic
  .;
  .;Get preceptor
@@ -57 +56 @@
  .D SET1("Phone",PHONE),SET2("Pts. Assigned",ASSIGN)
  .I $L($G(PRCP)) D SET3(1,"Preceptor: "_PRCP)
- .D SET3(4,"Assoc. Clinic: ")
- .D SETCNAME(.CNAME)
+ .D SET3(4,"Assoc.")
+ .D SET3(4,"Clinic: "_CNAME)
  .I $L(PCLASS(1)) D
  ..D SET3(4,"Person"),SET3(5,"Class: "_PCLASS(1)) D
@@ -83 +82 @@
  Q
  ;
-SETASCL(PIEN,CNAME,SCCLIEN) ;SET ASSOCIATED CLINICS
- N I,CNT1
- S CNT1=0,I=0
- F  S I=$O(^SCTM(404.57,PIEN,5,I)) Q:'I  D
- .S SCCLIEN(CNT1)=I,CNAME(CNT1)=$P($G(^SC(I,0)),U),CNT1=CNT1+1
- Q
 SET1(LABEL,VALUE) ;Set output line
  S SCLN=SCLN+1
@@ -109 +102 @@
  Q
  ;
-SETCNAME(CNAME) ;associated clinics 
- N A
- S A="" F  S A=$O(CNAME(A)) Q:A=""  D SET3(12,CNAME(A))
- Q
- ;
 PINFO(VAE,PRACT,OPH,ROOM,SERV) ;
- ;practitioner information from new person file
+ ;practitioner information form new person file
  S PRACT=$P($G(^VA(200,VAE,0)),"^") ;practitioner name
  S OPH=$P($G(^VA(200,VAE,.13)),"^",2) ;office phone