BGP7POS2.m

BGP7POS2 ; IHS/CMI/LAB - NO DESCRIPTION PROVIDED 28 Jan 2005 1:34 PM ;

 ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29

 ;

 ;

PRE ;EP

 ;CHANGE PACKAGE FILE NAME

 S BGPX=0 F  S BGPX=$O(^BGPCTRL(BGPX)) Q:BGPX'=+BGPX  S DA=BGPX,DIK="^BGPCTRL(" D ^DIK

 S BGPX=0 F  S BGPX=$O(^BGPPEIG(BGPX)) Q:BGPX'=+BGPX  S DA=BGPX,DIK="^BGPPEIG(" D ^DIK

 S BGPX=0 F  S BGPX=$O(^BGPELIG(BGPX)) Q:BGPX'=+BGPX  S DA=BGPX,DIK="^BGPELIG(" D ^DIK

 S BGPX=0 F  S BGPX=$O(^BGPELIIG(BGPX)) Q:BGPX'=+BGPX  S DA=BGPX,DIK="^BGPELIIG(" D ^DIK

 S BGPX=0 F  S BGPX=$O(^BGPNPLG(BGPX)) Q:BGPX'=+BGPX  S DA=BGPX,DIK="^BGPNPLG(" D ^DIK

 S BGPX=0 F  S BGPX=$O(^BGPINDGC(BGPX)) Q:BGPX'=+BGPX  S DA=BGPX,DIK="^BGPINDGC(" D ^DIK

 S BGPX=0 F  S BGPX=$O(^BGPINDG(BGPX)) Q:BGPX'=+BGPX  S DA=BGPX,DIK="^BGPINDG(" D ^DIK

 S BGPX=0 F  S BGPX=$O(^BGPTAXG(BGPX)) Q:BGPX'=+BGPX  S DA=BGPX,DIK="^BGPTAXG(" D ^DIK

 S BGPX=0 F  S BGPX=$O(^BGPSNOMG(BGPX)) Q:BGPX'=+BGPX  S DA=BGPX,DIK="^BGPSNOMG(" D ^DIK

 Q

BGP7POS2  ; IHS/CMI/LAB - NO DESCRIPTION PROVIDED 28 Jan 2005 1:34 PM ;

 +1       ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29

 +2       ;

 +3       ;

PRE       ;EP

 +1       ;CHANGE PACKAGE FILE NAME

 +2        SET BGPX=0

           FOR 

               SET BGPX=$ORDER(^BGPCTRL(BGPX))

               IF BGPX'=+BGPX

                   QUIT 

               SET DA=BGPX

               SET DIK="^BGPCTRL("

               DO ^DIK

 +3        SET BGPX=0

           FOR 

               SET BGPX=$ORDER(^BGPPEIG(BGPX))

               IF BGPX'=+BGPX

                   QUIT 

               SET DA=BGPX

               SET DIK="^BGPPEIG("

               DO ^DIK

 +4        SET BGPX=0

           FOR 

               SET BGPX=$ORDER(^BGPELIG(BGPX))

               IF BGPX'=+BGPX

                   QUIT 

               SET DA=BGPX

               SET DIK="^BGPELIG("

               DO ^DIK

 +5        SET BGPX=0

           FOR 

               SET BGPX=$ORDER(^BGPELIIG(BGPX))

               IF BGPX'=+BGPX

                   QUIT 

               SET DA=BGPX

               SET DIK="^BGPELIIG("

               DO ^DIK

 +6        SET BGPX=0

           FOR 

               SET BGPX=$ORDER(^BGPNPLG(BGPX))

               IF BGPX'=+BGPX

                   QUIT 

               SET DA=BGPX

               SET DIK="^BGPNPLG("

               DO ^DIK

 +7        SET BGPX=0

           FOR 

               SET BGPX=$ORDER(^BGPINDGC(BGPX))

               IF BGPX'=+BGPX

                   QUIT 

               SET DA=BGPX

               SET DIK="^BGPINDGC("

               DO ^DIK

 +8        SET BGPX=0

           FOR 

               SET BGPX=$ORDER(^BGPINDG(BGPX))

               IF BGPX'=+BGPX

                   QUIT 

               SET DA=BGPX

               SET DIK="^BGPINDG("

               DO ^DIK

 +9        SET BGPX=0

           FOR 

               SET BGPX=$ORDER(^BGPTAXG(BGPX))

               IF BGPX'=+BGPX

                   QUIT 

               SET DA=BGPX

               SET DIK="^BGPTAXG("

               DO ^DIK

 +10       SET BGPX=0

           FOR 

               SET BGPX=$ORDER(^BGPSNOMG(BGPX))

               IF BGPX'=+BGPX

                   QUIT 

               SET DA=BGPX

               SET DIK="^BGPSNOMG("

               DO ^DIK

 +11       QUIT