- Timestamp:
- May 23, 2010, 7:00:21 PM (14 years ago)
- Location:
- ccr/trunk/p
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/C0CCCR.m
r768 r781 154 154 D PUSH^C0CXPATH(TAB,"MAP;C0CLABS;//ContinuityOfCareRecord/Body/Results;^TMP(""C0CCCR"",$J,DFN,""RESULTS"")") 155 155 D PUSH^C0CXPATH(TAB,"EXTRACT;C0CPROC;//ContinuityOfCareRecord/Body/Procedures;^TMP(""C0CCCR"",$J,DFN,""PROCEDURES"")") 156 D PUSH^C0CXPATH(TAB,"EXTRACT;C0CENC;//ContinuityOfCareRecord/Body/Encounters;^TMP(""C0CCCR"",$J,DFN,""ENCOUNTERS"")") 156 157 Q 157 158 ; -
ccr/trunk/p/C0CCCR0.m
r780 r781 628 628 ;;</DateTime> 629 629 ;;<Type> 630 ;;<Text>@@ENCTYPE@@</Text> 631 ;;<Code> 632 ;;<Value>@@ENCCODE@@</Value> 633 ;;<CodingSystem>@@ENCCODESYS@@</CodingSystem> 634 ;;</Code> 635 ;;</Type> 630 ;;<Text>@@ENCTYPETXT@@</Text> 631 ;;<Code> 632 ;;<Value>@@ENCTYPECODE@@</Value> 633 ;;<CodingSystem>@@ENCTYPECODESYS@@</CodingSystem> 634 ;;</Code> 635 ;;</Type> 636 ;;<Description> 637 ;;<Text>@@ENCDESCTXT@@</Text> 638 ;;<Code> 639 ;;<Value>@@ENCDESCCODE@@</Value> 640 ;;<CodingSystem>@@ENCDESCCODESYS@@</CodingSystem> 641 ;;</Code> 642 ;;</Description> 643 ;;<Location> 644 ;;<Actor> 645 ;;<ActorID>@@ENCLOCACTORID@@</ActorID> 646 ;;</Actor> 647 ;;</Location> 648 ;;<Practioner> 649 ;;<Actor> 650 ;;<ActorID>@@ENCPRVACTORID@@</ActorID> 651 ;;</Actor> 652 ;;</Practioner> 653 ;;<Indication> 654 ;;<Text>@@ENCINDTXT@@</Text> 655 ;;<Code> 656 ;;<Value>@@ENCINDCODE@@</Value> 657 ;;<CodingSystem>@@ENCINDCODESYS@@</CodingSystem> 658 ;;</Code> 659 ;;</Indication> 636 660 ;;<Source> 637 661 ;;<Actor> … … 639 663 ;;</Actor> 640 664 ;;</Source> 641 ;;<Locations>642 ;;<Location>643 ;;<Actor>644 ;;<ActorID>@@ENCLOCACTORID@@</ActorID>645 ;;</Actor>646 ;;</Location>647 ;;</Locations>648 665 ;;<CommentID>@@ENCCOMMENTID@@</CommentID> 649 666 ;;</Encounter> -
ccr/trunk/p/C0CPROC.m
r679 r781 40 40 ; THE SURGERY PACKGE AND ADDITIONAL COMMENTS FROM OTHER CCR SECTIONS 41 41 ; 42 K VISIT,LST,NOTE 42 K VISIT,LST,NOTE,C0CLPRC 43 ; C0CLPRC IS A LOOKUP TABLE FOR USE IN BUILDING ENCOUNTERS 44 ; FORMAT C0CLPRC(VISITIEN,CPT)=PROCOBJECTID FOR BUILDING LINKS TO PROCEDURES 43 45 D ENTRY^C0CCPT(DFN,,,1) ; RETURNS ALL RESULTS IN VISIT LOCAL VARIABLE 44 46 ; NEED TO ADD START AND END DATES FROM PARAMETERS … … 60 62 . . . W !,ZCPT," ",ZDATE," ",ZPRV 61 63 . . . S ZRNF("PROCACTOROBJID")=ZPRV 62 . . . S ZRNF("PROCCODE")=$P(ZCPT,U,1) 64 . . . N PROCCODE S PROCCODE=$P(ZCPT,U,1) 65 . . . S ZRNF("PROCCODE")=PROCCODE 63 66 . . . S ZRNF("PROCCODESYS")="CPT-4" 64 67 . . . S ZRNF("PROCDATETEXT")="Procedure Date" … … 71 74 . . . S ZRNF("PROCLINKID")="" ; NO LINKS YET 72 75 . . . S ZRNF("PROCLINKREL")="" ; NO LINKS YET 73 . . . S ZRNF("PROCOBJECTID")="PROCEDURE_"_ZI 76 . . . S ZRNF("PROCOBJECTID")="PROCEDURE_"_ZI_"_"_ZJ 77 . . . S C0CLPRC(ZI,PROCCODE)=ZRNF("PROCOBJECTID") ; LOOKUP TABLE FOR ENCOUNTERS 74 78 . . . S ZRNF("PROCSTATUS")="Completed" ; Is this right? 75 79 . . . S ZRNF("PROCTYPE")=$P(ZCPT,U,2) ; NEED TO ADD THIS TO TEMPLATE
Note:
See TracChangeset
for help on using the changeset viewer.