- PXMEASCF ;SLC/PKR Utilities for checking and fixing measurements. ;06/08/2022
- ;;1.0;PCE PATIENT CARE ENCOUNTER;**217**;Aug 12, 1996;Build 134
- ;Check the definition files for measurements that are not completely defined.
- ;For measurements that are completely defined, check the corresponding V-file
- ;for entries that have a MAGNITUDE, but are missing the UCUM CODE. When any of
- ;these are found, set the UCUM CODE to that found in the definition.
- ;
- ;===============================
- ASKYN(DEFAULT,TEXT) ;Ask a YES/NO question.
- N DIR,X,Y
- K DIROUT,DIRUT,DTOUT,DUOUT
- S DIR(0)="YA"
- S DIR("A")=TEXT
- S DIR("B")=DEFAULT
- S DIR("?")="Enter Y or N."
- W !
- D ^DIR
- I $D(DTOUT)!$D(DUOUT) S Y=0
- Q Y
- ;
- ;===============================
- CFEDU ;Check/fix Education Topics factors that have measurements defined.
- N ALLDEF,ANS,IEN,IND,MAX,MAXDEC,MEASLIST,MIN,NAME,NL,PCAPTION,TEXT,TMP220,UCUMCODE,UCUMDISPLAY
- W !,"Checking Education Topics for complete measurement setup."
- S NAME=""
- F S NAME=$O(^AUTTEDT("B",NAME)) Q:NAME="" D
- . S IEN=$O(^AUTTEDT("B",NAME,""))
- . S TMP220=$G(^AUTTEDT(IEN,220))
- . I TMP220="" Q
- . S MIN=$P(TMP220,U,1),MAX=$P(TMP220,U,2)
- . S MAXDEC=$P(TMP220,U,3),UCUMCODE=$P(TMP220,U,4)
- . S PCAPTION=$P(TMP220,U,5),UCUMDISPLAY=$P(TMP220,U,6)
- . I (MIN=""),(MAX=""),(MAXDEC=""),(UCUMCODE=""),(PCAPTION=""),(UCUMDISPLAY="") Q
- .;If any of the measurement fields are defined, they all
- .;must be.
- . K TEXT
- . S ALLDEF=1
- . S TEXT(1)=""
- . S TEXT(2)="Education Topic: "_NAME
- . S NL=2
- . I MIN="" S ALLDEF=0,NL=NL+1,TEXT(NL)="MINIMUM VALUE is not defined."
- . I MAX="" S ALLDEF=0,NL=NL+1,TEXT(NL)="MAXIMUM VALUE is not defined."
- . I MAXDEC="" S ALLDEF=0,NL=NL+1,TEXT(NL)="MAXIMUM DECIMALS is not defined."
- . I UCUMCODE="" S ALLDEF=0,NL=NL+1,TEXT(NL)="UCUM CODE is not defined."
- . I PCAPTION="" S ALLDEF=0,NL=NL+1,TEXT(NL)="PROMPT CAPTION is not defined."
- . I UCUMDISPLAY="" S ALLDEF=0,NL=NL+1,TEXT(NL)="UCUM DISPLAY is not defined."
- . I ALLDEF=1 S MEASLIST(NAME)=IEN_U_UCUMCODE Q
- . F IND=1:1:NL W !,TEXT(IND)
- I $D(MEASLIST) D
- . S ANS=$$ASKYN("Y","Search for and repair V PATIENT ED entries missing the UCUM CODE? ")
- . I ANS=1 D CFVPATED(.MEASLIST)
- Q
- ;
- ;===============================
- CFEXAM ;Check/fix Exams that have measurements defined.
- N ALLDEF,ANS,IEN,IND,MAX,MAXDEC,MEASLIST,MIN,NAME,NL,PCAPTION,TEXT,TMP220,UCUMCODE,UCUMDISPLAY
- W !,"Checking Exams for complete measurement setup."
- S NAME=""
- F S NAME=$O(^AUTTEXAM("B",NAME)) Q:NAME="" D
- . S IEN=$O(^AUTTEXAM("B",NAME,""))
- . S TMP220=$G(^AUTTEXAM(IEN,220))
- . I TMP220="" Q
- . S MIN=$P(TMP220,U,1),MAX=$P(TMP220,U,2)
- . S MAXDEC=$P(TMP220,U,3),UCUMCODE=$P(TMP220,U,4)
- . S PCAPTION=$P(TMP220,U,5),UCUMDISPLAY=$P(TMP220,U,6)
- . I (MIN=""),(MAX=""),(MAXDEC=""),(UCUMCODE=""),(PCAPTION=""),(UCUMDISPLAY="") Q
- .;If any of the measurement fields are defined, they all
- .;must be.
- . K TEXT
- . S ALLDEF=1
- . S TEXT(1)=""
- . S TEXT(2)="Exam: "_NAME
- . S NL=2
- . I MIN="" S ALLDEF=0,NL=NL+1,TEXT(NL)="MINIMUM VALUE is not defined."
- . I MAX="" S ALLDEF=0,NL=NL+1,TEXT(NL)="MAXIMUM VALUE is not defined."
- . I MAXDEC="" S ALLDEF=0,NL=NL+1,TEXT(NL)="MAXIMUM DECIMALS is not defined."
- . I UCUMCODE="" S ALLDEF=0,NL=NL+1,TEXT(NL)="UCUM CODE is not defined."
- . I PCAPTION="" S ALLDEF=0,NL=NL+1,TEXT(NL)="PROMPT CAPTION is not defined."
- . I UCUMDISPLAY="" S ALLDEF=0,NL=NL+1,TEXT(NL)="UCUM DISPLAY is not defined."
- . I ALLDEF=1 S MEASLIST(NAME)=IEN_U_UCUMCODE Q
- . F IND=1:1:NL W !,TEXT(IND)
- I $D(MEASLIST) D
- . S ANS=$$ASKYN("Y","Search for and repair V EXAM entries missing the UCUM CODE? ")
- . I ANS=1 D CFVEXAM(.MEASLIST)
- Q
- ;
- ;===============================
- CFHF ;Check/fix health factors that have measurements defined.
- N ALLDEF,ANS,IEN,IND,MAX,MAXDEC,MEASLIST,MIN,NAME,NL,PCAPTION,TEXT,TMP220,UCUMCODE,UCUMDISPLAY
- W !,"Checking Health Factors for complete measurement setup."
- S NAME=""
- F S NAME=$O(^AUTTHF("B",NAME)) Q:NAME="" D
- . S IEN=$O(^AUTTHF("B",NAME,""))
- . S TMP220=$G(^AUTTHF(IEN,220))
- . I TMP220="" Q
- . S MIN=$P(TMP220,U,1),MAX=$P(TMP220,U,2)
- . S MAXDEC=$P(TMP220,U,3),UCUMCODE=$P(TMP220,U,4)
- . S PCAPTION=$P(TMP220,U,5),UCUMDISPLAY=$P(TMP220,U,6)
- . I (MIN=""),(MAX=""),(MAXDEC=""),(UCUMCODE=""),(PCAPTION=""),(UCUMDISPLAY="") Q
- .;If any of the measurement fields are defined, they all
- .;must be.
- . K TEXT
- . S ALLDEF=1
- . S TEXT(1)=""
- . S TEXT(2)="Health Factor: "_NAME
- . S NL=2
- . I MIN="" S ALLDEF=0,NL=NL+1,TEXT(NL)="MINIMUM VALUE is not defined."
- . I MAX="" S ALLDEF=0,NL=NL+1,TEXT(NL)="MAXIMUM VALUE is not defined."
- . I MAXDEC="" S ALLDEF=0,NL=NL+1,TEXT(NL)="MAXIMUM DECIMALS is not defined."
- . I UCUMCODE="" S ALLDEF=0,NL=NL+1,TEXT(NL)="UCUM CODE is not defined."
- . I PCAPTION="" S ALLDEF=0,NL=NL+1,TEXT(NL)="PROMPT CAPTION is not defined."
- . I UCUMDISPLAY="" S ALLDEF=0,NL=NL+1,TEXT(NL)="UCUM DISPLAY is not defined."
- . I ALLDEF=1 S MEASLIST(NAME)=IEN_U_UCUMCODE Q
- . F IND=1:1:NL W !,TEXT(IND)
- I $D(MEASLIST) D
- . S ANS=$$ASKYN("Y","Search for and repair V HEALTH FACTORS entries missing the UCUM CODE? ")
- . I ANS=1 D CFVHF(.MEASLIST)
- Q
- ;
- ;===============================
- CFVEXAM(MEASLIST) ; Check V Exam.
- N EXAMIEN,IND,MAGNITUDE,NAME,NSET,TEMP220,TEXT,UCUMCODE,UCUMIEN,VEXAMIEN
- S TEXT(1)="Checking V Exam for missing UCUM CODES."
- S NAME="",NL=1
- F S NAME=$O(MEASLIST(NAME)) Q:NAME="" D
- . S NSET=0
- . S EXAMIEN=$P(MEASLIST(NAME),U,1)
- . S UCUMCODE=$P(MEASLIST(NAME),U,2)
- . S VEXAMIEN=""
- . F S VEXAMIEN=$O(^AUPNVXAM("B",EXAMIEN,VEXAMIEN)) Q:VEXAMIEN="" D
- .. S TEMP220=$G(^AUPNVXAM(VEXAMIEN,220))
- .. S MAGNITUDE=$P(TEMP220,U,1)
- .. I MAGNITUDE="" Q
- .. S UCUMIEN=$P(TEMP220,U,2)
- .. I UCUMIEN="" S NSET=NSET+1,$P(^AUPNVXAM(VEXAMIEN,220),U,2)=UCUMCODE
- . I NSET>0 D
- .. S NL=NL+1,TEXT(NL)=""
- .. S NL=NL+1,TEXT(NL)="For the Exam: "_NAME
- .. S NL=NL+1,TEXT(NL)="The UCUM CODE was set for "_NSET_" V Exam entries."
- I NL=1 S NL=NL+1,TEXT(NL)="No missing UCUM CODEs were found."
- F IND=1:1:NL W !,TEXT(IND)
- Q
- ;
- ;===============================
- CFVHF(MEASLIST) ; Check V Health Factors.
- N HFIEN,IND,MAGNITUDE,NAME,NSET,TEMP220,TEXT,UCUMCODE,UCUMIEN,VHFIEN
- S TEXT(1)="Checking V Health Factors for missing UCUM CODES."
- S NAME="",NL=1
- F S NAME=$O(MEASLIST(NAME)) Q:NAME="" D
- . S NSET=0
- . S HFIEN=$P(MEASLIST(NAME),U,1)
- . S UCUMCODE=$P(MEASLIST(NAME),U,2)
- . S VHFIEN=""
- . F S VHFIEN=$O(^AUPNVHF("B",HFIEN,VHFIEN)) Q:VHFIEN="" D
- .. S TEMP220=$G(^AUPNVHF(VHFIEN,220))
- .. S MAGNITUDE=$P(TEMP220,U,1)
- .. I MAGNITUDE="" Q
- .. S UCUMIEN=$P(TEMP220,U,2)
- .. I UCUMIEN="" S NSET=NSET+1,$P(^AUPNVHF(VHFIEN,220),U,2)=UCUMCODE
- . I NSET>0 D
- .. S NL=NL+1,TEXT(NL)=""
- .. S NL=NL+1,TEXT(NL)="For the Health Factor: "_NAME
- .. S NL=NL+1,TEXT(NL)="The UCUM CODE was set for "_NSET_" V Health Factor entries."
- I NL=1 S NL=NL+1,TEXT(NL)="No missing UCUM CODEs were found."
- F IND=1:1:NL W !,TEXT(IND)
- Q
- ;
- ;===============================
- CFVPATED(MEASLIST) ; Check V Patient Ed.
- N EDUIEN,IND,MAGNITUDE,NAME,NSET,TEMP220,TEXT,UCUMCODE,UCUMIEN,VPATEDIEN
- S TEXT(1)="Checking V Health Factors for missing UCUM CODES."
- S NAME="",NL=1
- F S NAME=$O(MEASLIST(NAME)) Q:NAME="" D
- . S NSET=0
- . S EDUIEN=$P(MEASLIST(NAME),U,1)
- . S UCUMCODE=$P(MEASLIST(NAME),U,2)
- . S VPATEDIEN=""
- . F S VPATEDIEN=$O(^AUPNVPED("B",EDUIEN,VPATEDIEN)) Q:VPATEDIEN="" D
- .. S TEMP220=$G(^AUPNVPED(VPATEDIEN,220))
- .. S MAGNITUDE=$P(TEMP220,U,1)
- .. I MAGNITUDE="" Q
- .. S UCUMIEN=$P(TEMP220,U,2)
- .. I UCUMIEN="" S NSET=NSET+1,$P(^AUPNVPED(VPATEDIEN,220),U,2)=UCUMCODE
- . I NSET>0 D
- .. S NL=NL+1,TEXT(NL)=""
- .. S NL=NL+1,TEXT(NL)="For the Education Topic: "_NAME
- .. S NL=NL+1,TEXT(NL)="The UCUM CODE was set for "_NSET_" V Patient Ed entries."
- I NL=1 S NL=NL+1,TEXT(NL)="No missing UCUM CODEs were found."
- F IND=1:1:NL W !,TEXT(IND)
- Q
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXMEASCF 7971 printed Feb 18, 2025@23:55:59 Page 2
- PXMEASCF ;SLC/PKR Utilities for checking and fixing measurements. ;06/08/2022
- +1 ;;1.0;PCE PATIENT CARE ENCOUNTER;**217**;Aug 12, 1996;Build 134
- +2 ;Check the definition files for measurements that are not completely defined.
- +3 ;For measurements that are completely defined, check the corresponding V-file
- +4 ;for entries that have a MAGNITUDE, but are missing the UCUM CODE. When any of
- +5 ;these are found, set the UCUM CODE to that found in the definition.
- +6 ;
- +7 ;===============================
- ASKYN(DEFAULT,TEXT) ;Ask a YES/NO question.
- +1 NEW DIR,X,Y
- +2 KILL DIROUT,DIRUT,DTOUT,DUOUT
- +3 SET DIR(0)="YA"
- +4 SET DIR("A")=TEXT
- +5 SET DIR("B")=DEFAULT
- +6 SET DIR("?")="Enter Y or N."
- +7 WRITE !
- +8 DO ^DIR
- +9 IF $DATA(DTOUT)!$DATA(DUOUT)
- SET Y=0
- +10 QUIT Y
- +11 ;
- +12 ;===============================
- CFEDU ;Check/fix Education Topics factors that have measurements defined.
- +1 NEW ALLDEF,ANS,IEN,IND,MAX,MAXDEC,MEASLIST,MIN,NAME,NL,PCAPTION,TEXT,TMP220,UCUMCODE,UCUMDISPLAY
- +2 WRITE !,"Checking Education Topics for complete measurement setup."
- +3 SET NAME=""
- +4 FOR
- SET NAME=$ORDER(^AUTTEDT("B",NAME))
- if NAME=""
- QUIT
- Begin DoDot:1
- +5 SET IEN=$ORDER(^AUTTEDT("B",NAME,""))
- +6 SET TMP220=$GET(^AUTTEDT(IEN,220))
- +7 IF TMP220=""
- QUIT
- +8 SET MIN=$PIECE(TMP220,U,1)
- SET MAX=$PIECE(TMP220,U,2)
- +9 SET MAXDEC=$PIECE(TMP220,U,3)
- SET UCUMCODE=$PIECE(TMP220,U,4)
- +10 SET PCAPTION=$PIECE(TMP220,U,5)
- SET UCUMDISPLAY=$PIECE(TMP220,U,6)
- +11 IF (MIN="")
- IF (MAX="")
- IF (MAXDEC="")
- IF (UCUMCODE="")
- IF (PCAPTION="")
- IF (UCUMDISPLAY="")
- QUIT
- +12 ;If any of the measurement fields are defined, they all
- +13 ;must be.
- +14 KILL TEXT
- +15 SET ALLDEF=1
- +16 SET TEXT(1)=""
- +17 SET TEXT(2)="Education Topic: "_NAME
- +18 SET NL=2
- +19 IF MIN=""
- SET ALLDEF=0
- SET NL=NL+1
- SET TEXT(NL)="MINIMUM VALUE is not defined."
- +20 IF MAX=""
- SET ALLDEF=0
- SET NL=NL+1
- SET TEXT(NL)="MAXIMUM VALUE is not defined."
- +21 IF MAXDEC=""
- SET ALLDEF=0
- SET NL=NL+1
- SET TEXT(NL)="MAXIMUM DECIMALS is not defined."
- +22 IF UCUMCODE=""
- SET ALLDEF=0
- SET NL=NL+1
- SET TEXT(NL)="UCUM CODE is not defined."
- +23 IF PCAPTION=""
- SET ALLDEF=0
- SET NL=NL+1
- SET TEXT(NL)="PROMPT CAPTION is not defined."
- +24 IF UCUMDISPLAY=""
- SET ALLDEF=0
- SET NL=NL+1
- SET TEXT(NL)="UCUM DISPLAY is not defined."
- +25 IF ALLDEF=1
- SET MEASLIST(NAME)=IEN_U_UCUMCODE
- QUIT
- +26 FOR IND=1:1:NL
- WRITE !,TEXT(IND)
- End DoDot:1
- +27 IF $DATA(MEASLIST)
- Begin DoDot:1
- +28 SET ANS=$$ASKYN("Y","Search for and repair V PATIENT ED entries missing the UCUM CODE? ")
- +29 IF ANS=1
- DO CFVPATED(.MEASLIST)
- End DoDot:1
- +30 QUIT
- +31 ;
- +32 ;===============================
- CFEXAM ;Check/fix Exams that have measurements defined.
- +1 NEW ALLDEF,ANS,IEN,IND,MAX,MAXDEC,MEASLIST,MIN,NAME,NL,PCAPTION,TEXT,TMP220,UCUMCODE,UCUMDISPLAY
- +2 WRITE !,"Checking Exams for complete measurement setup."
- +3 SET NAME=""
- +4 FOR
- SET NAME=$ORDER(^AUTTEXAM("B",NAME))
- if NAME=""
- QUIT
- Begin DoDot:1
- +5 SET IEN=$ORDER(^AUTTEXAM("B",NAME,""))
- +6 SET TMP220=$GET(^AUTTEXAM(IEN,220))
- +7 IF TMP220=""
- QUIT
- +8 SET MIN=$PIECE(TMP220,U,1)
- SET MAX=$PIECE(TMP220,U,2)
- +9 SET MAXDEC=$PIECE(TMP220,U,3)
- SET UCUMCODE=$PIECE(TMP220,U,4)
- +10 SET PCAPTION=$PIECE(TMP220,U,5)
- SET UCUMDISPLAY=$PIECE(TMP220,U,6)
- +11 IF (MIN="")
- IF (MAX="")
- IF (MAXDEC="")
- IF (UCUMCODE="")
- IF (PCAPTION="")
- IF (UCUMDISPLAY="")
- QUIT
- +12 ;If any of the measurement fields are defined, they all
- +13 ;must be.
- +14 KILL TEXT
- +15 SET ALLDEF=1
- +16 SET TEXT(1)=""
- +17 SET TEXT(2)="Exam: "_NAME
- +18 SET NL=2
- +19 IF MIN=""
- SET ALLDEF=0
- SET NL=NL+1
- SET TEXT(NL)="MINIMUM VALUE is not defined."
- +20 IF MAX=""
- SET ALLDEF=0
- SET NL=NL+1
- SET TEXT(NL)="MAXIMUM VALUE is not defined."
- +21 IF MAXDEC=""
- SET ALLDEF=0
- SET NL=NL+1
- SET TEXT(NL)="MAXIMUM DECIMALS is not defined."
- +22 IF UCUMCODE=""
- SET ALLDEF=0
- SET NL=NL+1
- SET TEXT(NL)="UCUM CODE is not defined."
- +23 IF PCAPTION=""
- SET ALLDEF=0
- SET NL=NL+1
- SET TEXT(NL)="PROMPT CAPTION is not defined."
- +24 IF UCUMDISPLAY=""
- SET ALLDEF=0
- SET NL=NL+1
- SET TEXT(NL)="UCUM DISPLAY is not defined."
- +25 IF ALLDEF=1
- SET MEASLIST(NAME)=IEN_U_UCUMCODE
- QUIT
- +26 FOR IND=1:1:NL
- WRITE !,TEXT(IND)
- End DoDot:1
- +27 IF $DATA(MEASLIST)
- Begin DoDot:1
- +28 SET ANS=$$ASKYN("Y","Search for and repair V EXAM entries missing the UCUM CODE? ")
- +29 IF ANS=1
- DO CFVEXAM(.MEASLIST)
- End DoDot:1
- +30 QUIT
- +31 ;
- +32 ;===============================
- CFHF ;Check/fix health factors that have measurements defined.
- +1 NEW ALLDEF,ANS,IEN,IND,MAX,MAXDEC,MEASLIST,MIN,NAME,NL,PCAPTION,TEXT,TMP220,UCUMCODE,UCUMDISPLAY
- +2 WRITE !,"Checking Health Factors for complete measurement setup."
- +3 SET NAME=""
- +4 FOR
- SET NAME=$ORDER(^AUTTHF("B",NAME))
- if NAME=""
- QUIT
- Begin DoDot:1
- +5 SET IEN=$ORDER(^AUTTHF("B",NAME,""))
- +6 SET TMP220=$GET(^AUTTHF(IEN,220))
- +7 IF TMP220=""
- QUIT
- +8 SET MIN=$PIECE(TMP220,U,1)
- SET MAX=$PIECE(TMP220,U,2)
- +9 SET MAXDEC=$PIECE(TMP220,U,3)
- SET UCUMCODE=$PIECE(TMP220,U,4)
- +10 SET PCAPTION=$PIECE(TMP220,U,5)
- SET UCUMDISPLAY=$PIECE(TMP220,U,6)
- +11 IF (MIN="")
- IF (MAX="")
- IF (MAXDEC="")
- IF (UCUMCODE="")
- IF (PCAPTION="")
- IF (UCUMDISPLAY="")
- QUIT
- +12 ;If any of the measurement fields are defined, they all
- +13 ;must be.
- +14 KILL TEXT
- +15 SET ALLDEF=1
- +16 SET TEXT(1)=""
- +17 SET TEXT(2)="Health Factor: "_NAME
- +18 SET NL=2
- +19 IF MIN=""
- SET ALLDEF=0
- SET NL=NL+1
- SET TEXT(NL)="MINIMUM VALUE is not defined."
- +20 IF MAX=""
- SET ALLDEF=0
- SET NL=NL+1
- SET TEXT(NL)="MAXIMUM VALUE is not defined."
- +21 IF MAXDEC=""
- SET ALLDEF=0
- SET NL=NL+1
- SET TEXT(NL)="MAXIMUM DECIMALS is not defined."
- +22 IF UCUMCODE=""
- SET ALLDEF=0
- SET NL=NL+1
- SET TEXT(NL)="UCUM CODE is not defined."
- +23 IF PCAPTION=""
- SET ALLDEF=0
- SET NL=NL+1
- SET TEXT(NL)="PROMPT CAPTION is not defined."
- +24 IF UCUMDISPLAY=""
- SET ALLDEF=0
- SET NL=NL+1
- SET TEXT(NL)="UCUM DISPLAY is not defined."
- +25 IF ALLDEF=1
- SET MEASLIST(NAME)=IEN_U_UCUMCODE
- QUIT
- +26 FOR IND=1:1:NL
- WRITE !,TEXT(IND)
- End DoDot:1
- +27 IF $DATA(MEASLIST)
- Begin DoDot:1
- +28 SET ANS=$$ASKYN("Y","Search for and repair V HEALTH FACTORS entries missing the UCUM CODE? ")
- +29 IF ANS=1
- DO CFVHF(.MEASLIST)
- End DoDot:1
- +30 QUIT
- +31 ;
- +32 ;===============================
- CFVEXAM(MEASLIST) ; Check V Exam.
- +1 NEW EXAMIEN,IND,MAGNITUDE,NAME,NSET,TEMP220,TEXT,UCUMCODE,UCUMIEN,VEXAMIEN
- +2 SET TEXT(1)="Checking V Exam for missing UCUM CODES."
- +3 SET NAME=""
- SET NL=1
- +4 FOR
- SET NAME=$ORDER(MEASLIST(NAME))
- if NAME=""
- QUIT
- Begin DoDot:1
- +5 SET NSET=0
- +6 SET EXAMIEN=$PIECE(MEASLIST(NAME),U,1)
- +7 SET UCUMCODE=$PIECE(MEASLIST(NAME),U,2)
- +8 SET VEXAMIEN=""
- +9 FOR
- SET VEXAMIEN=$ORDER(^AUPNVXAM("B",EXAMIEN,VEXAMIEN))
- if VEXAMIEN=""
- QUIT
- Begin DoDot:2
- +10 SET TEMP220=$GET(^AUPNVXAM(VEXAMIEN,220))
- +11 SET MAGNITUDE=$PIECE(TEMP220,U,1)
- +12 IF MAGNITUDE=""
- QUIT
- +13 SET UCUMIEN=$PIECE(TEMP220,U,2)
- +14 IF UCUMIEN=""
- SET NSET=NSET+1
- SET $PIECE(^AUPNVXAM(VEXAMIEN,220),U,2)=UCUMCODE
- End DoDot:2
- +15 IF NSET>0
- Begin DoDot:2
- +16 SET NL=NL+1
- SET TEXT(NL)=""
- +17 SET NL=NL+1
- SET TEXT(NL)="For the Exam: "_NAME
- +18 SET NL=NL+1
- SET TEXT(NL)="The UCUM CODE was set for "_NSET_" V Exam entries."
- End DoDot:2
- End DoDot:1
- +19 IF NL=1
- SET NL=NL+1
- SET TEXT(NL)="No missing UCUM CODEs were found."
- +20 FOR IND=1:1:NL
- WRITE !,TEXT(IND)
- +21 QUIT
- +22 ;
- +23 ;===============================
- CFVHF(MEASLIST) ; Check V Health Factors.
- +1 NEW HFIEN,IND,MAGNITUDE,NAME,NSET,TEMP220,TEXT,UCUMCODE,UCUMIEN,VHFIEN
- +2 SET TEXT(1)="Checking V Health Factors for missing UCUM CODES."
- +3 SET NAME=""
- SET NL=1
- +4 FOR
- SET NAME=$ORDER(MEASLIST(NAME))
- if NAME=""
- QUIT
- Begin DoDot:1
- +5 SET NSET=0
- +6 SET HFIEN=$PIECE(MEASLIST(NAME),U,1)
- +7 SET UCUMCODE=$PIECE(MEASLIST(NAME),U,2)
- +8 SET VHFIEN=""
- +9 FOR
- SET VHFIEN=$ORDER(^AUPNVHF("B",HFIEN,VHFIEN))
- if VHFIEN=""
- QUIT
- Begin DoDot:2
- +10 SET TEMP220=$GET(^AUPNVHF(VHFIEN,220))
- +11 SET MAGNITUDE=$PIECE(TEMP220,U,1)
- +12 IF MAGNITUDE=""
- QUIT
- +13 SET UCUMIEN=$PIECE(TEMP220,U,2)
- +14 IF UCUMIEN=""
- SET NSET=NSET+1
- SET $PIECE(^AUPNVHF(VHFIEN,220),U,2)=UCUMCODE
- End DoDot:2
- +15 IF NSET>0
- Begin DoDot:2
- +16 SET NL=NL+1
- SET TEXT(NL)=""
- +17 SET NL=NL+1
- SET TEXT(NL)="For the Health Factor: "_NAME
- +18 SET NL=NL+1
- SET TEXT(NL)="The UCUM CODE was set for "_NSET_" V Health Factor entries."
- End DoDot:2
- End DoDot:1
- +19 IF NL=1
- SET NL=NL+1
- SET TEXT(NL)="No missing UCUM CODEs were found."
- +20 FOR IND=1:1:NL
- WRITE !,TEXT(IND)
- +21 QUIT
- +22 ;
- +23 ;===============================
- CFVPATED(MEASLIST) ; Check V Patient Ed.
- +1 NEW EDUIEN,IND,MAGNITUDE,NAME,NSET,TEMP220,TEXT,UCUMCODE,UCUMIEN,VPATEDIEN
- +2 SET TEXT(1)="Checking V Health Factors for missing UCUM CODES."
- +3 SET NAME=""
- SET NL=1
- +4 FOR
- SET NAME=$ORDER(MEASLIST(NAME))
- if NAME=""
- QUIT
- Begin DoDot:1
- +5 SET NSET=0
- +6 SET EDUIEN=$PIECE(MEASLIST(NAME),U,1)
- +7 SET UCUMCODE=$PIECE(MEASLIST(NAME),U,2)
- +8 SET VPATEDIEN=""
- +9 FOR
- SET VPATEDIEN=$ORDER(^AUPNVPED("B",EDUIEN,VPATEDIEN))
- if VPATEDIEN=""
- QUIT
- Begin DoDot:2
- +10 SET TEMP220=$GET(^AUPNVPED(VPATEDIEN,220))
- +11 SET MAGNITUDE=$PIECE(TEMP220,U,1)
- +12 IF MAGNITUDE=""
- QUIT
- +13 SET UCUMIEN=$PIECE(TEMP220,U,2)
- +14 IF UCUMIEN=""
- SET NSET=NSET+1
- SET $PIECE(^AUPNVPED(VPATEDIEN,220),U,2)=UCUMCODE
- End DoDot:2
- +15 IF NSET>0
- Begin DoDot:2
- +16 SET NL=NL+1
- SET TEXT(NL)=""
- +17 SET NL=NL+1
- SET TEXT(NL)="For the Education Topic: "_NAME
- +18 SET NL=NL+1
- SET TEXT(NL)="The UCUM CODE was set for "_NSET_" V Patient Ed entries."
- End DoDot:2
- End DoDot:1
- +19 IF NL=1
- SET NL=NL+1
- SET TEXT(NL)="No missing UCUM CODEs were found."
- +20 FOR IND=1:1:NL
- WRITE !,TEXT(IND)
- +21 QUIT
- +22 ;
