Changeset 421 for ccr/trunk/p/C0CMED3.m

Timestamp:

Mar 29, 2009, 4:19:05 PM (15 years ago)

Author:

Sam Habiel

Message:

Refactor of Med Routines, part 1

File:

• ccr/trunk/p/C0CMED3.m (modified) (4 diffs)

ccr/trunk/p/C0CMED3.m

@@ -22 +22 @@
  Q
  ;
-EXTRACT(MINXML,DFN,OUTXML) ; Extract medications into provided xml template
- ;
- ; MINXML is the Input XML Template, passed by name
- ; DFN is Patient IEN
- ; OUTXML is the resultant XML.
+EXTRACT(MINXML,DFN,OUTXML,MEDCOUNT) ; Extract medications into provided xml template
+ ;
+ ; MINXML is the Input XML Template, (passed by name)
+ ; DFN is Patient IEN (passed by value)
+ ; OUTXML is the resultant XML (passed by name)
+ ; MEDCOUNT is the number of Meds extracted so far (passed by reference)
  ;
  ; MEDS is return array from RPC.
@@ -39 +40 @@
  N MEDS,MAP
  K ^TMP($J,"CCDCCR") ; PLEASE DON'T KILL ALL OF ^TMP($J) HERE!!!!
- K NVA
+ N NVA
  D GETS^DIQ(55,DFN,"52.2*","IE","NVA") ; Output in NVA in FDA array format.
  ; If NVA does not exist, then patient has no non-VA meds
@@ -50 +51 @@
  I DEBUG ZWR MEDS
  N FDAIEN S FDAIEN=0 ; For use in $Order in the MEDS array.
- S MEDMAP=$NA(^TMP("C0CCCR",$J,"MEDMAP"))
- N MEDCOUNT S MEDCOUNT=@MEDMAP@(0) ; We already have meds in the array
  N MEDFIRST S MEDFIRST=1 ; FLAG FOR FIRST MED PROCESSED HERE
  F  S FDAIEN=$O(MEDS(FDAIEN)) Q:FDAIEN=""  D  ; FOR EACH MEDICATION IN THE LIST
@@ -58 +57 @@
  . S MEDCOUNT=MEDCOUNT+1
  . S MAP=$NA(^TMP("C0CCCR",$J,"MEDMAP",MEDCOUNT))
- . S @MEDMAP@(0)=@MEDMAP@(0)+1 ; INCREMENT TOTAL MEDS IN VAR ARRAY
  . N RXIEN S RXIEN=$P(FDAIEN,",") ; First piece of FDAIEN is the number of the med for this patient
  . I DEBUG W "RXIEN IS ",RXIEN,!