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

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

@@ -1 +1 @@
 SCRPSLT2 ;ALB/CMM - Summary Listing of Teams Continued ; 9/15/99 10:43am
- ;;5.3;Scheduling;**41,174,177,231,520**;AUG 13, 1993;Build 26
+ ;;5.3;Scheduling;**41,174,177,231**;AUG 13, 1993
  ;
  ;Summary Listing of Teams Report
@@ -23 +23 @@
  S POS=$P(TNODE,"^") ;position name
  ;SD*5.3*231 - call SCMCLK to determine in AP or not
- S PPC=$S($P(TNODE,"^",4)<1:"NPC",+$$OKPREC3^SCMCLK(APOS,DT)>0:" AP",1:"PCP") ;PC?
- ;S PCLIN=$P($G(^SC(+$P(TNODE,"^",9),0)),"^") ;associated clinic
- D SETASCL^SCRPRAC2(APOS,.PCLIN)
- S PCLIN=$G(PCLIN(0))
+ S PPC=$S($P(TNODE,"^",4)<1:"NPC",+$$OKPREC3^SCMCLK(APOS,DT)>1:" AP",1:"PCP") ;PC?
+ S PCLIN=$P($G(^SC(+$P(TNODE,"^",9),0)),"^") ;associated clinic
  S ROLN=$P($G(^SD(403.46,+ROL,0)),U) ;role name
  ;
@@ -57 +55 @@
  ;
  D FORMAT(APOS,POS,PCLIN,VAE,PRACT,PPC,DIV,TM,NPC,MAX,PCN,XDAT)
- N SCAC
- S SCAC=0
- F  S SCAC=$O(PCLIN(SCAC)) Q:SCAC=""  D FORMATAC(APOS,POS,PCLIN(SCAC),VAE,DIV,TM)
  Q
  ;
@@ -99 +94 @@
  S $E(@STORE@(DIV,TM,VAE,APOS),128)=$J(TMP(2),5,0) ;precepted NPC
  ;New code ends
- Q
-FORMATAC(APOS,POS,PCLIN,VAE,DIV,TM) ;clinic multiples
- S $E(@STORE@(DIV,TM,VAE,APOS,SCAC),72)=$E(PCLIN,1,30)
  Q
  ;