Changeset 781 for ccr/trunk/p


Ignore:
Timestamp:
May 23, 2010, 7:00:21 PM (15 years ago)
Author:
George Lilly
Message:

encounters

Location:
ccr/trunk/p
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/C0CCCR.m

    r768 r781  
    154154 D PUSH^C0CXPATH(TAB,"MAP;C0CLABS;//ContinuityOfCareRecord/Body/Results;^TMP(""C0CCCR"",$J,DFN,""RESULTS"")")
    155155 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"")")
    156157 Q
    157158 ;

  • ccr/trunk/p/C0CCCR0.m

    r780 r781  
    628628 ;;</DateTime>
    629629 ;;<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>
    636660 ;;<Source>
    637661 ;;<Actor>
    … …  
    639663 ;;</Actor>
    640664 ;;</Source>
    641  ;;<Locations>
    642  ;;<Location>
    643  ;;<Actor>
    644  ;;<ActorID>@@ENCLOCACTORID@@</ActorID>
    645  ;;</Actor>
    646  ;;</Location>
    647  ;;</Locations>
    648665 ;;<CommentID>@@ENCCOMMENTID@@</CommentID>
    649666 ;;</Encounter>

  • ccr/trunk/p/C0CPROC.m

    r679 r781  
    4040 ; THE SURGERY PACKGE AND ADDITIONAL COMMENTS FROM OTHER CCR SECTIONS
    4141 ;
    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
    4345 D ENTRY^C0CCPT(DFN,,,1) ; RETURNS ALL RESULTS IN VISIT LOCAL VARIABLE
    4446 ; NEED TO ADD START AND END DATES FROM PARAMETERS
    … …  
    6062 . . . W !,ZCPT," ",ZDATE," ",ZPRV
    6163 . . . 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
    6366 . . . S ZRNF("PROCCODESYS")="CPT-4"
    6467 . . . S ZRNF("PROCDATETEXT")="Procedure Date"
    … …  
    7174 . . . S ZRNF("PROCLINKID")="" ; NO LINKS YET
    7275 . . . 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
    7478 . . . S ZRNF("PROCSTATUS")="Completed" ; Is this right?
    7579 . . . S ZRNF("PROCTYPE")=$P(ZCPT,U,2) ; NEED TO ADD THIS TO TEMPLATE
Note: See TracChangeset for help on using the changeset viewer.