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

Timestamp:

May 23, 2010, 7:00:21 PM (14 years ago)

Author:

George Lilly

Message:

encounters

File:

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

ccr/trunk/p/C0CPROC.m

@@ -40 +40 @@
  ; THE SURGERY PACKGE AND ADDITIONAL COMMENTS FROM OTHER CCR SECTIONS
  ;
- K VISIT,LST,NOTE
+ K VISIT,LST,NOTE,C0CLPRC
+ ; C0CLPRC IS A LOOKUP TABLE FOR USE IN BUILDING ENCOUNTERS
+ ; FORMAT C0CLPRC(VISITIEN,CPT)=PROCOBJECTID FOR BUILDING LINKS TO PROCEDURES
  D ENTRY^C0CCPT(DFN,,,1) ; RETURNS ALL RESULTS IN VISIT LOCAL VARIABLE
  ; NEED TO ADD START AND END DATES FROM PARAMETERS
@@ -60 +62 @@
  . . . W !,ZCPT," ",ZDATE," ",ZPRV
  . . . S ZRNF("PROCACTOROBJID")=ZPRV
- . . . S ZRNF("PROCCODE")=$P(ZCPT,U,1)
+ . . . N PROCCODE S PROCCODE=$P(ZCPT,U,1)
+ . . . S ZRNF("PROCCODE")=PROCCODE
  . . . S ZRNF("PROCCODESYS")="CPT-4"
  . . . S ZRNF("PROCDATETEXT")="Procedure Date"
@@ -71 +74 @@
  . . . S ZRNF("PROCLINKID")="" ; NO LINKS YET
  . . . S ZRNF("PROCLINKREL")="" ; NO LINKS YET
- . . . S ZRNF("PROCOBJECTID")="PROCEDURE_"_ZI
+ . . . S ZRNF("PROCOBJECTID")="PROCEDURE_"_ZI_"_"_ZJ
+ . . . S C0CLPRC(ZI,PROCCODE)=ZRNF("PROCOBJECTID") ; LOOKUP TABLE FOR ENCOUNTERS
  . . . S ZRNF("PROCSTATUS")="Completed" ; Is this right?
  . . . S ZRNF("PROCTYPE")=$P(ZCPT,U,2) ; NEED TO ADD THIS TO TEMPLATE