| 1 | GMRAOR8 ;HIRMFO/WAA-OERR HL7 UTILITY ;7/3/97 15:48
|
|---|
| 2 | ;;4.0;Adverse Reaction Tracking;**4**;Mar 29, 1996
|
|---|
| 3 | COMM(GMRAPA,GMRAL) ;Add comments
|
|---|
| 4 | ;INPUT
|
|---|
| 5 | ; GMRAPA = The entry in file 120.8 that is being modified
|
|---|
| 6 | ; GMRAL = The entry in the GMRAL array that is being added
|
|---|
| 7 | ;
|
|---|
| 8 | N GMRASN,GMRASNN
|
|---|
| 9 | S GMRASN=0 F S GMRASN=$O(GMRAL(GMRAL,"N",GMRASN)) D Q:GMRASN<1
|
|---|
| 10 | .I GMRASN<1 S GMRASN=$O(GMRAL(GMRAL,"N",""),-1),^GMR(120.8,GMRAPA,26,0)=U_"120.826D"_U_GMRASN_U_GMRASN S GMRASN="" Q
|
|---|
| 11 | .N GMRALN
|
|---|
| 12 | .S ^GMR(120.8,GMRAPA,26,GMRASN,0)=$P(GMRAL(GMRAL),U,5)_U_$P(GMRAL(GMRAL),U,7)_U_"O"
|
|---|
| 13 | .I $G(GMRAL(GMRAL,"N",GMRASN,1))'="" S GMRASNN="" F S GMRASNN=$O(GMRAL(GMRAL,"N",GMRASN,GMRASNN)) D Q:GMRASNN<1
|
|---|
| 14 | ..I GMRASNN<1 S GMRASNN=$O(GMRAL(GMRAL,"N",GMRASN,""),-1),^GMR(120.8,GMRAPA,26,GMRASN,2,0)=U_U_GMRASNN_U_GMRASNN S GMRASNN="" Q
|
|---|
| 15 | ..S ^GMR(120.8,GMRAPA,26,GMRASN,2,GMRASNN,0)=GMRAL(GMRAL,"N",GMRASN,GMRASNN)
|
|---|
| 16 | ..Q
|
|---|
| 17 | .Q
|
|---|
| 18 | Q
|
|---|
