AUTNPOV.m

AUTNPOV ;IHS/ASD&ST/DJM/DFM - PROVIDER NARRATIVE TRUE INPUT TRANSFORM; [ 03/04/98   8:10 AM ]

 ;;98.1;IHS DICTIONARIES (POINTERS);;MAR 04, 1998;Build 6

 ;BETA TEST CORRECTION - RESTORED FROM VERSION 92.1 INSTEAD OF 91.3

START ;

 Q:'$D(APCDOVRR)

 I X="=",$D(APCDTNQP) S X=APCDTNQP

 Q:X?.E1C.E

 I $L(X)>30,$D(^AUTNPOV("B",X)) S X="`"_$O(^(X,0)) Q

 S AUTNPOVX=$E(X,1,30)

 F AUTNPOVY=0:0 S AUTNPOVY=$O(^AUTNPOV("B",AUTNPOVX,AUTNPOVY)) Q:'AUTNPOVY  Q:$P(^AUTNPOV(AUTNPOVY,0),U,1)=X

 S X=$S(AUTNPOVY:"`"_AUTNPOVY,$E(X)="`":X,$E(X)="""":X,1:""""_X_"""")

 K AUTNPOVX,AUTNPOVY

 Q

AUTNPOV   ;IHS/ASD&ST/DJM/DFM - PROVIDER NARRATIVE TRUE INPUT TRANSFORM; [ 03/04/98   8:10 AM ]

 +1       ;;98.1;IHS DICTIONARIES (POINTERS);;MAR 04, 1998;Build 6

 +2       ;BETA TEST CORRECTION - RESTORED FROM VERSION 92.1 INSTEAD OF 91.3

START     ;

 +1        IF '$DATA(APCDOVRR)

               QUIT 

 +2        IF X="="

               IF $DATA(APCDTNQP)

                   SET X=APCDTNQP

 +3        IF X?.E1C.E

               QUIT 

 +4        IF $LENGTH(X)>30

               IF $DATA(^AUTNPOV("B",X))

                   SET X="`"_$ORDER(^(X,0))

                   QUIT 

 +5        SET AUTNPOVX=$EXTRACT(X,1,30)

 +6        FOR AUTNPOVY=0:0

               SET AUTNPOVY=$ORDER(^AUTNPOV("B",AUTNPOVX,AUTNPOVY))

               IF 'AUTNPOVY

                   QUIT 

               IF $PIECE(^AUTNPOV(AUTNPOVY,0),U,1)=X

                   QUIT 

 +7        SET X=$SELECT(AUTNPOVY:"`"_AUTNPOVY,$EXTRACT(X)="`":X,$EXTRACT(X)="""":X,1:""""_X_"""")

 +8        KILL AUTNPOVX,AUTNPOVY

 +9        QUIT