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

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

@@ -1 +1 @@
 SCRPW9 ;RENO/KEITH - Outpatient Encounter Workload Statistics (cont.) ; 15 Jul 98  02:38PM
- ;;5.3;Scheduling;**139,144,339,466,510**;AUG 13, 1993;Build 3
+ ;;5.3;Scheduling;**139,144,339,466**;AUG 13, 1993;Build 2
 UNARL(SDS1,SDS2) ;Print list of 'action required'/not accepted uniques
  ;Required input: SDS1,SDS2=subscript values
@@ -34 +34 @@
  S DIR(0)="S^A:All transmission statuses;1:No transmission record;2:Not required, not transmitted;3:Rejected for transmission;4:Awaiting transmission;"
  S DIR(0)=DIR(0)_"5:Transmitted, no acknowledgment;6:Transmitted, rejected;7:Transmitted, error;8:Transmitted, accepted"
- I SDZ(2)=8 S DIR(0)=DIR(0)_";9:Non-Count (not transmitted)"
  W ! D ^DIR I $D(DTOUT)!$D(DUOUT) S SDZ(0)=-1 Q  ;SD*5.3*339 add sub-zero
  S SDZ(3)=+Y
@@ -47 +46 @@
  K SDH S SDPAGE=1,SDH(1)="<*>  DETAILED LIST OF DIVISION "_$S(SDZ(1)="U":"UNIQUES",SDZ(1)="V":"VISITS",1:"ENCOUNTERS")_"  <*>",SDH(2)="For division: "_SDZ(4)
  I $G(SDZ(2)) S SDH(3)="Encounters with "_$P(^SD(409.63,SDZ(2),0),U)_" status"
- I $G(SDZ(2))'="","28"[SDZ(2) S SDH(4)="Transmission status: "_$P($T(TXS+SDZ(3)),";",2)
+ I "28"[$G(SDZ(2)) S SDH(4)="Transmission status: "_$P($T(TXS+SDZ(3)),";",2)
  D DHDR Q:SDOUT  I '$D(^TMP(SDS1,$J,SDS2,"DETAIL")) W !,"No records found in this category." Q
  S SDCT=0 D @SDZ(1) Q
@@ -90 +89 @@
  ;Transmitted, error
  ;Transmitted, accepted
- ;Non-Count (not transmitted)
  ;
 PARM ;Prompt for report parameters