| [613] | 1 | LEXLGM3 ; ISL Lexicon Survey (Terms in PL) ; 09-23-96
|
|---|
| 2 | ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
|
|---|
| 3 | ;
|
|---|
| 4 | Q
|
|---|
| 5 | PLPL ; Problems in Problem List
|
|---|
| 6 | N LEXPLS S LEXPLS=$G(^AUPNPROB(0)),LEXPLS=+($P(LEXPLS,"^",4))
|
|---|
| 7 | S LEXS=LEXPLS_" "_$S(LEXPLS=1:"Problem",1:"Problems")_" Found"
|
|---|
| 8 | D SET2^LEXLGM(LEXS)
|
|---|
| 9 | Q
|
|---|
| 10 | PLT ; Problem List Title
|
|---|
| 11 | N LEXV S LEXV=$G(LEXVERS)
|
|---|
| 12 | I +LEXV=0 S LEXS="Lexicon Terms in Problem List " D SET^LEXLGM(LEXS),BL^LEXLGM Q
|
|---|
| 13 | I +LEXV>0 S LEXS="Lexicon v"_LEXV_" Terms in Problem List " D SET^LEXLGM(LEXS),BL^LEXLGM Q
|
|---|
| 14 | Q
|
|---|
| 15 | ASOF ; As of date
|
|---|
| 16 | I LEXDT'="" D Q
|
|---|
| 17 | . S LEXS=" As of:" D SET^LEXLGM(LEXS)
|
|---|
| 18 | . S LEXS=" "_LEXDT D SET2^LEXLGM(LEXS)
|
|---|
| 19 | . D BL^LEXLGM
|
|---|
| 20 | Q
|
|---|
| 21 | PLUR ; Problem List Survey of Lexicon Terms
|
|---|
| 22 | N LEXN0,LEXN1,LEXDA,LEXPL,LEXUN,LEXUC,LEXCO,LEXPT
|
|---|
| 23 | S (LEXDA,LEXPL,LEXUN,LEXUC,LEXCO,LEXPT)=0
|
|---|
| 24 | S LEXPT=$O(^ICD9("AB","799.9 ",LEXPT)) Q:LEXPT=0
|
|---|
| 25 | F S LEXDA=$O(^AUPNPROB(LEXDA)) Q:+LEXDA=0 D
|
|---|
| 26 | . S LEXN0=$G(^AUPNPROB(LEXDA,0))
|
|---|
| 27 | . S LEXN1=$G(^AUPNPROB(LEXDA,1))
|
|---|
| 28 | . I +LEXN1>1,+LEXN0=LEXPT S LEXUC=LEXUC+1
|
|---|
| 29 | . I +LEXN1=1,+LEXN0=LEXPT S LEXUN=LEXUN+1
|
|---|
| 30 | . I +LEXN1>1,+LEXN0'=LEXPT S LEXCO=LEXCO+1
|
|---|
| 31 | . S LEXPL=LEXPL+1
|
|---|
| 32 | I $G(LEXTYPE)'="O" D Q
|
|---|
| 33 | . S LEXS=" "_LEXPL_" "_$S(LEXPL=1:"Problem",1:"Problems")_" Found" D SET^LEXLGM(LEXS)
|
|---|
| 34 | . S LEXS=" "_LEXUN_" Unresolved "_$S(LEXUN=1:"Problem",1:"Problems") D SET2^LEXLGM(LEXS)
|
|---|
| 35 | . S LEXS=" "_LEXUC_" Uncoded "_$S(LEXUC=1:"Problem",1:"Problems") D SET^LEXLGM(LEXS)
|
|---|
| 36 | . S LEXS=" "_LEXCO_" Coded "_$S(LEXCO=1:"Problem",1:"Problems") D SET2^LEXLGM(LEXS)
|
|---|
| 37 | I $G(LEXTYPE)="O" D Q
|
|---|
| 38 | . ; Problems found
|
|---|
| 39 | . S LEXS=" "_$S(LEXPL=1:"Problem",1:"Problems")_" Found" D SET^LEXLGM(LEXS)
|
|---|
| 40 | . S LEXS=$J(LEXPL,8) D SET2^LEXLGM(LEXS)
|
|---|
| 41 | . ; Unresolved
|
|---|
| 42 | . S LEXS=" Unresolved "_$S(LEXUN=1:"Problem",1:"Problems") D SET^LEXLGM(LEXS)
|
|---|
| 43 | . S LEXS=$J(LEXUN,8) D SET2^LEXLGM(LEXS)
|
|---|
| 44 | . ; Uncoded
|
|---|
| 45 | . S LEXS=" Uncoded "_$S(LEXUC=1:"Problem",1:"Problems") D SET^LEXLGM(LEXS)
|
|---|
| 46 | . S LEXS=$J(LEXUC,8) D SET2^LEXLGM(LEXS)
|
|---|
| 47 | . ; Coded
|
|---|
| 48 | . S LEXS=" Coded "_$S(LEXCO=1:"Problem",1:"Problems") D SET^LEXLGM(LEXS)
|
|---|
| 49 | . S LEXS=$J(LEXCO,8) D SET2^LEXLGM(LEXS)
|
|---|
| 50 | Q
|
|---|
