iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

some changes to make Vitals work

This commit is contained in:
george 2009-09-15 19:25:58 +00:00
parent 46245133b4
commit 2f636c00f9
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
p/C0CVITAL.m
View File

@ -32,11 +32,15 @@ EXTRACT(VITXML,DFN,VITOUTXML) ; EXTRACT VITALS INTO PROVIDED XML TEMPLATE
D DT^DILF(,C0CVLMT,.C0CEDT) ;
D DT^DILF(,C0CVSTRT,.C0CSDT) ;
W "VITALS START: ",C0CVSTRT," LIMIT: ",C0CVLMT,!
I $$SYSNAME^C0CSYS()="RPMS" D VITRPMS E D VITVISTA
I $$RPMS^C0CUTIL() D VITRPMS QUIT
I ($$VISTA^C0CUTIL())!($$WV^C0CUTIL())!($$OV^C0CUTIL()) D VITVISTA QUIT
;I $$SYSNAME^C0CSYS()="RPMS" D VITRPMS
;E D VITVISTA
Q
;
VITVISTA ; EXTRACT VITALS FROM VISTA INTO PROVIDED XML TEMPLATE
D VITALS^ORQQVI(.VITRSLT,DFN,C0CSDT,C0CEDT)
;D VITALS^ORQQVI(.VITRSLT,DFN,C0CSDT,C0CEDT)
D VITALS^ORQQVI(.VITRSLT,DFN,C0CVSTRT,C0CVLMT) ; GPL LET GMR HANDLE THE DATES
I '$D(VITRSLT(1)) S @VITOUTXML@(0)=0 Q ; RETURN NOT FOUND AND QUIT
I $P(VITRSLT(1),U,2)="No vitals found." D Q ; NULL RESULT FROM RPC
. I DEBUG W "NO VITALS FOUND FROM VITALS RPC",!