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

fix for Vitals on VistA

This commit is contained in:
george 2009-09-23 00:48:19 +00:00
parent 24bc8be94b
commit 9f8abd97f6
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
p/C0CRNF.m
View File

@ -294,6 +294,10 @@ VN(RNRTN,RNIN) ;
. D PUSH^GPLXPATH(RNRTN,RNX) . D PUSH^GPLXPATH(RNRTN,RNX)
Q Q
; ;
READCSV(PATH,NAME,GLB) ; READ A CSV FILE IN FROM UNIX TO GLB, PASSED BY NAME
;
Q $$FTG^%ZISH(PATH,NAME,GLB,1)
;
FILE2CSV(FNUM,FVN) ; WRITES OUT A FILEMAN FILE TO CSV FILE2CSV(FNUM,FVN) ; WRITES OUT A FILEMAN FILE TO CSV
; ;
;N G1,G2 ;N G1,G2

4
p/C0CVITAL.m
View File

@ -39,8 +39,8 @@ EXTRACT(VITXML,DFN,VITOUTXML) ; EXTRACT VITALS INTO PROVIDED XML TEMPLATE
Q Q
; ;
VITVISTA ; EXTRACT VITALS FROM VISTA INTO PROVIDED XML TEMPLATE 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 ;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 '$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 $P(VITRSLT(1),U,2)="No vitals found." D Q ; NULL RESULT FROM RPC
. I DEBUG W "NO VITALS FOUND FROM VITALS RPC",! . I DEBUG W "NO VITALS FOUND FROM VITALS RPC",!