Changeset 910 for ccr/trunk


Ignore:
Timestamp:
Aug 16, 2010, 2:41:04 PM (14 years ago)
Author:
George Lilly
Message:

update to get BMI and other new vitals

Location:
ccr/trunk/p
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/C0CMXML.m

    r763 r910  
    7676 . D DEMUX2^C0CMXP("GTMP","G2",2)
    7777 . M GARY4(ZI)=GTMP
     78 Q
     79 ;
     80TESTQ ; TEST OF THE QRDA TEMPLATE GPL 7/8/2010
     81 S C0CXMLIN=$NA(^TMP("C0CMXML",$J))
     82 K GARY,GTMP,GIDX
     83 K @C0CXMLIN
     84 W $$FTG^%ZISH("/home/vademo2/","QRDA_CategoryI_WorldVistA1.xml",$NA(@C0CXMLIN@(1)),3)
     85 D CLEANARY^C0CMCCD("GTMP",C0CXMLIN) ; REMOVE CONTROL CHARACTERS
     86 K @C0CXMLIN
     87 S GTMP(1)="<"_$P(GTMP(1),"<",2)
     88 M @C0CXMLIN=GTMP
     89 K GTMP
     90 D TESTQ2
     91 Q
     92 ;
     93TESTQ2 ; SECOND PART OF TESTQ
     94 D STRIPTXT^C0CMCCD("GTMP",C0CXMLIN)
     95 K @C0CXMLIN
     96 M @C0CXMLIN=GTMP
     97 K GTMP
     98 S C0CDOCID=$$PARSCCD^C0CMCCD(C0CXMLIN,"W") W !,"DocID: ",C0CDOCID
     99 S REDUX="//ClinicalDocument/component/structuredBody"
     100 D FINDTID^C0CMCCD ; FIND THE TEMPLATE IDS
     101 D FINDALT^C0CMCCD ; FIND ALTERNATE TAGS
     102 D SETCBK^C0CMCCD ; SET THE CALLBACK ROUTINE FOR TAGS
     103 D XPATH(1,"/","GIDX","GARY",,REDUX)
     104 K C0CCBK("TAG")
     105 D SEPARATE^C0CMCCD("GARY2","GARY") ; SEPARATE FOR EASIER BROWSING
     106 D TEST3A
    78107 Q
    79108 ;
  • ccr/trunk/p/C0CVITAL.m

    r601 r910  
    3232 D DT^DILF(,C0CVLMT,.C0CEDT) ;
    3333 D DT^DILF(,C0CVSTRT,.C0CSDT) ;
     34 ;D DT^DILF(,C0CVLMT,.C0CSDT) ; GPL TESTING
     35 ;D DT^DILF(,C0CVSTRT,.C0CEDT) ;
    3436 W "VITALS START: ",C0CVSTRT," LIMIT: ",C0CVLMT,!
    3537 I $$RPMS^C0CUTIL() D VITRPMS QUIT
     
    4042 ;
    4143VITVISTA ; EXTRACT VITALS FROM VISTA INTO PROVIDED XML TEMPLATE
    42  D VITALS^ORQQVI(.VITRSLT,DFN,C0CEDT,C0CSDT)
     44 D FASTVIT^ORQQVI(.VITRSLT,DFN,C0CEDT,C0CSDT) ; GPL THIS ONE WORKS FOR AT
     45 ; LEAST ONE SET OF VITALS - TO DO, CALL IT REPETIVELY TO GET EARLIER VITALS
     46 ;D VITALS^ORQQVI(.VITRSLT,DFN,C0CEDT,C0CSDT)
    4347 ;D VITALS^ORQQVI(.VITRSLT,DFN,C0CSDT,C0CEDT)
    4448 ;D VITALS^ORQQVI(.VITRSLT,DFN,C0CVSTRT,C0CVLMT) ; GPL LET GMR HANDLE THE DATES
Note: See TracChangeset for help on using the changeset viewer.