BGP5POS2.m

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

 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143

 ;

 ;

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

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

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

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

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

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

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

 Q

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

 +1       ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143

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

               IF BGPX'=+BGPX

                   QUIT 

               SET DA=BGPX

               SET DIK="^BGPPEIK("

               DO ^DIK

 +4        SET BGPX=0

           FOR 

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

               IF BGPX'=+BGPX

                   QUIT 

               SET DA=BGPX

               SET DIK="^BGPELIK("

               DO ^DIK

 +5        SET BGPX=0

           FOR 

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

               IF BGPX'=+BGPX

                   QUIT 

               SET DA=BGPX

               SET DIK="^BGPELIIK("

               DO ^DIK

 +6        SET BGPX=0

           FOR 

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

               IF BGPX'=+BGPX

                   QUIT 

               SET DA=BGPX

               SET DIK="^BGPNPLK("

               DO ^DIK

 +7        SET BGPX=0

           FOR 

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

               IF BGPX'=+BGPX

                   QUIT 

               SET DA=BGPX

               SET DIK="^BGPINDKC("

               DO ^DIK

 +8        SET BGPX=0

           FOR 

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

               IF BGPX'=+BGPX

                   QUIT 

               SET DA=BGPX

               SET DIK="^BGPINDK("

               DO ^DIK

 +9        SET BGPX=0

           FOR 

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

               IF BGPX'=+BGPX

                   QUIT 

               SET DA=BGPX

               SET DIK="^BGPTAXK("

               DO ^DIK

 +10       QUIT