RGACTIV.m

RGACTIV ;BAY/ALS-MPI/PD PATIENT ACTIVITY INFORMATION ;03/08/02

 ;;1.0;CLINICAL INFO RESOURCE NETWORK;**25,48**;30 Apr 99;Build 3

 ; Reference to ^VAT(391.71 supported by IA# 3422

EN(ARRAY,ICN,SSN) ;

 I '$D(ICN) S ARRAY(0)="-1^ICN NOT PASSED" G QUIT

 S DFN=$$GETDFN^MPIF001(ICN)

 I DFN<1 S ARRAY(ICN,0)=DFN G QUIT

 ;S SITE=+$$SITE^VASITE()

 ;**48 CHANGE TO PASS STATION NUMBER

 S SITE=$P($$SITE^VASITE(),"^",3)

PIVOT ; Get message information from ADT/HL7 PIVOT file

 S RGMSG="",MSGDATA=""

 I $D(^VAT(391.71,"C",DFN)) D

 . S MSG=0 S MSG=$O(^VAT(391.71,"C",DFN,MSG)) Q:'MSG  D

 .. S DIC="391.71",DR=".01;.04;2.1",DA=MSG,DIQ="RGMSG",DIQ(0)="E"

 .. D EN^DIQ1 K DIC,DR,DA,DIQ

 .. S MSGDATA=RGMSG(391.71,MSG,.04,"E")_"^"_RGMSG(391.71,MSG,.01,"E")_"^"_MSG_"^"_RGMSG(391.71,MSG,2.1,"E")

 .. S ARRAY(ICN,SITE,"PIVOT",MSG)=ICN_"^"_SITE_"^"_"PIVOT^"_MSGDATA

EXC ;Get exception information 

 D GETEX^RGEX03(.RETURN,DFN)

 S X=0 F  S X=$O(RETURN(X)) Q:'X  S ARRAY(ICN,SITE,"EXC",X)=ICN_"^"_SITE_"^"_"EXC^"_RETURN(X)

QUIT ;

 K DFN,RGMSG,MSG,MSGDATA,RETURN,SITE,X

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RGACTIV   1075     printed  Mar 13, 2025@20:45:59                                                                                                                                                                                                     Page 2

RGACTIV   ;BAY/ALS-MPI/PD PATIENT ACTIVITY INFORMATION ;03/08/02

 +1       ;;1.0;CLINICAL INFO RESOURCE NETWORK;**25,48**;30 Apr 99;Build 3

 +2       ; Reference to ^VAT(391.71 supported by IA# 3422

EN(ARRAY,ICN,SSN) ;

 +1        IF '$DATA(ICN)

               SET ARRAY(0)="-1^ICN NOT PASSED"

               GOTO QUIT

 +2        SET DFN=$$GETDFN^MPIF001(ICN)

 +3        IF DFN<1

               SET ARRAY(ICN,0)=DFN

               GOTO QUIT

 +4       ;S SITE=+$$SITE^VASITE()

 +5       ;**48 CHANGE TO PASS STATION NUMBER

 +6        SET SITE=$PIECE($$SITE^VASITE(),"^",3)

PIVOT     ; Get message information from ADT/HL7 PIVOT file

 +1        SET RGMSG=""

           SET MSGDATA=""

 +2        IF $DATA(^VAT(391.71,"C",DFN))

               Begin DoDot:1

 +3                SET MSG=0

                   SET MSG=$ORDER(^VAT(391.71,"C",DFN,MSG))

                   if 'MSG

                       QUIT 

                   Begin DoDot:2

 +4                    SET DIC="391.71"

                       SET DR=".01;.04;2.1"

                       SET DA=MSG

                       SET DIQ="RGMSG"

                       SET DIQ(0)="E"

 +5                    DO EN^DIQ1

                       KILL DIC,DR,DA,DIQ

 +6                    SET MSGDATA=RGMSG(391.71,MSG,.04,"E")_"^"_RGMSG(391.71,MSG,.01,"E")_"^"_MSG_"^"_RGMSG(391.71,MSG,2.1,"E")

 +7                    SET ARRAY(ICN,SITE,"PIVOT",MSG)=ICN_"^"_SITE_"^"_"PIVOT^"_MSGDATA

                   End DoDot:2

               End DoDot:1

EXC       ;Get exception information 

 +1        DO GETEX^RGEX03(.RETURN,DFN)

 +2        SET X=0

           FOR 

               SET X=$ORDER(RETURN(X))

               if 'X

                   QUIT 

               SET ARRAY(ICN,SITE,"EXC",X)=ICN_"^"_SITE_"^"_"EXC^"_RETURN(X)

QUIT      ;

 +1        KILL DFN,RGMSG,MSG,MSGDATA,RETURN,SITE,X

 +2        QUIT