Changeset 910 for ccr/trunk/p/C0CVITAL.m

Timestamp:

Aug 16, 2010, 2:41:04 PM (14 years ago)

Author:

George Lilly

Message:

update to get BMI and other new vitals

File:

• ccr/trunk/p/C0CVITAL.m (modified) (2 diffs)

ccr/trunk/p/C0CVITAL.m

@@ -32 +32 @@
  D DT^DILF(,C0CVLMT,.C0CEDT) ;
  D DT^DILF(,C0CVSTRT,.C0CSDT) ; 
+ ;D DT^DILF(,C0CVLMT,.C0CSDT) ; GPL TESTING
+ ;D DT^DILF(,C0CVSTRT,.C0CEDT) ; 
  W "VITALS START: ",C0CVSTRT," LIMIT: ",C0CVLMT,!
  I $$RPMS^C0CUTIL() D VITRPMS QUIT
@@ -40 +42 @@
  ;
 VITVISTA ; EXTRACT VITALS FROM VISTA INTO PROVIDED XML TEMPLATE
- D VITALS^ORQQVI(.VITRSLT,DFN,C0CEDT,C0CSDT)
+ D FASTVIT^ORQQVI(.VITRSLT,DFN,C0CEDT,C0CSDT) ; GPL THIS ONE WORKS FOR AT
+ ; LEAST ONE SET OF VITALS - TO DO, CALL IT REPETIVELY TO GET EARLIER VITALS
+ ;D VITALS^ORQQVI(.VITRSLT,DFN,C0CEDT,C0CSDT)
  ;D VITALS^ORQQVI(.VITRSLT,DFN,C0CSDT,C0CEDT)
  ;D VITALS^ORQQVI(.VITRSLT,DFN,C0CVSTRT,C0CVLMT) ; GPL LET GMR HANDLE THE DATES