Changeset 1325 for ccr/branches/ohum/p/C0CPROC.m

Timestamp:

Dec 31, 2011, 12:08:05 AM (12 years ago)

Author:

George Lilly

Message:

latest ohum update

File:

• ccr/branches/ohum/p/C0CPROC.m (modified) (4 diffs)

ccr/branches/ohum/p/C0CPROC.m

@@ -1 +1 @@
 C0CPROC  ; CCDCCR/GPL - CCR/CCD PROCESSING FOR PROCEDURES ; 01/21/10
- ;;1.0;C0C;;Jan 21, 2010;Build 38
+ ;;1.0;C0C;;Jan 21, 2010;Build 39
  ;Copyright 2010 George Lilly, University of Minnesota and others.
  ;Licensed under the terms of the GNU General Public License.
@@ -26 +26 @@
  S C0CPRC=$NA(^TMP("C0CCCR",$J,"C0CPRC",DFN))
  S C0CNTE=$NA(^TMP("C0CCCR",$J,"C0CNTE",DFN))
- ; ADDITION FOR CERTIFICATION
- S C0CPRSLT=$NA(^TMP("C0CCCR",$J,"C0CPRSLT",DFN))
  Q
  ;
@@ -80 +78 @@
  . . . S ZRNF("PROCLINKID")="" ; NO LINKS YET
  . . . S ZRNF("PROCLINKREL")="" ; NO LINKS YET
- . . . ; additions for Certification - need to have EKG in Results
- . . . S ZRNF("PROCTEXT")=$G(VISIT(ZI,"TEXT",1)) ; POTENTIAL RESULT
  . . . S ZRNF("PROCOBJECTID")="PROCEDURE_"_ZI_"_"_ZJ
  . . . S C0CLPRC(ZI,PROCCODE)=ZRNF("PROCOBJECTID") ; LOOKUP TABLE FOR ENCOUNTERS
@@ -87 +83 @@
  . . . S ZRNF("PROCTYPE")=$P(ZCPT,U,2) ; NEED TO ADD THIS TO TEMPLATE
  . . . D RNF1TO2^C0CRNF(C0CPRC,"ZRNF") ; ADD THIS ROW TO THE ARRAY
- . . . ; FOR CERTIFICATION - SAVE EKG RESULTS gpl
- . . . W !,"CPT=",ZCPT
- . . . I ZCPT["93000" D  ; THIS IS AN EKG
- . . . . D RNF1TO2^C0CRNF(C0CPRSLT,"ZRNF") ; SAVE FOR LABS
- . . . . M ^GPL("RNF2")=@C0CPRSLT
  . . . S PREVCPT=ZCPT
  . . . S PREVDT=ZDATE