GMRAOR8.m

GMRAOR8 ;HIRMFO/WAA-OERR HL7 UTILITY ;7/3/97  15:48

 ;;4.0;Adverse Reaction Tracking;**4**;Mar 29, 1996

COMM(GMRAPA,GMRAL) ;Add comments

 ;INPUT

 ;  GMRAPA = The entry in file 120.8 that is being modified

 ;   GMRAL = The entry in the GMRAL array that is being added

 ;

 N GMRASN,GMRASNN

 S GMRASN=0 F  S GMRASN=$O(GMRAL(GMRAL,"N",GMRASN)) D  Q:GMRASN<1

 .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

 .N GMRALN

 .S ^GMR(120.8,GMRAPA,26,GMRASN,0)=$P(GMRAL(GMRAL),U,5)_U_$P(GMRAL(GMRAL),U,7)_U_"O"

 .I $G(GMRAL(GMRAL,"N",GMRASN,1))'="" S GMRASNN="" F  S GMRASNN=$O(GMRAL(GMRAL,"N",GMRASN,GMRASNN)) D  Q:GMRASNN<1

 ..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

 ..S ^GMR(120.8,GMRAPA,26,GMRASN,2,GMRASNN,0)=GMRAL(GMRAL,"N",GMRASN,GMRASNN)

 ..Q

 .Q

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---GMRAOR8   920     printed  Feb 18, 2025@23:06:08                                                                                                                                                                                                      Page 2

GMRAOR8   ;HIRMFO/WAA-OERR HL7 UTILITY ;7/3/97  15:48

 +1       ;;4.0;Adverse Reaction Tracking;**4**;Mar 29, 1996

COMM(GMRAPA,GMRAL) ;Add comments

 +1       ;INPUT

 +2       ;  GMRAPA = The entry in file 120.8 that is being modified

 +3       ;   GMRAL = The entry in the GMRAL array that is being added

 +4       ;

 +5        NEW GMRASN,GMRASNN

 +6        SET GMRASN=0

           FOR 

               SET GMRASN=$ORDER(GMRAL(GMRAL,"N",GMRASN))

               Begin DoDot:1

 +7                IF GMRASN<1

                       SET GMRASN=$ORDER(GMRAL(GMRAL,"N",""),-1)

                       SET ^GMR(120.8,GMRAPA,26,0)=U_"120.826D"_U_GMRASN_U_GMRASN

                       SET GMRASN=""

                       QUIT 

 +8                NEW GMRALN

 +9                SET ^GMR(120.8,GMRAPA,26,GMRASN,0)=$PIECE(GMRAL(GMRAL),U,5)_U_$PIECE(GMRAL(GMRAL),U,7)_U_"O"

 +10               IF $GET(GMRAL(GMRAL,"N",GMRASN,1))'=""

                       SET GMRASNN=""

                       FOR 

                           SET GMRASNN=$ORDER(GMRAL(GMRAL,"N",GMRASN,GMRASNN))

                           Begin DoDot:2

 +11                           IF GMRASNN<1

                                   SET GMRASNN=$ORDER(GMRAL(GMRAL,"N",GMRASN,""),-1)

                                   SET ^GMR(120.8,GMRAPA,26,GMRASN,2,0)=U_U_GMRASNN_U_GMRASNN

                                   SET GMRASNN=""

                                   QUIT 

 +12                           SET ^GMR(120.8,GMRAPA,26,GMRASN,2,GMRASNN,0)=GMRAL(GMRAL,"N",GMRASN,GMRASNN)

 +13                           QUIT 

                           End DoDot:2

                           if GMRASNN<1

                               QUIT 

 +14               QUIT 

               End DoDot:1

               if GMRASN<1

                   QUIT 

 +15       QUIT