BGP8POS2.m

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

 ;;18.1;IHS CLINICAL REPORTING;;MAY 25, 2018;Build 66

 ;

 ;

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

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

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

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

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

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

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

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

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

 Q

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

 +1       ;;18.1;IHS CLINICAL REPORTING;;MAY 25, 2018;Build 66

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

               IF BGPX'=+BGPX

                   QUIT 

               SET DA=BGPX

               SET DIK="^BGPPEIR("

               DO ^DIK

 +4        SET BGPX=0

           FOR 

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

               IF BGPX'=+BGPX

                   QUIT 

               SET DA=BGPX

               SET DIK="^BGPELIR("

               DO ^DIK

 +5        SET BGPX=0

           FOR 

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

               IF BGPX'=+BGPX

                   QUIT 

               SET DA=BGPX

               SET DIK="^BGPELIIR("

               DO ^DIK

 +6        SET BGPX=0

           FOR 

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

               IF BGPX'=+BGPX

                   QUIT 

               SET DA=BGPX

               SET DIK="^BGPNPLR("

               DO ^DIK

 +7        SET BGPX=0

           FOR 

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

               IF BGPX'=+BGPX

                   QUIT 

               SET DA=BGPX

               SET DIK="^BGPINDRC("

               DO ^DIK

 +8        SET BGPX=0

           FOR 

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

               IF BGPX'=+BGPX

                   QUIT 

               SET DA=BGPX

               SET DIK="^BGPINDR("

               DO ^DIK

 +9        SET BGPX=0

           FOR 

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

               IF BGPX'=+BGPX

                   QUIT 

               SET DA=BGPX

               SET DIK="^BGPTAXR("

               DO ^DIK

 +10       SET BGPX=0

           FOR 

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

               IF BGPX'=+BGPX

                   QUIT 

               SET DA=BGPX

               SET DIK="^BGPSNOMR("

               DO ^DIK

 +11       SET BGPX=0

           FOR 

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

               IF BGPX'=+BGPX

                   QUIT 

               SET DA=BGPX

               SET DIK="^BGPSNOSR("

               DO ^DIK

 +12       QUIT