BGP6POS2.m

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

 ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170

 ;

 ;

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(^BGPPEIM(BGPX)) Q:BGPX'=+BGPX  S DA=BGPX,DIK="^BGPPEIM(" D ^DIK

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

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

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

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

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

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

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

 Q

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

 +1       ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170

 +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(^BGPPEIM(BGPX))

               IF BGPX'=+BGPX

                   QUIT 

               SET DA=BGPX

               SET DIK="^BGPPEIM("

               DO ^DIK

 +4        SET BGPX=0

           FOR 

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

               IF BGPX'=+BGPX

                   QUIT 

               SET DA=BGPX

               SET DIK="^BGPELIM("

               DO ^DIK

 +5        SET BGPX=0

           FOR 

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

               IF BGPX'=+BGPX

                   QUIT 

               SET DA=BGPX

               SET DIK="^BGPELIIM("

               DO ^DIK

 +6        SET BGPX=0

           FOR 

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

               IF BGPX'=+BGPX

                   QUIT 

               SET DA=BGPX

               SET DIK="^BGPNPLM("

               DO ^DIK

 +7        SET BGPX=0

           FOR 

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

               IF BGPX'=+BGPX

                   QUIT 

               SET DA=BGPX

               SET DIK="^BGPINDMC("

               DO ^DIK

 +8        SET BGPX=0

           FOR 

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

               IF BGPX'=+BGPX

                   QUIT 

               SET DA=BGPX

               SET DIK="^BGPINDM("

               DO ^DIK

 +9        SET BGPX=0

           FOR 

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

               IF BGPX'=+BGPX

                   QUIT 

               SET DA=BGPX

               SET DIK="^BGPTAXM("

               DO ^DIK

 +10       SET BGPX=0

           FOR 

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

               IF BGPX'=+BGPX

                   QUIT 

               SET DA=BGPX

               SET DIK="^BGPSNOMM("

               DO ^DIK

 +11       QUIT