HDIZZ003 ;BPFO/JRP - ORLANDO CLEANUP;02/18/2009
;;1.0;HEALTH DATA & INFORMATICS;**xx**;Feb 22, 2005
;
;******************************************************
;** This routine is not for general distribution **
;******************************************************
;
;Can not execute from top of routine. Must use line tag.
QUIT
;
;
ORLANDO ;Main entry point
IF '$$AYS() QUIT
WRITE !!!!,"Starting corrective actions (",$$HTE^XLFDT($H),")",!
DO SYSTEM
DO PARAMS
DO STATUS
DO VUIDLOAD
WRITE !!!!,"Corrective actions completed (",$$HTE^XLFDT($H),")",!
QUIT
;
AYS() ;Are you sure ?
NEW DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT
SET DIR("A")="Are you sure you want to continue"
SET DIR("A",1)="This routine was explicitly written for the Orlando VAMC"
SET DIR("A",2)="and corrects problems specific to their Allergies, Vitals,"
SET DIR("A",3)="and Health Data & Informatics files. As such, it should"
SET DIR("A",4)="only be run at the Orlando VAMC."
SET DIR("A",5)=" "
SET DIR("B")="NO",DIR(0)="Y"
DO ^DIR
QUIT +$GET(Y)
;
SYSTEM ;Make corrections to HDIS SYSTEM file
NEW IEN,DA,DIK,HDIZ,HDIZERR
;Make sure only one entry exists
Write !!,"Ensuring that only one entry exists in HDIS SYSTEM file ..."
SET IEN=1
FOR SET IEN=+$ORDER(^HDISF(7118.21,IEN)) QUIT:'IEN DO
. Write "."
. SET DA=IEN
. SET DIK="^HDISF(7118.21,"
. DO ^DIK
. QUIT
;Make sure first entry is accurate
Write !!,"Ensuring that first entry in HDIS SYSTEM file is correct ..."
SET HDIZ(7118.21,"1,",.01)=$$FACPTR^HDISVF01()
SET HDIZ(7118.21,"1,",.02)=$G(^XMB("NETNAME"))
SET HDIZ(7118.21,"1,",.03)=$$PROD^XUPROD()
D FILE^DIE("","HDIZ","HDIZERR")
IF $DATA(HDIZERR) DO
. WRITE !!,"*****"
. WRITE !,"FILE^DIE was unable to update entry 1 of the HDIS SYSTEM file"
. WRITE !,"*****",!!
. QUIT
QUIT
;
PARAMS ;Make corrections to HDIS PARAMETER file
NEW HDIZ,HDIZERR
;Make sure first entry points to first entry in HDIS SYSTEM file
Write !!,"Ensuring that first entry in HDIS PARAMETER file points to"
Write !,"first entry in HDIS SYSTEM file ..."
SET HDIZ(7118.29,"1,",.01)=1
D FILE^DIE("","HDIZ","HDIZERR")
IF $DATA(HDIZERR) DO
. WRITE !!,"*****"
. WRITE !,"FILE^DIE was unable to make the first entry in the HDIS PARAMETER"
. WRITE !,"file point to the first entry in the HDIS SYSTEM file"
. WRITE !,"*****",!!
. QUIT
QUIT
;
STATUS ;Make corrections to HDIS VUID IMPLEMENTATION STATUS file
NEW IEN,HDIZ,HDIZERR,FILE
;Make sure all entries point to first entry in HDIS SYSTEM file
Write !!,"Ensuring that all entries in HDIS VUID IMPLEMENTATION"
Write !,"STATUS file point to first entry in HDIS SYSTEM file ..."
SET IEN=0
FOR SET IEN=+$ORDER(^HDISF(7118.25,IEN)) QUIT:'IEN DO
. Write "."
. K HDIZ,HDIZERR
. SET HDIZ(7118.25,IEN_",",.01)=1
. D FILE^DIE("","HDIZ","HDIZERR")
. IF $DATA(HDIZERR) DO
. . WRITE !!,"*****"
. . WRITE !,"FILE^DIE was unable to make entry ",IEN," in the HDIS VUID"
. . WRITE !,"IMPLEMENTATION STATUS file point to the first entry in the"
. . WRITE !,"HDIS SYSTEM file"
. . WRITE !,"*****",!!
. . QUIT
. QUIT
;Make sure files in Vitals and Allergies domain are marked with
;implementation status code 6 (completed)
WRITE !!,"Ensuring that VUID Seeding for the Vitals and Allergies"
WRITE !,"files are marked as having run to completion (this prevents"
WRITE !,"non-standard terms from being selectable) ..."
FOR FILE=120.51,120.52,120.53,120.82,120.83 DO
. WRITE "."
. ;Status code already '6'
. IF +$$GETSTAT^HDISVF01(FILE,.01)=6 QUIT
. ;Mark file as completed (status code '6')
. DO SETSTAT^HDISVF01(FILE,.01,6)
. QUIT
QUIT
;
VUIDLOAD ;Load/store non-standard VUIDs
NEW LINE,DATA,FILE,TERM,VUID,STOP,FINDLIST,FINDERR,SEQ,IEN
;Initialize global arrays used
SET FINDLIST=$NAME(^TMP("HDIZZ003",$J,"FINDLIST"))
SET FINDERR=$NAME(^TMP("HDIZZ003",$J,"FINDERR"))
KILL @FINDLIST,@FINDERR
;Loop through list of non-standard VUIDs to load
WRITE !!,"Storing VUIDs and inactivating terms ..."
SET STOP=0
FOR LINE=1:1 DO QUIT:STOP
. ;Get line of data
. SET DATA=$PIECE($TEXT(VUIDDATA+LINE),";;",2)
. ;Reached end of data lines
. IF DATA="$END" SET STOP=1 QUIT
. ;Piece out data
. SET FILE=$PIECE(DATA,"^",1)
. SET TERM=$PIECE(DATA,"^",2)
. SET VUID=$PIECE(DATA,"^",3)
. ;Skip blank lines (used to visually separate files)
. QUIT:(FILE="")
. ;Find matches for term
. KILL @FINDLIST,@FINDERR
. DO FIND^DIC(FILE,"",".01;99.99","QX",TERM,"*","B^","","",FINDLIST,FINDERR)
. ;Error
. IF $DATA(@FINDERR) DO QUIT
. . WRITE !!,"*****"
. . WRITE !,"FIND^DIC reported an error when attempting to find entries for"
. . WRITE !,"""",TERM,""" in file number ",FILE
. . WRITE !,"*****",!!
. . QUIT
. ;Term not found
. IF '$GET(@FINDLIST@("DILIST",0)) DO QUIT
. . WRITE !!,"*****"
. . WRITE !,"FIND^DIC did not find any matches for"
. . WRITE !,"""",TERM,""" in file number ",FILE
. . WRITE !,"*****",!!
. . QUIT
. ;Loop through each match
. SET SEQ=0
. FOR SET SEQ=+$ORDER(@FINDLIST@("DILIST","ID",SEQ)) QUIT:'SEQ DO
. . WRITE "."
. . ;Get entry number
. . SET IEN=+$GET(@FINDLIST@("DILIST",2,SEQ))
. . IF 'IEN DO QUIT
. . .;IEN node missing
. . . WRITE !!,"*****"
. . . WRITE !,"IEN node missing for match number ",SEQ," of"
. . . WRITE !,"""",TERM,""" in file number ",FILE
. . . WRITE !,"*****",!!
. . . QUIT
. . ;VUID already defined
. . IF $GET(@FINDLIST@("DILIST","ID",SEQ,99.99))'="" DO QUIT
. . . WRITE !!,"*****"
. . . WRITE !,"VUID already defined for IEN ",IEN," of"
. . . WRITE !,"""",TERM,""" in file number ",FILE
. . . WRITE !,"*****",!!
. . . QUIT
. . ;Store VUID
. . IF '$$SETVUID^XTID(FILE,.01,IEN_",",VUID) DO QUIT
. . . WRITE !!,"*****"
. . . WRITE !,"Unable to store VUID for IEN ",IEN," of"
. . . WRITE !,"""",TERM,""" in file number ",FILE
. . . WRITE !,"*****",!!
. . . QUIT
. . ;Inactivate entry
. . IF '$$SETSTAT^XTID(FILE,.01,IEN_",",0,3050801.0001) DO QUIT
. . . WRITE !!,"*****"
. . . WRITE !,"Unable to inactivate IEN ",IEN," of"
. . . WRITE !,"""",TERM,""" in file number ",FILE
. . . WRITE !,"*****",!!
. . . QUIT
. . QUIT
. QUIT
KILL @FINDLIST,@FINDERR
QUIT
;
;
VUIDDATA ;;File^Term^VUID
;;120.51^ABDOMINAL GIRTH^4536404
;;120.51^HEAD CIRCUMFERENCE^4536405
;;
;;120.52^ADULT^4536409
;;120.52^CUFF^4536408
;;120.52^LG ADULT^4536411
;;120.52^OTHER^4536406
;;120.52^PEDIATRIC^4536412
;;120.52^SM ADULT^4536410
;;
;;120.82^ANTIRABIES SERUM^4538526
;;120.82^ASPIRIN^4538527
;;120.82^AUROTHIOGLUCOSE (SESAME OIL)^4636954
;;120.82^BANANA^4636707
;;120.82^BCG VACCINE^4538528
;;120.82^BENZALKONIUM CHLORIDE^4538529
;;120.82^BISMUTH SUBSALICYLATE^4538530
;;120.82^BOTULISM ANTITOXIN^4538531
;;120.82^BROAD BEANS^4690957
;;120.82^BUTTERSCOTCH FLAVORING^4538532
;;120.82^CALCITONIN, SALMON^4538534
;;120.82^CETYLPYRIDINIUM^4538536
;;120.82^CITRATED CAFFEINE^4538537
;;120.82^DIGOXIN IMMUNE FAB (OVINE)^4538538
;;120.82^DIPHTHERIA ANTITOXIN, EQUINE^4538539
;;120.82^DIPHTHERIA TOXOID^4538540
;;120.82^ESTRADIOL CYPIONATE^4538541
;;120.82^F D & C BLUE #2^4018104
;;120.82^F D & C GREEN #6^4019324
;;120.82^F D & C RED #3^4019486
;;120.82^F D & C RED #40^4019362
;;120.82^F D & C RED #40 LAKE^4019363
;;120.82^F D & C YELLOW #6^4019360
;;120.82^F D & C YELLOW #6 LAKE^4019361
;;120.82^FLUPHENAZINE DECANOATE^4538542
;;120.82^FOOD STARCH, MODIFIED^4637464
;;120.82^GOLD SODIUM THIOMALATE^4538543
;;120.82^HEPARIN SODIUM (BEEF LUNG)^4538544
;;120.82^HEPARIN SODIUM (PORK)^4538545
;;120.82^HORSE SERUM^4541611
;;120.82^INSULIN^4538546
;;120.82^IODINE^4538521
;;120.82^IRON FILLINGS^4538522
;;120.82^METHYLCELLULOSE^4538535
;;120.82^NAFARELIN ACETATE^4538547
;;120.82^NANDROLONE, ETC^4538548
;;120.82^OTHER ALLERGY/ADVERSE REACTION^4538520
;;120.82^PARA-AMINOBENZOIC ACID^4538549
;;120.82^PARABEN^4538533
;;120.82^PINEAPPLE^4637343
;;120.82^POTASSIUM IODIDE^4538550
;;120.82^POTATO^4636964
;;120.82^POVIDONE IODINE^4538551
;;120.82^PSYLLIUM^4538552
;;120.82^RABIES IMMUNE GLOBULIN^4538553
;;120.82^RED FOOD DYE^4538524
;;120.82^SALICYLAMIDE^4538554
;;120.82^SALICYLIC ACID^4538555
;;120.82^SHELL FISH^4636953
;;120.82^SOY BEANS^4636950
;;120.82^TARTARIC ACID^4538556
;;120.82^TESTOSTERONE^4538557
;;120.82^TOMATO^4637354
;;120.82^VASOPRESSIN TANNATE (IN OIL)^4538558
;;
;;120.83^AGITATION^4538582
;;120.83^APPETITE,INCREASED^4538583
;;120.83^ARRHYTHMIA^4538584
;;120.83^BRACHYCARDIA^4538585
;;120.83^BREAST ENGORGEMENT^4538586
;;120.83^CHILLS^4538587
;;120.83^CONFUSION^4538568
;;120.83^CONGESTION,NASAL^4538588
;;120.83^CONJUNCTIVAL CONGESTION^4538589
;;120.83^COUGHING^4538572
;;120.83^DEAFNESS^4538591
;;120.83^DELERIUM^4538592
;;120.83^DELUSION^4538569
;;120.83^DEPRESSION,MENTAL^4538624
;;120.83^DEPRESSION,POSTICTAL^4538590
;;120.83^DERMATITIS,CONTACT^4538604
;;120.83^DERMATITIS,PHOTOALLERGENIC^4538605
;;120.83^DISTURBED COORDINATION^4538594
;;120.83^DREAMING,INCREASED^4538595
;;120.83^DROWSINESS^4538596
;;120.83^DRY NOSE^4538599
;;120.83^DRY THROAT^4538598
;;120.83^ECG CHANGES^4538600
;;120.83^EPIGASTRIC DISTRESS^4538601
;;120.83^EXCITATION^4538602
;;120.83^FACE FLUSHED^4538609
;;120.83^FACIAL DYSKINESIA^4538606
;;120.83^FAINTNESS^4538607
;;120.83^FEELING OF WARMTH^4538608
;;120.83^GI REACTION^4538570
;;120.83^HEMOGLOBIN,INCREASED^4538611
;;120.83^HIVES^4541623
;;120.83^IMPAIRMENT OF ERECTION^4538614
;;120.83^INAPPROPRIATE PENILE ERECTION^4538615
;;120.83^IRRITABILITY^4538616
;;120.83^ITCHING,WATERING EYES^4538561
;;120.83^JUNCTIONAL RHYTHM^4538618
;;120.83^LABYRINTHITIS,ACUTE^4538623
;;120.83^LACRIMATION^4538617
;;120.83^LDH,INCREASED^4538619
;;120.83^LEUKOCYTE COUNT,DECREASED^4538620
;;120.83^LIBIDO,DECREASED^4538621
;;120.83^LIBIDO,INCREASED^4538622
;;120.83^MIOSIS^4538625
;;120.83^NAUSEA,VOMITING^4538564
;;120.83^NERVOUSNESS,AGITATION^4538566
;;120.83^NEUTROPHIL COUNT,DECREASED^4538627
;;120.83^ORGASM,INHIBITED^4538629
;;120.83^ORONASALPHARYNGEAL IRRITATION^4538626
;;120.83^OTHER REACTION^4538580
;;120.83^PAIN,JOINT^4538630
;;120.83^PARKINSONIAN-LIKE SYNDROME^4538631
;;120.83^POSSIBLE REACTION^4538562
;;120.83^PRURITIS^4538702
;;120.83^PURPURA^4538647
;;120.83^RALES^4538634
;;120.83^RASH,PAPULAR^4538638
;;120.83^RHINORRHEA^4538636
;;120.83^RHONCHUS^4538637
;;120.83^SEIZURES^4538640
;;120.83^SEIZURES,TONIC-CLONIC^4538639
;;120.83^SELF-DEPRECATION^4538641
;;120.83^SEVERE RASH^4538581
;;120.83^SHORTNESS OF BREATH^4538571
;;120.83^SINUS BRACHYCARDIA^4538642
;;120.83^SOMNOLENCE^4538643
;;120.83^SPEECH DISORDER^4538644
;;120.83^S-T CHANGES,TRANSIENT^4538645
;;120.83^SWELLING (NON-SPECIFIC)^4538574
;;120.83^SWELLING-EYES^4538575
;;120.83^SWELLING-LIPS^4538577
;;120.83^SWELLING-THROAT^4538576
;;120.83^TREMORS^4538648
;;120.83^URINARY FLOW,DELAYED^4538649
;;120.83^URINARY FREQUENCY^4538579
;;120.83^URINARY FREQUENCY,INCREASED^4538650
;;120.83^URINARY RETENTION^4538578
;;120.83^VISION,BLURRED^4538565
;;120.83^VISUAL DISTURBANCES^4538573
;;120.83^WEIGHT GAIN^4538651
;;
;;$END
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHDIZZ003 11350 printed Sep 23, 2025@19:33:16 Page 2
HDIZZ003 ;BPFO/JRP - ORLANDO CLEANUP;02/18/2009
+1 ;;1.0;HEALTH DATA & INFORMATICS;**xx**;Feb 22, 2005
+2 ;
+3 ;******************************************************
+4 ;** This routine is not for general distribution **
+5 ;******************************************************
+6 ;
+7 ;Can not execute from top of routine. Must use line tag.
+8 QUIT
+9 ;
+10 ;
ORLANDO ;Main entry point
+1 IF '$$AYS()
QUIT
+2 WRITE !!!!,"Starting corrective actions (",$$HTE^XLFDT($HOROLOG),")",!
+3 DO SYSTEM
+4 DO PARAMS
+5 DO STATUS
+6 DO VUIDLOAD
+7 WRITE !!!!,"Corrective actions completed (",$$HTE^XLFDT($HOROLOG),")",!
+8 QUIT
+9 ;
AYS() ;Are you sure ?
+1 NEW DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT
+2 SET DIR("A")="Are you sure you want to continue"
+3 SET DIR("A",1)="This routine was explicitly written for the Orlando VAMC"
+4 SET DIR("A",2)="and corrects problems specific to their Allergies, Vitals,"
+5 SET DIR("A",3)="and Health Data & Informatics files. As such, it should"
+6 SET DIR("A",4)="only be run at the Orlando VAMC."
+7 SET DIR("A",5)=" "
+8 SET DIR("B")="NO"
SET DIR(0)="Y"
+9 DO ^DIR
+10 QUIT +$GET(Y)
+11 ;
SYSTEM ;Make corrections to HDIS SYSTEM file
+1 NEW IEN,DA,DIK,HDIZ,HDIZERR
+2 ;Make sure only one entry exists
+3 WRITE !!,"Ensuring that only one entry exists in HDIS SYSTEM file ..."
+4 SET IEN=1
+5 FOR
SET IEN=+$ORDER(^HDISF(7118.21,IEN))
if 'IEN
QUIT
Begin DoDot:1
+6 WRITE "."
+7 SET DA=IEN
+8 SET DIK="^HDISF(7118.21,"
+9 DO ^DIK
+10 QUIT
End DoDot:1
+11 ;Make sure first entry is accurate
+12 WRITE !!,"Ensuring that first entry in HDIS SYSTEM file is correct ..."
+13 SET HDIZ(7118.21,"1,",.01)=$$FACPTR^HDISVF01()
+14 SET HDIZ(7118.21,"1,",.02)=$GET(^XMB("NETNAME"))
+15 SET HDIZ(7118.21,"1,",.03)=$$PROD^XUPROD()
+16 DO FILE^DIE("","HDIZ","HDIZERR")
+17 IF $DATA(HDIZERR)
Begin DoDot:1
+18 WRITE !!,"*****"
+19 WRITE !,"FILE^DIE was unable to update entry 1 of the HDIS SYSTEM file"
+20 WRITE !,"*****",!!
+21 QUIT
End DoDot:1
+22 QUIT
+23 ;
PARAMS ;Make corrections to HDIS PARAMETER file
+1 NEW HDIZ,HDIZERR
+2 ;Make sure first entry points to first entry in HDIS SYSTEM file
+3 WRITE !!,"Ensuring that first entry in HDIS PARAMETER file points to"
+4 WRITE !,"first entry in HDIS SYSTEM file ..."
+5 SET HDIZ(7118.29,"1,",.01)=1
+6 DO FILE^DIE("","HDIZ","HDIZERR")
+7 IF $DATA(HDIZERR)
Begin DoDot:1
+8 WRITE !!,"*****"
+9 WRITE !,"FILE^DIE was unable to make the first entry in the HDIS PARAMETER"
+10 WRITE !,"file point to the first entry in the HDIS SYSTEM file"
+11 WRITE !,"*****",!!
+12 QUIT
End DoDot:1
+13 QUIT
+14 ;
STATUS ;Make corrections to HDIS VUID IMPLEMENTATION STATUS file
+1 NEW IEN,HDIZ,HDIZERR,FILE
+2 ;Make sure all entries point to first entry in HDIS SYSTEM file
+3 WRITE !!,"Ensuring that all entries in HDIS VUID IMPLEMENTATION"
+4 WRITE !,"STATUS file point to first entry in HDIS SYSTEM file ..."
+5 SET IEN=0
+6 FOR
SET IEN=+$ORDER(^HDISF(7118.25,IEN))
if 'IEN
QUIT
Begin DoDot:1
+7 WRITE "."
+8 KILL HDIZ,HDIZERR
+9 SET HDIZ(7118.25,IEN_",",.01)=1
+10 DO FILE^DIE("","HDIZ","HDIZERR")
+11 IF $DATA(HDIZERR)
Begin DoDot:2
+12 WRITE !!,"*****"
+13 WRITE !,"FILE^DIE was unable to make entry ",IEN," in the HDIS VUID"
+14 WRITE !,"IMPLEMENTATION STATUS file point to the first entry in the"
+15 WRITE !,"HDIS SYSTEM file"
+16 WRITE !,"*****",!!
+17 QUIT
End DoDot:2
+18 QUIT
End DoDot:1
+19 ;Make sure files in Vitals and Allergies domain are marked with
+20 ;implementation status code 6 (completed)
+21 WRITE !!,"Ensuring that VUID Seeding for the Vitals and Allergies"
+22 WRITE !,"files are marked as having run to completion (this prevents"
+23 WRITE !,"non-standard terms from being selectable) ..."
+24 FOR FILE=120.51,120.52,120.53,120.82,120.83
Begin DoDot:1
+25 WRITE "."
+26 ;Status code already '6'
+27 IF +$$GETSTAT^HDISVF01(FILE,.01)=6
QUIT
+28 ;Mark file as completed (status code '6')
+29 DO SETSTAT^HDISVF01(FILE,.01,6)
+30 QUIT
End DoDot:1
+31 QUIT
+32 ;
VUIDLOAD ;Load/store non-standard VUIDs
+1 NEW LINE,DATA,FILE,TERM,VUID,STOP,FINDLIST,FINDERR,SEQ,IEN
+2 ;Initialize global arrays used
+3 SET FINDLIST=$NAME(^TMP("HDIZZ003",$JOB,"FINDLIST"))
+4 SET FINDERR=$NAME(^TMP("HDIZZ003",$JOB,"FINDERR"))
+5 KILL @FINDLIST,@FINDERR
+6 ;Loop through list of non-standard VUIDs to load
+7 WRITE !!,"Storing VUIDs and inactivating terms ..."
+8 SET STOP=0
+9 FOR LINE=1:1
Begin DoDot:1
+10 ;Get line of data
+11 SET DATA=$PIECE($TEXT(VUIDDATA+LINE),";;",2)
+12 ;Reached end of data lines
+13 IF DATA="$END"
SET STOP=1
QUIT
+14 ;Piece out data
+15 SET FILE=$PIECE(DATA,"^",1)
+16 SET TERM=$PIECE(DATA,"^",2)
+17 SET VUID=$PIECE(DATA,"^",3)
+18 ;Skip blank lines (used to visually separate files)
+19 if (FILE="")
QUIT
+20 ;Find matches for term
+21 KILL @FINDLIST,@FINDERR
+22 DO FIND^DIC(FILE,"",".01;99.99","QX",TERM,"*","B^","","",FINDLIST,FINDERR)
+23 ;Error
+24 IF $DATA(@FINDERR)
Begin DoDot:2
+25 WRITE !!,"*****"
+26 WRITE !,"FIND^DIC reported an error when attempting to find entries for"
+27 WRITE !,"""",TERM,""" in file number ",FILE
+28 WRITE !,"*****",!!
+29 QUIT
End DoDot:2
QUIT
+30 ;Term not found
+31 IF '$GET(@FINDLIST@("DILIST",0))
Begin DoDot:2
+32 WRITE !!,"*****"
+33 WRITE !,"FIND^DIC did not find any matches for"
+34 WRITE !,"""",TERM,""" in file number ",FILE
+35 WRITE !,"*****",!!
+36 QUIT
End DoDot:2
QUIT
+37 ;Loop through each match
+38 SET SEQ=0
+39 FOR
SET SEQ=+$ORDER(@FINDLIST@("DILIST","ID",SEQ))
if 'SEQ
QUIT
Begin DoDot:2
+40 WRITE "."
+41 ;Get entry number
+42 SET IEN=+$GET(@FINDLIST@("DILIST",2,SEQ))
+43 IF 'IEN
Begin DoDot:3
+44 ;IEN node missing
+45 WRITE !!,"*****"
+46 WRITE !,"IEN node missing for match number ",SEQ," of"
+47 WRITE !,"""",TERM,""" in file number ",FILE
+48 WRITE !,"*****",!!
+49 QUIT
End DoDot:3
QUIT
+50 ;VUID already defined
+51 IF $GET(@FINDLIST@("DILIST","ID",SEQ,99.99))'=""
Begin DoDot:3
+52 WRITE !!,"*****"
+53 WRITE !,"VUID already defined for IEN ",IEN," of"
+54 WRITE !,"""",TERM,""" in file number ",FILE
+55 WRITE !,"*****",!!
+56 QUIT
End DoDot:3
QUIT
+57 ;Store VUID
+58 IF '$$SETVUID^XTID(FILE,.01,IEN_",",VUID)
Begin DoDot:3
+59 WRITE !!,"*****"
+60 WRITE !,"Unable to store VUID for IEN ",IEN," of"
+61 WRITE !,"""",TERM,""" in file number ",FILE
+62 WRITE !,"*****",!!
+63 QUIT
End DoDot:3
QUIT
+64 ;Inactivate entry
+65 IF '$$SETSTAT^XTID(FILE,.01,IEN_",",0,3050801.0001)
Begin DoDot:3
+66 WRITE !!,"*****"
+67 WRITE !,"Unable to inactivate IEN ",IEN," of"
+68 WRITE !,"""",TERM,""" in file number ",FILE
+69 WRITE !,"*****",!!
+70 QUIT
End DoDot:3
QUIT
+71 QUIT
End DoDot:2
+72 QUIT
End DoDot:1
if STOP
QUIT
+73 KILL @FINDLIST,@FINDERR
+74 QUIT
+75 ;
+76 ;
VUIDDATA ;;File^Term^VUID
+1 ;;120.51^ABDOMINAL GIRTH^4536404
+2 ;;120.51^HEAD CIRCUMFERENCE^4536405
+3 ;;
+4 ;;120.52^ADULT^4536409
+5 ;;120.52^CUFF^4536408
+6 ;;120.52^LG ADULT^4536411
+7 ;;120.52^OTHER^4536406
+8 ;;120.52^PEDIATRIC^4536412
+9 ;;120.52^SM ADULT^4536410
+10 ;;
+11 ;;120.82^ANTIRABIES SERUM^4538526
+12 ;;120.82^ASPIRIN^4538527
+13 ;;120.82^AUROTHIOGLUCOSE (SESAME OIL)^4636954
+14 ;;120.82^BANANA^4636707
+15 ;;120.82^BCG VACCINE^4538528
+16 ;;120.82^BENZALKONIUM CHLORIDE^4538529
+17 ;;120.82^BISMUTH SUBSALICYLATE^4538530
+18 ;;120.82^BOTULISM ANTITOXIN^4538531
+19 ;;120.82^BROAD BEANS^4690957
+20 ;;120.82^BUTTERSCOTCH FLAVORING^4538532
+21 ;;120.82^CALCITONIN, SALMON^4538534
+22 ;;120.82^CETYLPYRIDINIUM^4538536
+23 ;;120.82^CITRATED CAFFEINE^4538537
+24 ;;120.82^DIGOXIN IMMUNE FAB (OVINE)^4538538
+25 ;;120.82^DIPHTHERIA ANTITOXIN, EQUINE^4538539
+26 ;;120.82^DIPHTHERIA TOXOID^4538540
+27 ;;120.82^ESTRADIOL CYPIONATE^4538541
+28 ;;120.82^F D & C BLUE #2^4018104
+29 ;;120.82^F D & C GREEN #6^4019324
+30 ;;120.82^F D & C RED #3^4019486
+31 ;;120.82^F D & C RED #40^4019362
+32 ;;120.82^F D & C RED #40 LAKE^4019363
+33 ;;120.82^F D & C YELLOW #6^4019360
+34 ;;120.82^F D & C YELLOW #6 LAKE^4019361
+35 ;;120.82^FLUPHENAZINE DECANOATE^4538542
+36 ;;120.82^FOOD STARCH, MODIFIED^4637464
+37 ;;120.82^GOLD SODIUM THIOMALATE^4538543
+38 ;;120.82^HEPARIN SODIUM (BEEF LUNG)^4538544
+39 ;;120.82^HEPARIN SODIUM (PORK)^4538545
+40 ;;120.82^HORSE SERUM^4541611
+41 ;;120.82^INSULIN^4538546
+42 ;;120.82^IODINE^4538521
+43 ;;120.82^IRON FILLINGS^4538522
+44 ;;120.82^METHYLCELLULOSE^4538535
+45 ;;120.82^NAFARELIN ACETATE^4538547
+46 ;;120.82^NANDROLONE, ETC^4538548
+47 ;;120.82^OTHER ALLERGY/ADVERSE REACTION^4538520
+48 ;;120.82^PARA-AMINOBENZOIC ACID^4538549
+49 ;;120.82^PARABEN^4538533
+50 ;;120.82^PINEAPPLE^4637343
+51 ;;120.82^POTASSIUM IODIDE^4538550
+52 ;;120.82^POTATO^4636964
+53 ;;120.82^POVIDONE IODINE^4538551
+54 ;;120.82^PSYLLIUM^4538552
+55 ;;120.82^RABIES IMMUNE GLOBULIN^4538553
+56 ;;120.82^RED FOOD DYE^4538524
+57 ;;120.82^SALICYLAMIDE^4538554
+58 ;;120.82^SALICYLIC ACID^4538555
+59 ;;120.82^SHELL FISH^4636953
+60 ;;120.82^SOY BEANS^4636950
+61 ;;120.82^TARTARIC ACID^4538556
+62 ;;120.82^TESTOSTERONE^4538557
+63 ;;120.82^TOMATO^4637354
+64 ;;120.82^VASOPRESSIN TANNATE (IN OIL)^4538558
+65 ;;
+66 ;;120.83^AGITATION^4538582
+67 ;;120.83^APPETITE,INCREASED^4538583
+68 ;;120.83^ARRHYTHMIA^4538584
+69 ;;120.83^BRACHYCARDIA^4538585
+70 ;;120.83^BREAST ENGORGEMENT^4538586
+71 ;;120.83^CHILLS^4538587
+72 ;;120.83^CONFUSION^4538568
+73 ;;120.83^CONGESTION,NASAL^4538588
+74 ;;120.83^CONJUNCTIVAL CONGESTION^4538589
+75 ;;120.83^COUGHING^4538572
+76 ;;120.83^DEAFNESS^4538591
+77 ;;120.83^DELERIUM^4538592
+78 ;;120.83^DELUSION^4538569
+79 ;;120.83^DEPRESSION,MENTAL^4538624
+80 ;;120.83^DEPRESSION,POSTICTAL^4538590
+81 ;;120.83^DERMATITIS,CONTACT^4538604
+82 ;;120.83^DERMATITIS,PHOTOALLERGENIC^4538605
+83 ;;120.83^DISTURBED COORDINATION^4538594
+84 ;;120.83^DREAMING,INCREASED^4538595
+85 ;;120.83^DROWSINESS^4538596
+86 ;;120.83^DRY NOSE^4538599
+87 ;;120.83^DRY THROAT^4538598
+88 ;;120.83^ECG CHANGES^4538600
+89 ;;120.83^EPIGASTRIC DISTRESS^4538601
+90 ;;120.83^EXCITATION^4538602
+91 ;;120.83^FACE FLUSHED^4538609
+92 ;;120.83^FACIAL DYSKINESIA^4538606
+93 ;;120.83^FAINTNESS^4538607
+94 ;;120.83^FEELING OF WARMTH^4538608
+95 ;;120.83^GI REACTION^4538570
+96 ;;120.83^HEMOGLOBIN,INCREASED^4538611
+97 ;;120.83^HIVES^4541623
+98 ;;120.83^IMPAIRMENT OF ERECTION^4538614
+99 ;;120.83^INAPPROPRIATE PENILE ERECTION^4538615
+100 ;;120.83^IRRITABILITY^4538616
+101 ;;120.83^ITCHING,WATERING EYES^4538561
+102 ;;120.83^JUNCTIONAL RHYTHM^4538618
+103 ;;120.83^LABYRINTHITIS,ACUTE^4538623
+104 ;;120.83^LACRIMATION^4538617
+105 ;;120.83^LDH,INCREASED^4538619
+106 ;;120.83^LEUKOCYTE COUNT,DECREASED^4538620
+107 ;;120.83^LIBIDO,DECREASED^4538621
+108 ;;120.83^LIBIDO,INCREASED^4538622
+109 ;;120.83^MIOSIS^4538625
+110 ;;120.83^NAUSEA,VOMITING^4538564
+111 ;;120.83^NERVOUSNESS,AGITATION^4538566
+112 ;;120.83^NEUTROPHIL COUNT,DECREASED^4538627
+113 ;;120.83^ORGASM,INHIBITED^4538629
+114 ;;120.83^ORONASALPHARYNGEAL IRRITATION^4538626
+115 ;;120.83^OTHER REACTION^4538580
+116 ;;120.83^PAIN,JOINT^4538630
+117 ;;120.83^PARKINSONIAN-LIKE SYNDROME^4538631
+118 ;;120.83^POSSIBLE REACTION^4538562
+119 ;;120.83^PRURITIS^4538702
+120 ;;120.83^PURPURA^4538647
+121 ;;120.83^RALES^4538634
+122 ;;120.83^RASH,PAPULAR^4538638
+123 ;;120.83^RHINORRHEA^4538636
+124 ;;120.83^RHONCHUS^4538637
+125 ;;120.83^SEIZURES^4538640
+126 ;;120.83^SEIZURES,TONIC-CLONIC^4538639
+127 ;;120.83^SELF-DEPRECATION^4538641
+128 ;;120.83^SEVERE RASH^4538581
+129 ;;120.83^SHORTNESS OF BREATH^4538571
+130 ;;120.83^SINUS BRACHYCARDIA^4538642
+131 ;;120.83^SOMNOLENCE^4538643
+132 ;;120.83^SPEECH DISORDER^4538644
+133 ;;120.83^S-T CHANGES,TRANSIENT^4538645
+134 ;;120.83^SWELLING (NON-SPECIFIC)^4538574
+135 ;;120.83^SWELLING-EYES^4538575
+136 ;;120.83^SWELLING-LIPS^4538577
+137 ;;120.83^SWELLING-THROAT^4538576
+138 ;;120.83^TREMORS^4538648
+139 ;;120.83^URINARY FLOW,DELAYED^4538649
+140 ;;120.83^URINARY FREQUENCY^4538579
+141 ;;120.83^URINARY FREQUENCY,INCREASED^4538650
+142 ;;120.83^URINARY RETENTION^4538578
+143 ;;120.83^VISION,BLURRED^4538565
+144 ;;120.83^VISUAL DISTURBANCES^4538573
+145 ;;120.83^WEIGHT GAIN^4538651
+146 ;;
+147 ;;$END
