Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: AUTNPOV

AUTNPOV.m

Go to the documentation of this file.
AUTNPOV ;IHS/LB - PROVIDER NARRATIVE TRUE INPUT TRANSFORM ;6/20/96
 ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
 ;;92.1;IHS STANDARD DICTIONARIES;;NOV 13, 1991
 ;
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