AUPNPOUT.m

AUPNPOUT ; IHS/CMI/LAB - OUTPUT TRANSFORMS FOR PATIENT FILES ;

 ;;99.1;IHS DICTIONARIES (PATIENT);;MAR 09, 1999

 ;

PAT11099 ;EP - 9000001,1109.9 (PATIENT,TRIBE QUANTUM DECIMAL)

 S X="" I $D(^AUPNPAT(D0,11)) S X=$P(^(11),U,9) D PAT11CNV

 Q

PAT11109 ;EP - 9000001,1110.9 (PATIENT,INDIAN QUANTUM DECIMAL)

 S X="" I $D(^AUPNPAT(D0,11)) S X=$P(^(11),U,10) D PAT11CNV

 Q

PAT11CNV ; CONVERT QUANTUM FRACTION TO DECIMAL

 S X=$S(X["/":$P(X,"/",1)/$P(X,"/",2),$E(X)="F":1,$E(X)="N":0,$E(X,1,3)="UNK":1.1,$E(X,1,3)="UNS":1.2,1:X)

 Q

MARKER ; FOR INSERTION REFERENCE

AUPNPOUT  ; IHS/CMI/LAB - OUTPUT TRANSFORMS FOR PATIENT FILES ;

 +1       ;;99.1;IHS DICTIONARIES (PATIENT);;MAR 09, 1999

 +2       ;

PAT11099  ;EP - 9000001,1109.9 (PATIENT,TRIBE QUANTUM DECIMAL)

 +1        SET X=""

           IF $DATA(^AUPNPAT(D0,11))

               SET X=$PIECE(^(11),U,9)

               DO PAT11CNV

 +2        QUIT 

PAT11109  ;EP - 9000001,1110.9 (PATIENT,INDIAN QUANTUM DECIMAL)

 +1        SET X=""

           IF $DATA(^AUPNPAT(D0,11))

               SET X=$PIECE(^(11),U,10)

               DO PAT11CNV

 +2        QUIT 

PAT11CNV  ; CONVERT QUANTUM FRACTION TO DECIMAL

 +1        SET X=$SELECT(X["/":$PIECE(X,"/",1)/$PIECE(X,"/",2),$EXTRACT(X)="F":1,$EXTRACT(X)="N":0,$EXTRACT(X,1,3)="UNK":1.1,$EXTRACT(X,1,3)="UNS":1.2,1:X)

 +2        QUIT 

MARKER    ; FOR INSERTION REFERENCE