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

fixes to Vitals date ranges

This commit is contained in:
george 2009-03-18 22:04:50 +00:00
parent 21f9587a3f
commit ca0521309a
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
p/C0CRIMA.m
View File

@ -232,15 +232,16 @@ CNTLST(INLST) ; RETURNS THE NUMBER OF ELEMENTS IN THE LIST
. W "ZDX:",ZDX," ZCNT:",ZCOUNT,!
Q ZCOUNT
;
XCPAT(CPATCAT) ; EXPORT TO FILE ALL PATIENTS IN CATEGORY CPATCAT
XCPAT(CPATCAT,CPATPARM) ; EXPORT TO FILE ALL PATIENTS IN CATEGORY CPATCAT
;
I '$D(CPATPARM) S CPATPARM=""
I '$D(RIMBASE) D ASETUP ; FOR COMMAND LINE CALLS
N ZI,ZJ,ZC,ZPATBASE
S ZPATBASE=$NA(@RIMBASE@("RIMTBL","PATS",CPATCAT))
S ZI=""
F ZJ=0:0 D Q:$O(@ZPATBASE@(ZI))="" ; TIL END
. S ZI=$O(@ZPATBASE@(ZI))
. D XPAT^C0CCCR(ZI,"","") ; EXPORT THE PATIENT TO A FILE
. D XPAT^C0CCCR(ZI,CPATPARM) ; EXPORT THE PATIENT TO A FILE
Q
;
CPAT(CPATCAT) ; SHOW PATIENT DFNS FOR A CATEGORY CPATCAT

6
p/C0CVITAL.m
View File

@ -29,10 +29,10 @@ EXTRACT(VITXML,DFN,VITOUTXML) ; EXTRACT VITALS INTO PROVIDED XML TEMPLATE
N VITRSLT,J,K,VITPTMP,X,VITVMAP,TBUF,VORDR
S C0CVLMT=$$GET^C0CPARMS("VITLIMIT") ; GET THE LIMIT PARM
S C0CVSTRT=$$GET^C0CPARMS("VITSTART") ; GET START PARM
;D DT^DILF(,C0CVLMT,.C0CEDT) ;
;D DT^DILF(,C0CVSTRT,.C0CSDT) ;
D DT^DILF(,C0CVLMT,.C0CEDT) ;
D DT^DILF(,C0CVSTRT,.C0CSDT) ;
W "VITALS START: ",C0CVSTRT," LIMIT: ",C0CVLMT,!
D VITALS^ORQQVI(.VITRSLT,DFN,C0CVSTRT,C0CVLMT)
D VITALS^ORQQVI(.VITRSLT,DFN,C0CSDT,C0CEDT)
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",!