Changeset 1205 for ccr/trunk/p/C0CPROC.m

Timestamp:

Jul 8, 2011, 3:24:07 PM (13 years ago)

Author:

George Lilly

Message:

version for certification

File:

• ccr/trunk/p/C0CPROC.m (modified) (3 diffs)

ccr/trunk/p/C0CPROC.m

@@ -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
         ;
@@ -78 +80 @@
         . . . 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
@@ -83 +87 @@
         . . . 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