AUPN99P6.m

AUPN99P6 ; IHS/CMI/LAB - AUPN 99.1 PATCH 6 [ 05/09/2003  7:58 AM ]

 ;;99.1;IHS DICTIONARIES (PATIENT);**6,9,10**;JUN 13, 2003;Build 9

 ;

 ; The following line prevents the "Disable Options..." and "Move

 ; Routines..." questions from being asked during the install.

 I $G(XPDENV)=1 S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0

 Q

 ;

PRE ;EP

 NEW DIK

 S DIK="^DD(9000010.24,",DA=.01,DA(1)=9000010.24 D ^DIK

 S DIK="^DD(9000010.24,",DA=.04,DA(1)=9000010.24 D ^DIK

 S DIK="^DD(9000010.34,",DA=.01,DA(1)=9000010.34 D ^DIK

 Q

AUPN99P6  ; IHS/CMI/LAB - AUPN 99.1 PATCH 6 [ 05/09/2003  7:58 AM ]

 +1       ;;99.1;IHS DICTIONARIES (PATIENT);**6,9,10**;JUN 13, 2003;Build 9

 +2       ;

 +3       ; The following line prevents the "Disable Options..." and "Move

 +4       ; Routines..." questions from being asked during the install.

 +5        IF $GET(XPDENV)=1

               SET (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0

 +6        QUIT 

 +7       ;

PRE       ;EP

 +1        NEW DIK

 +2        SET DIK="^DD(9000010.24,"

           SET DA=.01

           SET DA(1)=9000010.24

           DO ^DIK

 +3        SET DIK="^DD(9000010.24,"

           SET DA=.04

           SET DA(1)=9000010.24

           DO ^DIK

 +4        SET DIK="^DD(9000010.34,"

           SET DA=.01

           SET DA(1)=9000010.34

           DO ^DIK

 +5        QUIT