BUSABQI.m

BUSABQI ;GDIT/HS/BEE-IHS USER SECURITY AUDIT - iCare calls ; 31 Jan 2013  9:53 AM

 ;;1.0;IHS USER SECURITY AUDIT;;Nov 05, 2013;Build 65

 ;

 Q

 ;

MPAN(BUSAVAR,ACT) ;EP - Add/Remove Patient from panel

 ;

 NEW RES,AR,PIEN

 ;

 S RES="iCare: add/remove a patient from a panel",ACT="E"

 ;

 ;Determine whether an add or a remove

 S AR=$G(@BUSAVAR@(3,"P",2)) D  I AR="" Q RES

 . I AR="A" S RES="iCare: added patient to a panel",ACT="A" Q

 . I AR="R" S RES="iCare: removed patient from panel",ACT="D" Q

 . S AR=""

 ;

 ;Pull panel IEN

 I ACT="D" S PIEN=$G(@BUSAVAR@(3,"P",1)) S:PIEN]"" RES=RES_" ("_PIEN_")"

 ;

 Q RES

BUSABQI   ;GDIT/HS/BEE-IHS USER SECURITY AUDIT - iCare calls ; 31 Jan 2013  9:53 AM

 +1       ;;1.0;IHS USER SECURITY AUDIT;;Nov 05, 2013;Build 65

 +2       ;

 +3        QUIT 

 +4       ;

MPAN(BUSAVAR,ACT) ;EP - Add/Remove Patient from panel

 +1       ;

 +2        NEW RES,AR,PIEN

 +3       ;

 +4        SET RES="iCare: add/remove a patient from a panel"

           SET ACT="E"

 +5       ;

 +6       ;Determine whether an add or a remove

 +7        SET AR=$GET(@BUSAVAR@(3,"P",2))

           Begin DoDot:1

 +8            IF AR="A"

                   SET RES="iCare: added patient to a panel"

                   SET ACT="A"

                   QUIT 

 +9            IF AR="R"

                   SET RES="iCare: removed patient from panel"

                   SET ACT="D"

                   QUIT 

 +10           SET AR=""

           End DoDot:1

           IF AR=""

               QUIT RES

 +11      ;

 +12      ;Pull panel IEN

 +13       IF ACT="D"

               SET PIEN=$GET(@BUSAVAR@(3,"P",1))

               IF PIEN]""

                   SET RES=RES_" ("_PIEN_")"

 +14      ;

 +15       QUIT RES