AUPNVPLC ; cmi/anch/maw - LIST MANAGER API'S FOR FAMILY HISTORY AND API FOR REP FACTORS
;;2.0;IHS PCC SUITE;**,11**;MAY 14, 2009;Build 58
;
INPUT ;EP - called from input transform on Stage field
NEW A,T,C,H,L
S C=$P($G(^AUPNPROB(DA,0)),U)
S A=0 F S A=$O(^APCDPLCL(A)) Q:A'=+A!('$D(X)) D
.S T=$P(^APCDPLCL(A,0),U,2)
.Q:T=""
.Q:'$D(^ATXAX(T))
.Q:'$$ICD^ATXAPI(C,T,9) ;not in this taxonomy
.S L=$P(^APCDPLCL(A,0),U,3)
.S H=$P(^APCDPLCL(A,0),U,4)
.I X<L!(X>H) K X
.Q
Q
;
HELP ;EP - Executable help from stage field of V POV
NEW A,T,C,H,L,G
S G=0
S C=$P($G(^AUPNPROB(DA,0)),U)
S A=0 F S A=$O(^APCDPLCL(A)) Q:A'=+A!(G) D
.S T=$P(^APCDPLCL(A,0),U,2)
.Q:'$D(^ATXAX(T))
.Q:'$$ICD^ATXAPI(C,T,9) ;not in this taxonomy
.S G=1
.S H=0 F S H=$O(^APCDPLCL(A,12,H)) Q:H'=+H D
..D EN^DDIOL($G(^APCDPLCL(A,12,H,0)))
.Q
Q
;
;
;
ASKCL(C) ;EP - called from data entry input templates to determine whether CLASSIFICATION should be prompted for this icd diagnosis
;C is ien of the icd9 entry
I $G(C)="" Q 0
NEW A,T,H
S A=0,H=0 F S A=$O(^APCDPLCL(A)) Q:A'=+A!(H) D
.S T=$P(^APCDPLCL(A,0),U,2)
.Q:T=""
.Q:'$D(^ATXAX(T))
.Q:'$$ICD^ATXAPI(C,T,9) ;not in this taxonomy
.S H=1
.Q
Q H
;
OUT(IEN,VAL) ;EP called from output transform
I 'IEN Q VAL
I $G(VAL)="" Q ""
I '$D(^AUPNPROB(IEN,0)) Q VAL
NEW C,A,T,H,G,J
S C=$P(^AUPNPROB(IEN,0),U)
S A=0,H=0,G="" F S A=$O(^APCDPLCL(A)) Q:A'=+A!(G) D
.S T=$P(^APCDPLCL(A,0),U,2)
.Q:T=""
.Q:'$D(^ATXAX(T))
.Q:'$$ICD^ATXAPI(C,T,9) ;not in this taxonomy
.I $D(^APCDPLCL(A,11,"B",VAL)) D
..S J=$O(^APCDPLCL(A,11,"B",VAL,0))
..Q:'J
..Q:'$D(^APCDPLCL(A,11,J,0))
..S VAL=VAL_"-"_$P(^APCDPLCL(A,11,J,0),U,2),G=1
Q VAL
;
CAT(C) ;EP - called from health summary to get category for this icd code
;C is ien of the icd9 entry
I $G(C)="" Q 0
NEW A,T,H
S A=0,H="" F S A=$O(^APCDPLCL(A)) Q:A'=+A!(H]"") D
.S T=$P(^APCDPLCL(A,0),U,2)
.Q:T=""
.Q:'$D(^ATXAX(T))
.Q:'$$ICD^ATXAPI(C,T,9) ;not in this taxonomy
.S H=$P(^APCDPLCL(A,0),U,1)
.Q
Q H
;
AUPNVPLC ; cmi/anch/maw - LIST MANAGER API'S FOR FAMILY HISTORY AND API FOR REP FACTORS
+1 ;;2.0;IHS PCC SUITE;**,11**;MAY 14, 2009;Build 58
+2 ;
INPUT ;EP - called from input transform on Stage field
+1 NEW A,T,C,H,L
+2 SET C=$PIECE($GET(^AUPNPROB(DA,0)),U)
+3 SET A=0
FOR
SET A=$ORDER(^APCDPLCL(A))
IF A'=+A!('$DATA(X))
QUIT
Begin DoDot:1
+4 SET T=$PIECE(^APCDPLCL(A,0),U,2)
+5 IF T=""
QUIT
+6 IF '$DATA(^ATXAX(T))
QUIT
+7 ;not in this taxonomy
IF '$$ICD^ATXAPI(C,T,9)
QUIT
+8 SET L=$PIECE(^APCDPLCL(A,0),U,3)
+9 SET H=$PIECE(^APCDPLCL(A,0),U,4)
+10 IF X<L!(X>H)
KILL X
+11 QUIT
End DoDot:1
+12 QUIT
+13 ;
HELP ;EP - Executable help from stage field of V POV
+1 NEW A,T,C,H,L,G
+2 SET G=0
+3 SET C=$PIECE($GET(^AUPNPROB(DA,0)),U)
+4 SET A=0
FOR
SET A=$ORDER(^APCDPLCL(A))
IF A'=+A!(G)
QUIT
Begin DoDot:1
+5 SET T=$PIECE(^APCDPLCL(A,0),U,2)
+6 IF '$DATA(^ATXAX(T))
QUIT
+7 ;not in this taxonomy
IF '$$ICD^ATXAPI(C,T,9)
QUIT
+8 SET G=1
+9 SET H=0
FOR
SET H=$ORDER(^APCDPLCL(A,12,H))
IF H'=+H
QUIT
Begin DoDot:2
+10 DO EN^DDIOL($GET(^APCDPLCL(A,12,H,0)))
End DoDot:2
+11 QUIT
End DoDot:1
+12 QUIT
+13 ;
+14 ;
+15 ;
ASKCL(C) ;EP - called from data entry input templates to determine whether CLASSIFICATION should be prompted for this icd diagnosis
+1 ;C is ien of the icd9 entry
+2 IF $GET(C)=""
QUIT 0
+3 NEW A,T,H
+4 SET A=0
SET H=0
FOR
SET A=$ORDER(^APCDPLCL(A))
IF A'=+A!(H)
QUIT
Begin DoDot:1
+5 SET T=$PIECE(^APCDPLCL(A,0),U,2)
+6 IF T=""
QUIT
+7 IF '$DATA(^ATXAX(T))
QUIT
+8 ;not in this taxonomy
IF '$$ICD^ATXAPI(C,T,9)
QUIT
+9 SET H=1
+10 QUIT
End DoDot:1
+11 QUIT H
+12 ;
OUT(IEN,VAL) ;EP called from output transform
+1 IF 'IEN
QUIT VAL
+2 IF $GET(VAL)=""
QUIT ""
+3 IF '$DATA(^AUPNPROB(IEN,0))
QUIT VAL
+4 NEW C,A,T,H,G,J
+5 SET C=$PIECE(^AUPNPROB(IEN,0),U)
+6 SET A=0
SET H=0
SET G=""
FOR
SET A=$ORDER(^APCDPLCL(A))
IF A'=+A!(G)
QUIT
Begin DoDot:1
+7 SET T=$PIECE(^APCDPLCL(A,0),U,2)
+8 IF T=""
QUIT
+9 IF '$DATA(^ATXAX(T))
QUIT
+10 ;not in this taxonomy
IF '$$ICD^ATXAPI(C,T,9)
QUIT
+11 IF $DATA(^APCDPLCL(A,11,"B",VAL))
Begin DoDot:2
+12 SET J=$ORDER(^APCDPLCL(A,11,"B",VAL,0))
+13 IF 'J
QUIT
+14 IF '$DATA(^APCDPLCL(A,11,J,0))
QUIT
+15 SET VAL=VAL_"-"_$PIECE(^APCDPLCL(A,11,J,0),U,2)
SET G=1
End DoDot:2
End DoDot:1
+16 QUIT VAL
+17 ;
CAT(C) ;EP - called from health summary to get category for this icd code
+1 ;C is ien of the icd9 entry
+2 IF $GET(C)=""
QUIT 0
+3 NEW A,T,H
+4 SET A=0
SET H=""
FOR
SET A=$ORDER(^APCDPLCL(A))
IF A'=+A!(H]"")
QUIT
Begin DoDot:1
+5 SET T=$PIECE(^APCDPLCL(A,0),U,2)
+6 IF T=""
QUIT
+7 IF '$DATA(^ATXAX(T))
QUIT
+8 ;not in this taxonomy
IF '$$ICD^ATXAPI(C,T,9)
QUIT
+9 SET H=$PIECE(^APCDPLCL(A,0),U,1)
+10 QUIT
End DoDot:1
+11 QUIT H
+12 ;
