AUT98P24.m

AUT98P24 ;IHS/OIT/FBD - AUT 98.1 PATCH 24 ; 06 Oct 2010  10:47 AM

 ;;98.1;IHS DICTIONARIES (POINTERS);**24**;NOV 25, 1997;Build 6

 ;

 ; IHS/OIT/FBD AUT*98.1*24 10/06/2010

 ;

 Q  ;DO NOT ALLOW TOP-LEVEL CALLS

 ;

POST ;AUT*98.1*24 POST-INIT

 ;

 ;FIRE TRIGGER XREF ON 'TYPE OF INSURER' FIELD (#.21)

 ;TO CROSS-POPULATE NEW 'INSURER TYPE' FIELD (#.211)

 S DIK="^AUTNINS("

 S DIK(1)=".21"

 D ENALL^DIK

 Q

AUT98P24  ;IHS/OIT/FBD - AUT 98.1 PATCH 24 ; 06 Oct 2010  10:47 AM

 +1       ;;98.1;IHS DICTIONARIES (POINTERS);**24**;NOV 25, 1997;Build 6

 +2       ;

 +3       ; IHS/OIT/FBD AUT*98.1*24 10/06/2010

 +4       ;

 +5       ;DO NOT ALLOW TOP-LEVEL CALLS

           QUIT 

 +6       ;

POST      ;AUT*98.1*24 POST-INIT

 +1       ;

 +2       ;FIRE TRIGGER XREF ON 'TYPE OF INSURER' FIELD (#.21)

 +3       ;TO CROSS-POPULATE NEW 'INSURER TYPE' FIELD (#.211)

 +4        SET DIK="^AUTNINS("

 +5        SET DIK(1)=".21"

 +6        DO ENALL^DIK

 +7        QUIT