Changeset 636 for FOIAVistA/tag/r/SURGERY-SR/SROALM.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 )
• SURGERY-SR/SROALM.m (modified) (2 diffs)

FOIAVistA/tag/r/SURGERY-SR/SROALM.m

@@ -1 @@
-SROALM ;BIR/ADM - LIST OF ASSESSMENTS MISSING INFORMATION ;12/05/07
- ;;3.0; Surgery ;**38,50,88,142,153,160,166**;24 Jun 93;Build 6
+SROALM ;BIR/ADM - LIST OF ASSESSMENTS MISSING INFORMATION ;02/08/07
+ ;;3.0; Surgery ;**38,50,88,142,153,160**;24 Jun 93;Build 7
  S (GRAND,SRNEW,SRSOUT,TOT)=0,(SRHDR,SRPAGE)=1,SRTITLE="COMPLETED/TRANSMITTED ASSESSMENTS MISSING INFORMATION" K ^TMP("SRA",$J)
  I SRFLG,SRASP S SRSPEC=$P(^SRO(137.45,SRASP,0),"^")
@@ -40 +40 @@
  S CNT=1 W !,?5,"Missing information:"
  I '$P($G(^SRO(136,SRTN,10)),"^")!('$P($G(^SRO(136,SRTN,0)),"^",2))!('$P($G(^SRO(136,SRTN,0)),"^",3)) W !,$J(CNT_". ",8),"The final coding for Procedure and Diagnosis is not complete." S CNT=CNT+1
- F  S SRFLD=$O(SRX(SRFLD)) Q:SRFLD=""  D:$Y+5>IOSL PAGE Q:SRSOUT  W !,$J(CNT_". ",8),$P(SRX(SRFLD),":") S CNT=CNT+1
+ F  S SRFLD=$O(SRX(SRFLD)) Q:SRFLD=""  D:$Y+5>IOSL PAGE Q:SRSOUT  W !,$J(CNT_". ",8),SRX(SRFLD) S CNT=CNT+1
  I 'SRSOUT W ! F LINE=1:1:80 W "-"
  Q