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

Updated C0CMED

This commit is contained in:
sam 2009-03-29 22:41:25 +00:00
parent cd907ea348
commit 4ea7bebb1d
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
p/C0CMED.m
View File

@ -42,7 +42,13 @@ EXTRACT(MEDXML,DFN,MEDOUTXML) ; Private; Extract medications into provided XML t
; --Get parameters for meds ; --Get parameters for meds
N C0CMFLAG N C0CMFLAG
S C0CMFLAG=$$GET^C0CPARMS("MEDALL")_"^"_$$GET^C0CPARMS("MEDLIMIT")_"^"_$$GET^C0CPARMS("MEDACTIVE")_"^"_$$GET^C0CPARMS("MEDPENDING") S C0CMFLAG=$$GET^C0CPARMS("MEDALL")_"^"_$$GET^C0CPARMS("MEDLIMIT")_"^"_$$GET^C0CPARMS("MEDACTIVE")_"^"_$$GET^C0CPARMS("MEDPENDING")
W:$G(DEBUG) "Med Parameters: ",!
W:$G(DEBUG) "ALL: ",+C0CMFLAG,!
W:$G(DEBUG) "LIMIT: ",$P(C0CMFLAG,U,2),!
W:$G(DEBUG) "ACTIVE: ",$P(C0CMFLAG,U,3),!
W:$G(DEBUG) "PEND: ",$P(C0CMFLAG,U,4),!
; --Find out what system we are on and branch out... ; --Find out what system we are on and branch out...
W:$G(DEBUG) "Agenecy: ",$G(DUZ("AG"))
I $$RPMS^C0CUTIL() D RPMS QUIT I $$RPMS^C0CUTIL() D RPMS QUIT
I ($$VISTA^C0CUTIL())!($$WV^C0CUTIL())!($$OV^C0CUTIL()) D VISTA QUIT I ($$VISTA^C0CUTIL())!($$WV^C0CUTIL())!($$OV^C0CUTIL()) D VISTA QUIT
RPMS RPMS