KIDS Distribution saved on Nov 04, 2014@06:27:56
added spreadsheet data
**KIDS**:PX*1.0*201^

**INSTALL NAME**
PX*1.0*201
"BLD",9071,0)
PX*1.0*201^PCE PATIENT CARE ENCOUNTER^0^3141104^y
"BLD",9071,1,0)
^9.61A^15^15^3140924^^
"BLD",9071,1,1,0)
The Veterans Health Information Systems and Technology Architecture
"BLD",9071,1,2,0)
(VistA) Immunizations Enhancements (VIMM) 1.0 project modifies existing
"BLD",9071,1,3,0)
immunization files and adds additional files to enable VA to quickly and
"BLD",9071,1,4,0)
reliably document and exchange standardized immunization information on
"BLD",9071,1,5,0)
beneficiaries across services and departments. Additionally, modifications
"BLD",9071,1,6,0)
support Certification for Meaningful Use as well as VistA Evolution
"BLD",9071,1,7,0)
requirements. This provides a Veteran patient-centric vaccine record
"BLD",9071,1,8,0)
exchangeable with the external community. Clinicians will have access to a
"BLD",9071,1,9,0)
more complete medical history in the VistA electronic medical record
"BLD",9071,1,10,0)
resulting in improved health status as well as public health monitoring.
"BLD",9071,1,11,0)
 
"BLD",9071,1,12,0)
The goals for the VIMM 1.0 project are to deliver an Initial Operating
"BLD",9071,1,13,0)
Capability comprised of standard, interoperable immunization data for
"BLD",9071,1,14,0)
exchange with external trading partners based on the modernization of
"BLD",9071,1,15,0)
the VistA Patient Care Encounter (PCE) package.
"BLD",9071,4,0)
^9.64PA^920.1^8
"BLD",9071,4,920,0)
920
"BLD",9071,4,920,222)
y^y^f^^n^^y^o^n
"BLD",9071,4,920.1,0)
920.1
"BLD",9071,4,920.1,222)
y^y^f^^n^^y^o^n
"BLD",9071,4,920.2,0)
920.2
"BLD",9071,4,920.2,222)
y^y^f^^n^^y^o^n
"BLD",9071,4,920.3,0)
920.3
"BLD",9071,4,920.3,222)
y^y^f^^n^^y^o^n
"BLD",9071,4,9000010.11,0)
9000010.11
"BLD",9071,4,9000010.11,222)
y^y^f^^^^n
"BLD",9071,4,9999999.04,0)
9999999.04
"BLD",9071,4,9999999.04,222)
y^y^f^^n^^y^o^n
"BLD",9071,4,9999999.14,0)
9999999.14
"BLD",9071,4,9999999.14,222)
y^y^f^^^^n
"BLD",9071,4,9999999.41,0)
9999999.41
"BLD",9071,4,9999999.41,222)
y^y^f^^^^n
"BLD",9071,4,"B",920,920)

"BLD",9071,4,"B",920.1,920.1)

"BLD",9071,4,"B",920.2,920.2)

"BLD",9071,4,"B",920.3,920.3)

"BLD",9071,4,"B",9000010.11,9000010.11)

"BLD",9071,4,"B",9999999.04,9999999.04)

"BLD",9071,4,"B",9999999.14,9999999.14)

"BLD",9071,4,"B",9999999.41,9999999.41)

"BLD",9071,6.3)
41
"BLD",9071,"ABPKG")
n
"BLD",9071,"INI")
PRE^PXVP201
"BLD",9071,"INIT")
POST^PXVP201
"BLD",9071,"KRN",0)
^9.67PA^779.2^20
"BLD",9071,"KRN",.4,0)
.4
"BLD",9071,"KRN",.401,0)
.401
"BLD",9071,"KRN",.402,0)
.402
"BLD",9071,"KRN",.402,"NM",0)
^9.68A^^0
"BLD",9071,"KRN",.403,0)
.403
"BLD",9071,"KRN",.5,0)
.5
"BLD",9071,"KRN",.84,0)
.84
"BLD",9071,"KRN",3.6,0)
3.6
"BLD",9071,"KRN",3.8,0)
3.8
"BLD",9071,"KRN",9.2,0)
9.2
"BLD",9071,"KRN",9.8,0)
9.8
"BLD",9071,"KRN",9.8,"NM",0)
^9.68A^7^7
"BLD",9071,"KRN",9.8,"NM",1,0)
PXVUTIL^^0^B3032993
"BLD",9071,"KRN",9.8,"NM",2,0)
PXVP201^^0^B70774804
"BLD",9071,"KRN",9.8,"NM",3,0)
PXVPST01^^0^B4321227
"BLD",9071,"KRN",9.8,"NM",4,0)
PXCEVIMM^^0^B56314311
"BLD",9071,"KRN",9.8,"NM",5,0)
PXCEAE1^^0^B23079983
"BLD",9071,"KRN",9.8,"NM",6,0)
PXKFIMM^^0^B2843857
"BLD",9071,"KRN",9.8,"NM",7,0)
PXCEVFI4^^0^B28425692
"BLD",9071,"KRN",9.8,"NM","B","PXCEAE1",5)

"BLD",9071,"KRN",9.8,"NM","B","PXCEVFI4",7)

"BLD",9071,"KRN",9.8,"NM","B","PXCEVIMM",4)

"BLD",9071,"KRN",9.8,"NM","B","PXKFIMM",6)

"BLD",9071,"KRN",9.8,"NM","B","PXVP201",2)

"BLD",9071,"KRN",9.8,"NM","B","PXVPST01",3)

"BLD",9071,"KRN",9.8,"NM","B","PXVUTIL",1)

"BLD",9071,"KRN",19,0)
19
"BLD",9071,"KRN",19,"NM",0)
^9.68A^2^2
"BLD",9071,"KRN",19,"NM",1,0)
PXTT EDIT IMMUNIZATIONS^^0
"BLD",9071,"KRN",19,"NM",2,0)
PXTT IN/ACTIVATE IMMUNIZATION^^0
"BLD",9071,"KRN",19,"NM","B","PXTT EDIT IMMUNIZATIONS",1)

"BLD",9071,"KRN",19,"NM","B","PXTT IN/ACTIVATE IMMUNIZATION",2)

"BLD",9071,"KRN",19.1,0)
19.1
"BLD",9071,"KRN",101,0)
101
"BLD",9071,"KRN",409.61,0)
409.61
"BLD",9071,"KRN",771,0)
771
"BLD",9071,"KRN",779.2,0)
779.2
"BLD",9071,"KRN",870,0)
870
"BLD",9071,"KRN",8989.51,0)
8989.51
"BLD",9071,"KRN",8989.52,0)
8989.52
"BLD",9071,"KRN",8994,0)
8994
"BLD",9071,"KRN","B",.4,.4)

"BLD",9071,"KRN","B",.401,.401)

"BLD",9071,"KRN","B",.402,.402)

"BLD",9071,"KRN","B",.403,.403)

"BLD",9071,"KRN","B",.5,.5)

"BLD",9071,"KRN","B",.84,.84)

"BLD",9071,"KRN","B",3.6,3.6)

"BLD",9071,"KRN","B",3.8,3.8)

"BLD",9071,"KRN","B",9.2,9.2)

"BLD",9071,"KRN","B",9.8,9.8)

"BLD",9071,"KRN","B",19,19)

"BLD",9071,"KRN","B",19.1,19.1)

"BLD",9071,"KRN","B",101,101)

"BLD",9071,"KRN","B",409.61,409.61)

"BLD",9071,"KRN","B",771,771)

"BLD",9071,"KRN","B",779.2,779.2)

"BLD",9071,"KRN","B",870,870)

"BLD",9071,"KRN","B",8989.51,8989.51)

"BLD",9071,"KRN","B",8989.52,8989.52)

"BLD",9071,"KRN","B",8994,8994)

"BLD",9071,"PRET")
PRETRAN^PXVP201
"BLD",9071,"QUES",0)
^9.62^^
"BLD",9071,"REQB",0)
^9.611^1^1
"BLD",9071,"REQB",1,0)
PX*1.0*199^2
"BLD",9071,"REQB","B","PX*1.0*199",1)

"DATA",920,1,0)
ADENOVIRUS VIS^3110714^H^1
"DATA",920,2,0)
ANTHRAX VIS^3100310^C^1
"DATA",920,3,0)
DIPHTHERIA/TETANUS/PERTUSSIS (DTAP) VIS^3070517^C^1
"DATA",920,4,0)
HEPATITIS A VIS^3111025^C^1
"DATA",920,5,0)
HEPATITIS B VIS^3120202^C^1
"DATA",920,6,0)
HAEMOPHILUS INFLUENZAE TYPE B VIS^2981216^H^1
"DATA",920,7,0)
HAEMOPHILUS INFLUENZAE TYPE B VIS^3140204^C^1
"DATA",920,8,0)
HUMAN PAPILLOMAVIRUS VACCINE (CERVARIX) VIS^3110503^C^1
"DATA",920,9,0)
HUMAN PAPILLOMAVIRUS VACCINE (GARDASIL) VIS^3120222^H^1
"DATA",920,10,0)
HUMAN PAPILLOMAVIRUS VACCINE (GARDASIL) VIS^3130517^C^1
"DATA",920,11,0)
INFLUENZA VACCINE - LIVE, INTRANASAL VIS^3120702^H^1
"DATA",920,12,0)
INFLUENZA VACCINE - LIVE, INTRANASAL VIS^3130726^H^1
"DATA",920,13,0)
INFLUENZA VACCINE - INACTIVATED VIS^3120702^H^1
"DATA",920,14,0)
INFLUENZA VACCINE - INACTIVATED VIS^3130726^H^1
"DATA",920,15,0)
JAPANESE ENCEPHALITIS VIS^3111207^H^1
"DATA",920,16,0)
JAPANESE ENCEPHALITIS VIS^3140124^C^1
"DATA",920,17,0)
MEASLES/MUMPS/RUBELLA VIS^3120420^C^1
"DATA",920,18,0)
MEASLES/MUMPS/RUBELLA/VARICELLA VIS^3100521^C^1
"DATA",920,19,0)
MENINGOCOCCAL VIS^3111014^C^1
"DATA",920,20,0)
PNEUMOCOCCAL CONJUGATE (PCV13) VIS^3100416^H^1
"DATA",920,21,0)
PNEUMOCOCCAL CONJUGATE (PCV13) VIS^3130227^C^1
"DATA",920,22,0)
PNEUMOCOCCAL POLYSACCHARIDE VIS^3091006^C^1
"DATA",920,23,0)
POLIO VIS^3111108^C^1
"DATA",920,24,0)
RABIES VIS^3091006^C^1
"DATA",920,25,0)
ROTAVIRUS VIS^3101206^H^1
"DATA",920,26,0)
ROTAVIRUS VIS^3130826^C^1
"DATA",920,27,0)
SHINGLES VIS^3091006^C^1
"DATA",920,28,0)
TETANUS/DIPHTHERIA/PERTUSSIS (TDAP/TD) VIS^3120124^H^1
"DATA",920,29,0)
TYPHOID VIS^3120529^C^1
"DATA",920,30,0)
VARICELLA (CHICKENPOX) VIS^3080313^C^1
"DATA",920,31,0)
YELLOW FEVER VIS^3110330^C^1
"DATA",920,32,0)
MULTIPLE VACCINES VIS^3121116^C^1
"DATA",920,33,0)
TETANUS/DIPHTHERIA/PERTUSSIS (TDAP) VIS^3130509^C^1
"DATA",920,34,0)
TETANUS/DIPHTHERIA (TD) VIS^3140204^C^1
"DATA",920,35,0)
ADENOVIRUS VIS^3140611^C^1
"DATA",920,36,0)
INFLUENZA VACCINE - INACTIVATED VIS^3140819^C^1
"DATA",920,37,0)
INFLUENZA VACCINE - LIVE, INTRANASAL VIS^3140819^C^1
"DATA",920.1,1,0)
New immunization record^00^0
"DATA",920.1,2,0)
Historical information -source unspecified^01
"DATA",920.1,3,0)
Historical information -from other provider^02
"DATA",920.1,4,0)
Historical information -from parent's written record^03
"DATA",920.1,5,0)
Historical information -from parent's recall^04
"DATA",920.1,6,0)
Historical information -from other registry^05
"DATA",920.1,7,0)
Historical information -from birth certificate^06
"DATA",920.1,8,0)
Historical information -from school record^07
"DATA",920.1,9,0)
Historical information -from public agency^08
"DATA",920.2,1,0)
INTRADERMAL^ID^C38238^Within of introduced between the layers of the skin.
"DATA",920.2,2,0)
INTRAMUSCULAR^IM^C28161^Within or into the substance of a muscle.
"DATA",920.2,3,0)
INTRAVENOUS^IV^C38276^Administered into a vein.
"DATA",920.2,4,0)
NASAL^NS^C38284^Given by nose.
"DATA",920.2,5,0)
ORAL^PO^C38288^Administered by mouth.
"DATA",920.2,6,0)
SUBCUTANEOUS^SC^C38299^Under the skin or between skin and muscles.
"DATA",920.2,7,0)
TRANSDERMAL^TD^C38305^Describes something, especially a drug, that is introduced into the body through the skin.
"DATA",920.2,8,0)
PERCUTANEOUS^^C38676^Made, done, or effected through the skin.
"DATA",920.2,9,0)
OTHER/MISCELLANEOUS^OTH
"DATA",920.3,1,0)
LEFT UPPER ARM^LA
"DATA",920.3,2,0)
LEFT DELTOID^LD
"DATA",920.3,3,0)
LEFT GLUTEOUS MEDIUS^LG
"DATA",920.3,4,0)
LEFT LOWER FOREARM^LLFA
"DATA",920.3,5,0)
LEFT THIGH^LT
"DATA",920.3,6,0)
LEFT VASTUS LATERALIS^LVL
"DATA",920.3,7,0)
RIGHT UPPER ARM^RA
"DATA",920.3,8,0)
RIGHT DELTOID^RD
"DATA",920.3,9,0)
RIGHT GLUTEOUS MEDIUS^RG
"DATA",920.3,10,0)
RIGHT LOWER FOREARM^RLFA
"DATA",920.3,11,0)
RIGHT THIGH^RT
"DATA",920.3,12,0)
RIGHT VASTUS LATERALIS^RVL
"DATA",9999999.04,1,0)
ABBOTT LABORATORIES^AB^0
"DATA",9999999.04,1,2)
includes Ross Products Division, Solvay
"DATA",9999999.04,2,0)
ACAMBIS, INC^ACA^1
"DATA",9999999.04,2,2)
acquired by sanofi in sept 2008
"DATA",9999999.04,3,0)
ADAMS LABORATORIES, INC.^AD^0
"DATA",9999999.04,4,0)
ALPHA THERAPEUTIC CORPORATION^ALP^0
"DATA",9999999.04,5,0)
ARMOUR^AR^1
"DATA",9999999.04,5,2)
part of CSL
"DATA",9999999.04,6,0)
AVENTIS BEHRING L.L.C.^AVB^1
"DATA",9999999.04,6,2)
part of CSL
"DATA",9999999.04,7,0)
AVIRON^AVI^1
"DATA",9999999.04,7,2)
acquired by Medimmune
"DATA",9999999.04,8,0)
BAXTER HEALTHCARE CORPORATION-INACTIVE^BA^1
"DATA",9999999.04,9,0)
BAXTER HEALTHCARE CORPORATION^BAH^0
"DATA",9999999.04,9,2)
includes Hyland Immuno, Immuno International AG,and North American Vaccine, Inc./acquired some assets from alpha therapeutics
"DATA",9999999.04,10,0)
BAYER CORPORATION^BAY^1
"DATA",9999999.04,10,2)
Bayer Biologicals now owned by Talecris
"DATA",9999999.04,11,0)
BERNA PRODUCTS^BP^1
"DATA",9999999.04,12,0)
BERNA PRODUCTS CORPORATION^BPC^0
"DATA",9999999.04,12,2)
includes Swiss Serum and Vaccine Institute Berne
"DATA",9999999.04,13,0)
BIOTEST PHARMACEUTICALS CORPORATION^BTP^0
"DATA",9999999.04,13,2)
New owner of NABI HB as of December 2007, Does NOT replace NABI Biopharmaceuticals in this code list.
"DATA",9999999.04,14,0)
EMERGENT BIODEFENSE OPERATIONS LANSING^MIP^0
"DATA",9999999.04,14,2)
A unit of Emergent BioSolutions, Bioport renamed. Formerly Michigan Biologic Products Institute
"DATA",9999999.04,15,0)
CSL BEHRING, INC^CSL^0
"DATA",9999999.04,15,2)
CSL Biotherapies renamed to CSL Behring
"DATA",9999999.04,16,0)
CANGENE CORPORATION^CNJ^1
"DATA",9999999.04,16,2)
Purchased by Emergent Biosolutions
"DATA",9999999.04,17,0)
CELLTECH MEDEVA PHARMACEUTICALS^CMP^1
"DATA",9999999.04,17,2)
Part of Novartis
"DATA",9999999.04,18,0)
CENTEON L.L.C.^CEN^1
"DATA",9999999.04,19,0)
CHIRON CORPORATION^CHI^1
"DATA",9999999.04,19,2)
Part of Novartis
"DATA",9999999.04,20,0)
CONNAUGHT^CON^1
"DATA",9999999.04,20,2)
acquired by Merieux
"DATA",9999999.04,21,0)
DYNPORT VACCINE COMPANY, LLC^DVC^0
"DATA",9999999.04,22,0)
EVANS MEDICAL LIMITED^EVN^1
"DATA",9999999.04,22,2)
Part of Novartis
"DATA",9999999.04,23,0)
GEOVAX LABS, INC.^GEO^0
"DATA",9999999.04,24,0)
GLAXOSMITHKLINE^SKB^0
"DATA",9999999.04,24,2)
includes SmithKline Beecham and Glaxo Wellcome
"DATA",9999999.04,25,0)
GREER LABORATORIES, INC.^GRE^0
"DATA",9999999.04,26,0)
IMMUNO INTERNATIONAL AG^IAG^1
"DATA",9999999.04,26,2)
Part of Baxter
"DATA",9999999.04,27,0)
IMMUNO-U.S., INC.^IUS^0
"DATA",9999999.04,28,0)
INTERCELL BIOMEDICAL^INT^0
"DATA",9999999.04,29,0)
KOREA GREEN CROSS CORPORATION^KGC^0
"DATA",9999999.04,30,0)
LEDERLE^LED^1
"DATA",9999999.04,30,2)
became a part of WAL, now owned by Pfizer
"DATA",9999999.04,31,0)
MASSACHUSETTS BIOLOGIC LABORATORIES^MBL^0
"DATA",9999999.04,31,2)
formerly Massachusetts Public Health Biologic Laboratories
"DATA",9999999.04,32,0)
MASSACHUSETTS PUBLIC HEALTH BIOLOGIC LABORATORIES^MA^1
"DATA",9999999.04,33,0)
MEDIMMUNE, INC.^MED^0
"DATA",9999999.04,33,2)
acquisitions of U.S. Bioscience in 1999 and Aviron in 2002, as well as the integration with Cambridge Antibody Technology and the strategic alignment with our new parent company, AstraZeneca, in 2007.
"DATA",9999999.04,34,0)
MERCK AND CO., INC.^MSD^0
"DATA",9999999.04,35,0)
MERIEUX^IM^1
"DATA",9999999.04,35,2)
Part of sanofi
"DATA",9999999.04,36,0)
MILES^MIL^1
"DATA",9999999.04,37,0)
NABI^NAB^0
"DATA",9999999.04,37,2)
formerly North American Biologicals, Inc.
"DATA",9999999.04,38,0)
NEW YORK BLOOD CENTER^NYB^0
"DATA",9999999.04,39,0)
NORTH AMERICAN VACCINE, INC.^NAV^1
"DATA",9999999.04,39,2)
part of Baxter
"DATA",9999999.04,40,0)
NOVARTIS PHARMACEUTICAL CORPORATION^NOV^0
"DATA",9999999.04,40,2)
includes Chiron, PowderJect Pharmaceuticals, Celltech Medeva Vaccines and Evans Limited, Ciba-Geigy Limited and Sandoz Limited
"DATA",9999999.04,41,0)
NOVAVAX, INC.^NVX^0
"DATA",9999999.04,42,0)
ORGANON TEKNIKA CORPORATION^OTC^0
"DATA",9999999.04,43,0)
ORTHO-CLINICAL DIAGNOSTICS^ORT^0
"DATA",9999999.04,43,2)
a J & J company (formerly Ortho Diagnostic Systems, Inc.)
"DATA",9999999.04,44,0)
PARKEDALE PHARMACEUTICALS^PD^1
"DATA",9999999.04,44,2)
no website and no news articles (formerly Parke-Davis)
"DATA",9999999.04,45,0)
POWDERJECT PHARMACEUTICALS^PWJ^1
"DATA",9999999.04,45,2)
See Novartis
"DATA",9999999.04,46,0)
PRAXIS BIOLOGICS^PRX^1
"DATA",9999999.04,46,2)
became a part of WAL, now owned by Pfizer
"DATA",9999999.04,47,0)
THE RESEARCH FOUNDATION FOR MICROBIAL DISEASES OF OSAKA UNIVERSITY (BIKEN)^JPN^0
"DATA",9999999.04,48,0)
SANOFI PASTEUR^PMC^0
"DATA",9999999.04,48,2)
formerly Aventis Pasteur, Pasteur Merieux Connaught; includes Connaught Laboratories and Pasteur Merieux. Acquired ACAMBIS.
"DATA",9999999.04,49,0)
SCLAVO, INC.^SCL^0
"DATA",9999999.04,50,0)
SOLVAY PHARMACEUTICALS^SOL^1
"DATA",9999999.04,50,2)
Part of Abbott
"DATA",9999999.04,51,0)
SWISS SERUM AND VACCINE INST.^SI^1
"DATA",9999999.04,51,2)
Part of Berna
"DATA",9999999.04,52,0)
TALECRIS BIOTHERAPEUTICS^TAL^0
"DATA",9999999.04,52,2)
includes Bayer Biologicals
"DATA",9999999.04,53,0)
UNITED STATES ARMY MEDICAL RESEARCH AND MATERIAL COMMAND^USA^0
"DATA",9999999.04,54,0)
VAXGEN^VXG^1
"DATA",9999999.04,54,2)
acquired by Emergent Biodefense Operations Lansing, Inc
"DATA",9999999.04,55,0)
WYETH-AYERST^WA^1
"DATA",9999999.04,55,2)
became WAL, now owned by Pfizer
"DATA",9999999.04,56,0)
WYETH^WAL^0
"DATA",9999999.04,56,2)
acquired by Pfizer 10/15/2009
"DATA",9999999.04,57,0)
ZLB BEHRING^ZLB^1
"DATA",9999999.04,57,2)
acquired by CSL
"DATA",9999999.04,58,0)
OTHER MANUFACTURER^OTH^0
"DATA",9999999.04,59,0)
UNKNOWN MANUFACTURER^UNK^0
"DATA",9999999.04,60,0)
AKORN, INC^AKR^0
"DATA",9999999.04,61,0)
PFIZER, INC^PFR^0
"DATA",9999999.04,61,2)
includes Wyeth-Lederle Vaccines and Pediatrics, Wyeth Laboratories, Lederle Laboratories, and Praxis Biologics,
"DATA",9999999.04,62,0)
BARR LABORATORIES^BRR^0
"DATA",9999999.04,62,2)
Subsidiary of Teva Pharmaceuticals
"DATA",9999999.04,63,0)
JOHNSON AND JOHNSON^JNJ^0
"DATA",9999999.04,63,2)
acquired CRUCELL which acquired Berna
"DATA",9999999.04,64,0)
PROTEIN SCIENCES^PSC^0
"DATA",9999999.04,65,0)
ID BIOMEDICAL^IDB^0
"DATA",9999999.04,66,0)
GRIFOLS^GRF^0
"DATA",9999999.04,67,0)
CRUCELL^CRU^0
"DATA",9999999.04,67,2)
acquired Berna,  now a J & J company
"DATA",9999999.04,68,0)
KEDRIAN BIOPHARMA^KED^0
"DATA",9999999.04,68,2)
acquired Rho(D) from Ortho
"FIA",920)
VACCINE INFORMATION STATEMENT
"FIA",920,0)
^AUTTIVIS(
"FIA",920,0,0)
920I
"FIA",920,0,1)
y^y^f^^n^^y^o^n
"FIA",920,0,10)

"FIA",920,0,11)

"FIA",920,0,"RLRO")

"FIA",920,0,"VR")
1.0^PX
"FIA",920,920)
0
"FIA",920,920.02)
0
"FIA",920,920.99)
0
"FIA",920.1)
IMMUNIZATION INFO SOURCE
"FIA",920.1,0)
^PXV(920.1,
"FIA",920.1,0,0)
920.1I
"FIA",920.1,0,1)
y^y^f^^n^^y^o^n
"FIA",920.1,0,10)

"FIA",920.1,0,11)

"FIA",920.1,0,"RLRO")

"FIA",920.1,0,"VR")
1.0^PX
"FIA",920.1,920.1)
0
"FIA",920.2)
IMM ADMINISTRATION ROUTE
"FIA",920.2,0)
^PXV(920.2,
"FIA",920.2,0,0)
920.2I
"FIA",920.2,0,1)
y^y^f^^n^^y^o^n
"FIA",920.2,0,10)

"FIA",920.2,0,11)

"FIA",920.2,0,"RLRO")

"FIA",920.2,0,"VR")
1.0^PX
"FIA",920.2,920.2)
0
"FIA",920.2,920.299)
0
"FIA",920.3)
IMM ADMINISTRATION SITE (BODY)
"FIA",920.3,0)
^PXV(920.3,
"FIA",920.3,0,0)
920.3I
"FIA",920.3,0,1)
y^y^f^^n^^y^o^n
"FIA",920.3,0,10)

"FIA",920.3,0,11)

"FIA",920.3,0,"RLRO")

"FIA",920.3,0,"VR")
1.0^PX
"FIA",920.3,920.3)
0
"FIA",920.3,920.399)
0
"FIA",9000010.11)
V IMMUNIZATION
"FIA",9000010.11,0)
^AUPNVIMM(
"FIA",9000010.11,0,0)
9000010.11IP
"FIA",9000010.11,0,1)
y^y^f^^^^n
"FIA",9000010.11,0,10)

"FIA",9000010.11,0,11)

"FIA",9000010.11,0,"RLRO")

"FIA",9000010.11,0,"VR")
1.0^PX
"FIA",9000010.11,9000010.11)
0
"FIA",9000010.11,9000010.1111)
0
"FIA",9000010.11,9000010.112)
0
"FIA",9000010.11,9000010.1126)
0
"FIA",9000010.11,9000010.1127)
0
"FIA",9000010.11,9000010.113)
0
"FIA",9999999.04)
IMM MANUFACTURER
"FIA",9999999.04,0)
^AUTTIMAN(
"FIA",9999999.04,0,0)
9999999.04I
"FIA",9999999.04,0,1)
y^y^f^^n^^y^o^n
"FIA",9999999.04,0,10)

"FIA",9999999.04,0,11)

"FIA",9999999.04,0,"RLRO")

"FIA",9999999.04,0,"VR")
1.0^PX
"FIA",9999999.04,9999999.04)
0
"FIA",9999999.04,9999999.0411)
0
"FIA",9999999.04,9999999.0499)
0
"FIA",9999999.14)
IMMUNIZATION
"FIA",9999999.14,0)
^AUTTIMM(
"FIA",9999999.14,0,0)
9999999.14I
"FIA",9999999.14,0,1)
y^y^f^^^^n
"FIA",9999999.14,0,10)

"FIA",9999999.14,0,11)

"FIA",9999999.14,0,"RLRO")

"FIA",9999999.14,0,"VR")
1.0^PX
"FIA",9999999.14,9999999.14)
0
"FIA",9999999.14,9999999.141)
0
"FIA",9999999.14,9999999.142)
0
"FIA",9999999.14,9999999.143)
0
"FIA",9999999.14,9999999.1431)
0
"FIA",9999999.14,9999999.144)
0
"FIA",9999999.14,9999999.145)
0
"FIA",9999999.14,9999999.1499)
0
"FIA",9999999.41)
IMMUNIZATION LOT
"FIA",9999999.41,0)
^AUTTIML(
"FIA",9999999.41,0,0)
9999999.41I
"FIA",9999999.41,0,1)
y^y^f^^^^n
"FIA",9999999.41,0,10)

"FIA",9999999.41,0,11)

"FIA",9999999.41,0,"RLRO")

"FIA",9999999.41,0,"VR")
1.0^PX
"FIA",9999999.41,9999999.41)
0
"INI")
PRE^PXVP201
"INIT")
POST^PXVP201
"IX",920,920,"AMASTERVUID",0)
920^AMASTERVUID^This cross-reference identifies the Master entry for a VUID.^R^^R^IR^I^920^^^^^S
"IX",920,920,"AMASTERVUID",.1,0)
^^3^3^3140520^
"IX",920,920,"AMASTERVUID",.1,1,0)
If multiple entries have the same VUID in the file, this cross-reference 
"IX",920,920,"AMASTERVUID",.1,2,0)
can be used to identify the Master entry for a VUID associated with a 
"IX",920,920,"AMASTERVUID",.1,3,0)
Term/Concept.
"IX",920,920,"AMASTERVUID",1)
S ^AUTTIVIS("AMASTERVUID",$E(X(1),1,30),X(2),DA)=""
"IX",920,920,"AMASTERVUID",2)
K ^AUTTIVIS("AMASTERVUID",$E(X(1),1,30),X(2),DA)
"IX",920,920,"AMASTERVUID",2.5)
K ^AUTTIVIS("AMASTERVUID")
"IX",920,920,"AMASTERVUID",11.1,0)
^.114IA^2^2
"IX",920,920,"AMASTERVUID",11.1,1,0)
1^F^920^99.99^30^1^F
"IX",920,920,"AMASTERVUID",11.1,1,3)

"IX",920,920,"AMASTERVUID",11.1,2,0)
2^F^920^99.98^^2^F
"IX",920,920,"AMASTERVUID",11.1,2,3)

"IX",9000010.11,9000010.11,"ACR",0)
9000010.11^ACR^Clinical Reminders index.^MU^^R^IR^I^9000010.11^^^^^A
"IX",9000010.11,9000010.11,"ACR",.1,0)
^^8^8^3081110
"IX",9000010.11,9000010.11,"ACR",.1,1,0)
This cross-reference builds two indexes, one for finding
"IX",9000010.11,9000010.11,"ACR",.1,2,0)
all patients with a particular immunization and one for finding all
"IX",9000010.11,9000010.11,"ACR",.1,3,0)
the immunizations a patient has.
"IX",9000010.11,9000010.11,"ACR",.1,4,0)
The indexes are stored in the Clinical Reminders index global as:
"IX",9000010.11,9000010.11,"ACR",.1,5,0)
 ^PXRMINDX(9000010.11,"IP",IMMUNIZATION,DFN,VISIT DATE,DAS) and
"IX",9000010.11,9000010.11,"ACR",.1,6,0)
 ^PXRMINDX(9000010.11,"PI",DFN,IMMUNIZATION,VISIT DATE,DAS)
"IX",9000010.11,9000010.11,"ACR",.1,7,0)
respectively.
"IX",9000010.11,9000010.11,"ACR",.1,8,0)
For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual.
"IX",9000010.11,9000010.11,"ACR",1)
D SVFILE^PXPXRM(9000010.11,.X,.DA)
"IX",9000010.11,9000010.11,"ACR",2)
D KVFILE^PXPXRM(9000010.11,.X,.DA)
"IX",9000010.11,9000010.11,"ACR",2.5)
K ^PXRMINDX(9000010.11)
"IX",9000010.11,9000010.11,"ACR",11.1,0)
^.114IA^3^3
"IX",9000010.11,9000010.11,"ACR",11.1,1,0)
1^F^9000010.11^.01^^1^F
"IX",9000010.11,9000010.11,"ACR",11.1,2,0)
2^F^9000010.11^.02^^2^F
"IX",9000010.11,9000010.11,"ACR",11.1,3,0)
3^F^9000010.11^.03^^3^F
"IX",9999999.04,9999999.04,"AMASTERVUID",0)
9999999.04^AMASTERVUID^This cross-reference identifies the Master entry for a VUID.^R^^R^IR^I^9999999.04^^^^^S
"IX",9999999.04,9999999.04,"AMASTERVUID",.1,0)
^^3^3^3140521^
"IX",9999999.04,9999999.04,"AMASTERVUID",.1,1,0)
If multiple entries have the same VUID in the file, this cross-reference 
"IX",9999999.04,9999999.04,"AMASTERVUID",.1,2,0)
can be used to identify the Master entry for a VUID associated with a 
"IX",9999999.04,9999999.04,"AMASTERVUID",.1,3,0)
Term/Concept.
"IX",9999999.04,9999999.04,"AMASTERVUID",1)
S ^AUTTIMAN("AMASTERVUID",$E(X(1),1,30),X(2),DA)=""
"IX",9999999.04,9999999.04,"AMASTERVUID",2)
K ^AUTTIMAN("AMASTERVUID",$E(X(1),1,30),X(2),DA)
"IX",9999999.04,9999999.04,"AMASTERVUID",2.5)
K ^AUTTIMAN("AMASTERVUID")
"IX",9999999.04,9999999.04,"AMASTERVUID",11.1,0)
^.114IA^2^2
"IX",9999999.04,9999999.04,"AMASTERVUID",11.1,1,0)
1^F^9999999.04^99.99^30^1^F
"IX",9999999.04,9999999.04,"AMASTERVUID",11.1,2,0)
2^F^9999999.04^99.98^^2^F
"IX",9999999.14,9999999.14,"AMASTERVUID",0)
9999999.14^AMASTERVUID^This cross-reference identifies the Master entry for a VUID.^R^^R^IR^I^9999999.14^^^^^S
"IX",9999999.14,9999999.14,"AMASTERVUID",.1,0)
^^3^3^3140520^
"IX",9999999.14,9999999.14,"AMASTERVUID",.1,1,0)
If multiple entries have the same VUID in the file, this cross-reference 
"IX",9999999.14,9999999.14,"AMASTERVUID",.1,2,0)
can be used to identify the Master entry for a VUID associated with a 
"IX",9999999.14,9999999.14,"AMASTERVUID",.1,3,0)
Term/Concept.
"IX",9999999.14,9999999.14,"AMASTERVUID",1)
S ^AUTTIMM("AMASTERVUID",$E(X(1),1,30),X(2),DA)=""
"IX",9999999.14,9999999.14,"AMASTERVUID",2)
K ^AUTTIMM("AMASTERVUID",$E(X(1),1,30),X(2),DA)
"IX",9999999.14,9999999.14,"AMASTERVUID",2.5)
K ^AUTTIMM("AMASTERVUID")
"IX",9999999.14,9999999.14,"AMASTERVUID",11.1,0)
^.114IA^2^2
"IX",9999999.14,9999999.14,"AMASTERVUID",11.1,1,0)
1^F^9999999.14^99.99^30^1^F
"IX",9999999.14,9999999.14,"AMASTERVUID",11.1,2,0)
2^F^9999999.14^99.98^^2^F
"KRN",19,9859,-1)
0^1
"KRN",19,9859,0)
PXTT EDIT IMMUNIZATIONS^Immunizations Add/Edit^Do not use! Placed out of order by PX*1*201^E^^^^^^^n^^^1^1
"KRN",19,9859,1,0)
^19.06^23^23^3140627^^^
"KRN",19,9859,1,1,0)
This option allows a user to create a new Immunization type or edit an
"KRN",19,9859,1,2,0)
existing Immunization type that was originally created at your site.
"KRN",19,9859,1,3,0)
Immunizations that are distributed with the PCE package can be inactivated
"KRN",19,9859,1,4,0)
using the PCE "Activate/Inactivate Table Items" menu.
"KRN",19,9859,1,5,0)
 
"KRN",19,9859,1,6,0)
Once an immunization is defined in this table, it should not be deleted if
"KRN",19,9859,1,7,0)
there is any encounter form definitions which may be referencing the
"KRN",19,9859,1,8,0)
immunization, or if there is any patient encounter data which may be
"KRN",19,9859,1,9,0)
referencing this term historically.  Use the "Inactive Flag" field to make
"KRN",19,9859,1,10,0)
an immunization "INACTIVE" for selection in the Encounter form definition
"KRN",19,9859,1,11,0)
process and the PCE encounter data entry process.
"KRN",19,9859,1,12,0)
 
"KRN",19,9859,1,13,0)
If the immunization being edited is not local, then only the CVX CODE can 
"KRN",19,9859,1,14,0)
be edited.
"KRN",19,9859,1,15,0)
 
"KRN",19,9859,1,16,0)
 
"KRN",19,9859,1,17,0)
If immunization types are to be included on the clinic's encounter form,
"KRN",19,9859,1,18,0)
the immunization types must first be defined in the Immunization file
"KRN",19,9859,1,19,0)
using this option.
"KRN",19,9859,1,20,0)
 
"KRN",19,9859,1,21,0)
The scanning of encounter forms with the AICS package will provide PCE
"KRN",19,9859,1,22,0)
with patient immunization information which is stored in the V
"KRN",19,9859,1,23,0)
IMMUNIZATION file.
"KRN",19,9859,15)
K PXTDUZ,PXNAT,PXB
"KRN",19,9859,20)
D ZERO^PXTTU1("^AUTTIMM(",$G(PXNAT))
"KRN",19,9859,30)
AUTTIMM(
"KRN",19,9859,31)
QAMEZL
"KRN",19,9859,34)

"KRN",19,9859,40)

"KRN",19,9859,41)

"KRN",19,9859,50)
AUTTIMM(
"KRN",19,9859,51)
.01;.07;.02;8801
"KRN",19,9859,53)
BACKOUTOK
"KRN",19,9859,"U")
IMMUNIZATIONS ADD/EDIT
"KRN",19,9877,-1)
0^2
"KRN",19,9877,0)
PXTT IN/ACTIVATE IMMUNIZATION^Immunizations^Do not use! Placed out of order by PX*1*201^E^^^^^^^n^
"KRN",19,9877,1,0)
^19.06^2^2^3140627^^
"KRN",19,9877,1,1,0)
This option allows you to toggle the Inactive flag on an Immunization
"KRN",19,9877,1,2,0)
entry found in the IMMUNIZATION file.
"KRN",19,9877,30)
AUTTIMM(
"KRN",19,9877,31)
QAMEZ
"KRN",19,9877,50)
AUTTIMM(
"KRN",19,9877,51)
.07
"KRN",19,9877,53)
BACKOUTOK
"KRN",19,9877,"U")
IMMUNIZATIONS
"MBREQ")
0
"ORD",18,19)
19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA
"ORD",18,19,0)
OPTION
"PKG",507,-1)
1^1
"PKG",507,0)
PCE PATIENT CARE ENCOUNTER^PX^Patient Care Encounter
"PKG",507,20,0)
^9.402P^^
"PKG",507,22,0)
^9.49I^1^1
"PKG",507,22,1,0)
1.0^2960812^2960912^10958
"PKG",507,22,1,"PAH",1,0)
201^3141104
"PKG",507,22,1,"PAH",1,1,0)
^^15^15^3141104
"PKG",507,22,1,"PAH",1,1,1,0)
The Veterans Health Information Systems and Technology Architecture
"PKG",507,22,1,"PAH",1,1,2,0)
(VistA) Immunizations Enhancements (VIMM) 1.0 project modifies existing
"PKG",507,22,1,"PAH",1,1,3,0)
immunization files and adds additional files to enable VA to quickly and
"PKG",507,22,1,"PAH",1,1,4,0)
reliably document and exchange standardized immunization information on
"PKG",507,22,1,"PAH",1,1,5,0)
beneficiaries across services and departments. Additionally, modifications
"PKG",507,22,1,"PAH",1,1,6,0)
support Certification for Meaningful Use as well as VistA Evolution
"PKG",507,22,1,"PAH",1,1,7,0)
requirements. This provides a Veteran patient-centric vaccine record
"PKG",507,22,1,"PAH",1,1,8,0)
exchangeable with the external community. Clinicians will have access to a
"PKG",507,22,1,"PAH",1,1,9,0)
more complete medical history in the VistA electronic medical record
"PKG",507,22,1,"PAH",1,1,10,0)
resulting in improved health status as well as public health monitoring.
"PKG",507,22,1,"PAH",1,1,11,0)
 
"PKG",507,22,1,"PAH",1,1,12,0)
The goals for the VIMM 1.0 project are to deliver an Initial Operating
"PKG",507,22,1,"PAH",1,1,13,0)
Capability comprised of standard, interoperable immunization data for
"PKG",507,22,1,"PAH",1,1,14,0)
exchange with external trading partners based on the modernization of
"PKG",507,22,1,"PAH",1,1,15,0)
the VistA Patient Care Encounter (PCE) package.
"QUES","XPF1",0)
Y
"QUES","XPF1","??")
^D REP^XPDH
"QUES","XPF1","A")
Shall I write over your |FLAG| File
"QUES","XPF1","B")
YES
"QUES","XPF1","M")
D XPF1^XPDIQ
"QUES","XPF2",0)
Y
"QUES","XPF2","??")
^D DTA^XPDH
"QUES","XPF2","A")
Want my data |FLAG| yours
"QUES","XPF2","B")
YES
"QUES","XPF2","M")
D XPF2^XPDIQ
"QUES","XPI1",0)
YO
"QUES","XPI1","??")
^D INHIBIT^XPDH
"QUES","XPI1","A")
Want KIDS to INHIBIT LOGONs during the install
"QUES","XPI1","B")
NO
"QUES","XPI1","M")
D XPI1^XPDIQ
"QUES","XPM1",0)
PO^VA(200,:EM
"QUES","XPM1","??")
^D MG^XPDH
"QUES","XPM1","A")
Enter the Coordinator for Mail Group '|FLAG|'
"QUES","XPM1","B")

"QUES","XPM1","M")
D XPM1^XPDIQ
"QUES","XPO1",0)
Y
"QUES","XPO1","??")
^D MENU^XPDH
"QUES","XPO1","A")
Want KIDS to Rebuild Menu Trees Upon Completion of Install
"QUES","XPO1","B")
NO
"QUES","XPO1","M")
D XPO1^XPDIQ
"QUES","XPZ1",0)
Y
"QUES","XPZ1","??")
^D OPT^XPDH
"QUES","XPZ1","A")
Want to DISABLE Scheduled Options, Menu Options, and Protocols
"QUES","XPZ1","B")
NO
"QUES","XPZ1","M")
D XPZ1^XPDIQ
"QUES","XPZ2",0)
Y
"QUES","XPZ2","??")
^D RTN^XPDH
"QUES","XPZ2","A")
Want to MOVE routines to other CPUs
"QUES","XPZ2","B")
NO
"QUES","XPZ2","M")
D XPZ2^XPDIQ
"RTN")
7
"RTN","PXCEAE1")
0^5^B23079983
"RTN","PXCEAE1",1,0)
PXCEAE1 ;ISL/dee,ISA/KWP,SLC/ajb - Builds the List Manager display of a visit and related v-files ;08/12/2014
"RTN","PXCEAE1",2,0)
 ;;1.0;PCE PATIENT CARE ENCOUNTER;**22,73,199,201**;Aug 12, 1996;Build 41
"RTN","PXCEAE1",3,0)
 ;; ;
"RTN","PXCEAE1",4,0)
 Q
"RTN","PXCEAE1",5,0)
 ;
"RTN","PXCEAE1",6,0)
BUILD(VISITIEN,AEVIEW,ARRAY,ARRAYIX) ;
"RTN","PXCEAE1",7,0)
 ;AEVIEW is "B" for brief display and "D" for expanded display.
"RTN","PXCEAE1",8,0)
 I '$D(^AUPNVSIT(VISITIEN)) S VALMBCK="Q" Q
"RTN","PXCEAE1",9,0)
 N PXCECNT
"RTN","PXCEAE1",10,0)
 D FULL^VALM1
"RTN","PXCEAE1",11,0)
 D CLEAN^VALM10
"RTN","PXCEAE1",12,0)
 K @ARRAYIX
"RTN","PXCEAE1",13,0)
 S (VALMCNT,PXCECNT)=0
"RTN","PXCEAE1",14,0)
 ;
"RTN","PXCEAE1",15,0)
 ;
"RTN","PXCEAE1",16,0)
 N IEN,FILE,VFILE,VROUTINE
"RTN","PXCEAE1",17,0)
 F FILE="SIT","CSTP","PRV","POV","CPT","TRT","IMM","PED","SK","HF","XAM" D
"RTN","PXCEAE1",18,0)
 . S VROUTINE="PXCE"_$S(FILE="IMM":"VIMM",1:FILE)
"RTN","PXCEAE1",19,0)
 . S VFILE=$P($T(FORMAT^@VROUTINE),"~",5)
"RTN","PXCEAE1",20,0)
 . I FILE="SIT" D
"RTN","PXCEAE1",21,0)
 .. S IEN=VISITIEN
"RTN","PXCEAE1",22,0)
 .. D AFILE(IEN,FILE,VFILE,VROUTINE,ARRAY,ARRAYIX,.VALMCNT,.PXCECNT,AEVIEW)
"RTN","PXCEAE1",23,0)
 .. S VALMCNT=VALMCNT+1
"RTN","PXCEAE1",24,0)
 .. S @ARRAY@(VALMCNT,0)=""
"RTN","PXCEAE1",25,0)
 . E  D
"RTN","PXCEAE1",26,0)
 .. S IEN=""
"RTN","PXCEAE1",27,0)
 .. F  S IEN=$O(@VFILE@("AD",VISITIEN,IEN)) Q:'IEN  D AFILE(IEN,FILE,VFILE,VROUTINE,ARRAY,ARRAYIX,.VALMCNT,.PXCECNT,AEVIEW)
"RTN","PXCEAE1",28,0)
 S @ARRAYIX@(0)=PXCECNT
"RTN","PXCEAE1",29,0)
 I VALMCNT=0 S VALMBCK="Q"
"RTN","PXCEAE1",30,0)
 Q
"RTN","PXCEAE1",31,0)
 ;
"RTN","PXCEAE1",32,0)
AFILE(IEN,FILE,VFILE,VROUTINE,ARRAY,ARRAYIX,VALMCNT,PXCECNT,AEVIEW) ;
"RTN","PXCEAE1",33,0)
 N ENTRY,NODE,NODES,NODECNT
"RTN","PXCEAE1",34,0)
 S PXCECNT=PXCECNT+1
"RTN","PXCEAE1",35,0)
 S NODES=$P($T(FORMAT^@VROUTINE),"~",3)
"RTN","PXCEAE1",36,0)
 F NODECNT=1:1 S NODE=$P(NODES,",",NODECNT) Q:NODE']""  S ENTRY(NODE)=$G(@VFILE@(IEN,NODE))
"RTN","PXCEAE1",37,0)
 D DISPLAY(.ENTRY,VROUTINE,ARRAY,ARRAYIX,.VALMCNT,PXCECNT,AEVIEW)
"RTN","PXCEAE1",38,0)
 I FILE="SIT" S @ARRAYIX@(PXCECNT)=VISITIEN_"^VST"
"RTN","PXCEAE1",39,0)
 E  S @ARRAYIX@(PXCECNT)=IEN_"^"_FILE
"RTN","PXCEAE1",40,0)
 Q
"RTN","PXCEAE1",41,0)
 ;
"RTN","PXCEAE1",42,0)
DISPLAY(ENTRY,PXCECODE,ARRAY,ARRAYIX,LINE,COUNT,VIEW) ; -- display the data
"RTN","PXCEAE1",43,0)
 N PXCEFILE,PXCELINE,PXCETEXT,PXCEINT,PXCEEXT
"RTN","PXCEAE1",44,0)
 S PXCEFILE=$P($T(FORMAT^@PXCECODE),"~",2)
"RTN","PXCEAE1",45,0)
 F PXCELINE=1:1 S PXCETEXT=$P($T(FORMAT+PXCELINE^@PXCECODE),";;",2) Q:PXCETEXT']""  D
"RTN","PXCEAE1",46,0)
 . ; save original PXCETEXT for multiple diagnosis ouput ; ajb
"RTN","PXCEAE1",47,0)
 . I VFILE="^AUPNVIMM",+PXCETEXT=3 N TMPTXT S TMPTXT=PXCETEXT ; ajb
"RTN","PXCEAE1",48,0)
 . S (PXCEEXT,PXCEINT)=$P(ENTRY($P(PXCETEXT,"~",1)),"^",$P(PXCETEXT,"~",2))
"RTN","PXCEAE1",49,0)
 . ; get entries from diagnosis multiple ; ajb
"RTN","PXCEAE1",50,0)
 . I VFILE="^AUPNVIMM",+PXCETEXT=3 D  S:PXCEINT="" PXCEINT="^" S PXCEEXT=PXCEINT ; ajb
"RTN","PXCEAE1",51,0)
 . . N CNT,NIEN S (CNT,NIEN)=0 F  S NIEN=$O(^AUPNVIMM(IEN,3,NIEN)) Q:'+NIEN  D  ; ajb
"RTN","PXCEAE1",52,0)
 . . . S CNT=CNT+1,$P(PXCEINT,U,CNT)=$G(^AUPNVIMM(IEN,3,NIEN,0)) ; ajb
"RTN","PXCEAE1",53,0)
 . ; ajb
"RTN","PXCEAE1",54,0)
 . I PXCETEXT'["CPT Modifier",PXCEINT="" Q  ;Q:PXCEINT=""
"RTN","PXCEAE1",55,0)
 . Q:$P(PXCETEXT,"~",10)="N"
"RTN","PXCEAE1",56,0)
 . I VIEW'="D",$P(PXCETEXT,"~",10)="D" Q
"RTN","PXCEAE1",57,0)
 . I PXCECODE="PXCECSTP",$P(PXCETEXT,"~",3)=.01 Q
"RTN","PXCEAE1",58,0)
 . I $P(PXCETEXT,"~",6)]"" D  Q:PXCEEXT=""
"RTN","PXCEAE1",59,0)
 .. ;I PXCECODE["CPT",$P(PXCETEXT,"~",6)["DNAR" B  
"RTN","PXCEAE1",60,0)
 .. S @("PXCEEXT="_$P(PXCETEXT,"~",6)_"("""_$S($P(PXCETEXT,"~",3)=.01:ENTRY($P(PXCETEXT,"~",1)),1:PXCEINT)_""")")
"RTN","PXCEAE1",61,0)
 . E  D
"RTN","PXCEAE1",62,0)
 .. N PXCEDILF,DIERR,PXCEI
"RTN","PXCEAE1",63,0)
 .. S PXCEEXT=$$EXTERNAL^DILFD(PXCEFILE,$P(PXCETEXT,"~",3),"",PXCEINT,"PXCEDILF")
"RTN","PXCEAE1",64,0)
 .. S PXCEEXT=$S('$D(DIERR):PXCEEXT,1:PXCEINT)
"RTN","PXCEAE1",65,0)
 . ; get ICD info for multiple diagnosis ; ajb
"RTN","PXCEAE1",66,0)
 . I VFILE="^AUPNVIMM",+PXCETEXT=3,+PXCEINT D  ; ajb
"RTN","PXCEAE1",67,0)
 . . S PXCEEXT="" ; ajb
"RTN","PXCEAE1",68,0)
 . . N CNT F CNT=1:1:$L(PXCEINT,U) S $P(PXCEEXT,U,CNT)=$$DISPLY01^PXCEPOV($P(PXCEINT,U,CNT)) ; ajb
"RTN","PXCEAE1",69,0)
 . N TEMP S TEMP=PXCEEXT
"RTN","PXCEAE1",70,0)
 . N PXI F PXI=1:1 Q:$P(TEMP,"^",PXI)=""  S PXCEEXT=$P(TEMP,"^",PXI) D ADDLINE S:+$D(TMPTXT) PXCETEXT=TMPTXT ; replace modified with original for multiple diagnosis ; ajb
"RTN","PXCEAE1",71,0)
 Q
"RTN","PXCEAE1",72,0)
ADDLINE ;
"RTN","PXCEAE1",73,0)
 S LINE=LINE+1
"RTN","PXCEAE1",74,0)
 I PXCELINE=1!(PXCECODE="PXCECSTP") S @ARRAY@(LINE,0)=$J(COUNT,3)_" "
"RTN","PXCEAE1",75,0)
 E  S @ARRAY@(LINE,0)="    "
"RTN","PXCEAE1",76,0)
 I $P(PXCETEXT,"~",5)["Diagnosis" D
"RTN","PXCEAE1",77,0)
 . N PXDATE,PXACSREC,PXACS
"RTN","PXCEAE1",78,0)
 . S PXDATE=$S($D(PXCEVIEN)=1:$$CSDATE^PXDXUTL(PXCEVIEN),$D(PXCEAPDT)=1:PXCEAPDT,1:DT)
"RTN","PXCEAE1",79,0)
 . S PXACSREC=$$ACTDT^PXDXUTL(PXDATE),PXACS=$P(PXACSREC,"^",3)
"RTN","PXCEAE1",80,0)
 . I PXACS["-" S PXACS=$P(PXACS,"-",1,2)
"RTN","PXCEAE1",81,0)
 . I $P(PXCETEXT,"~",5)'["ICD Code or Diagnosis" D
"RTN","PXCEAE1",82,0)
 .. S $P(PXCETEXT,"~",5)=$P($P(PXCETEXT,"~",5),"Diagnosis",1)_PXACS_" Diagnosis"_$P($P(PXCETEXT,"~",5),"Diagnosis",2)
"RTN","PXCEAE1",83,0)
 . I $P(PXCETEXT,"~",5)["ICD Code or Diagnosis" D
"RTN","PXCEAE1",84,0)
 .. S $P(PXCETEXT,"~",5)=PXACS_$P($P(PXCETEXT,"~",5),"ICD",2)
"RTN","PXCEAE1",85,0)
 S @ARRAY@(LINE,0)=@ARRAY@(LINE,0)_$P(PXCETEXT,"~",5)
"RTN","PXCEAE1",86,0)
 I ($L(@ARRAY@(LINE,0))+$L(PXCEEXT))'>80 D
"RTN","PXCEAE1",87,0)
 . S @ARRAY@(LINE,0)=@ARRAY@(LINE,0)_PXCEEXT
"RTN","PXCEAE1",88,0)
 E  D
"RTN","PXCEAE1",89,0)
 . N PXCEWRAP,PXCECOUN,PXCEHEAD
"RTN","PXCEAE1",90,0)
 . S PXCEHEAD=$L(@ARRAY@(LINE,0))
"RTN","PXCEAE1",91,0)
 . D WRAP^PXCEVFI4(PXCEEXT,80-PXCEHEAD,.PXCEWRAP)
"RTN","PXCEAE1",92,0)
 . S @ARRAY@(LINE,0)=@ARRAY@(LINE,0)_$G(PXCEWRAP(1))
"RTN","PXCEAE1",93,0)
 . S PXCECOUN=1
"RTN","PXCEAE1",94,0)
 . F  S PXCECOUN=$O(PXCEWRAP(PXCECOUN)) Q:PXCECOUN']""  D
"RTN","PXCEAE1",95,0)
 .. S LINE=LINE+1
"RTN","PXCEAE1",96,0)
 .. S @ARRAY@(LINE,0)=$J("",PXCEHEAD)_PXCEWRAP(PXCECOUN)
"RTN","PXCEAE1",97,0)
 Q
"RTN","PXCEAE1",98,0)
 ;
"RTN","PXCEVFI4")
0^7^B28425692
"RTN","PXCEVFI4",1,0)
PXCEVFI4 ;ISL/dee,SLC/ajb - Routine to display a visit or v-file entry and input providers in to V PROVIDER from other V Files ;6/20/96
"RTN","PXCEVFI4",2,0)
 ;;1.0;PCE PATIENT CARE ENCOUNTER;**124,203,199,201**;Aug 12, 1996;Build 41
"RTN","PXCEVFI4",3,0)
 Q
"RTN","PXCEVFI4",4,0)
DISPLAY ; -- display the data
"RTN","PXCEVFI4",5,0)
 Q:PXCECAT="CSTP"
"RTN","PXCEVFI4",6,0)
 N PXCELINE,PXCETEXT,PXCEINT,PXCEEXT
"RTN","PXCEVFI4",7,0)
 I PXCECAT="APPM"!(PXCECAT="HIST") N PXCECODE S PXCECODE="PXCESIT"
"RTN","PXCEVFI4",8,0)
 W !
"RTN","PXCEVFI4",9,0)
 F PXCELINE=1:1 S PXCETEXT=$P($T(FORMAT+PXCELINE^@PXCECODE),";;",2) Q:PXCETEXT']""  D
"RTN","PXCEVFI4",10,0)
 . S (PXCEINT,PXCEEXT)=$P(PXCEAFTR($P(PXCETEXT,"~",1)),"^",$P(PXCETEXT,"~",2))
"RTN","PXCEVFI4",11,0)
 . I PXCEINT="@" S PXCEEXT="<deleted>"
"RTN","PXCEVFI4",12,0)
 . E  I PXCEINT'="" D
"RTN","PXCEVFI4",13,0)
 .. I $P(PXCETEXT,"~",6)]"" S @("PXCEEXT="_$P(PXCETEXT,"~",6)_"("""_PXCEINT_""")")
"RTN","PXCEVFI4",14,0)
 .. E  D
"RTN","PXCEVFI4",15,0)
 ... N DIERR,PXCEDILF
"RTN","PXCEVFI4",16,0)
 ... S PXCEEXT=$$EXTERNAL^DILFD(PXCEFILE,$P(PXCETEXT,"~",3),"",PXCEINT,"PXCEDILF")
"RTN","PXCEVFI4",17,0)
 ... S PXCEEXT=$S('$D(DIERR):PXCEEXT,1:PXCEINT)
"RTN","PXCEVFI4",18,0)
 . I ($L($P(PXCETEXT,"~",5))+$L(PXCEEXT))'>80 D
"RTN","PXCEVFI4",19,0)
 .. W !,$P(PXCETEXT,"~",5),PXCEEXT
"RTN","PXCEVFI4",20,0)
 . E  D
"RTN","PXCEVFI4",21,0)
 .. N PXCEWRAP,PXCECOUN
"RTN","PXCEVFI4",22,0)
 .. D WRAP(PXCEEXT,80-$L($P(PXCETEXT,"~",5)),.PXCEWRAP)
"RTN","PXCEVFI4",23,0)
 .. W !,$P(PXCETEXT,"~",5),$G(PXCEWRAP(1))
"RTN","PXCEVFI4",24,0)
 .. S PXCECOUN=1
"RTN","PXCEVFI4",25,0)
 .. F  S PXCECOUN=$O(PXCEWRAP(PXCECOUN)) Q:PXCECOUN']""  D
"RTN","PXCEVFI4",26,0)
 ... W !,$J("",$L($P(PXCETEXT,"~",5))),PXCEWRAP(PXCECOUN)
"RTN","PXCEVFI4",27,0)
 Q
"RTN","PXCEVFI4",28,0)
 ;
"RTN","PXCEVFI4",29,0)
WRAP(X,DIWR,WRAPPED) ;Copies the text in X into the array WRAPPED
"RTN","PXCEVFI4",30,0)
 N DIWL,DIWF,PXCEINDX
"RTN","PXCEVFI4",31,0)
 K ^UTILITY($J,"W")
"RTN","PXCEVFI4",32,0)
 S DIWL=1
"RTN","PXCEVFI4",33,0)
 S DIRF=""
"RTN","PXCEVFI4",34,0)
 D ^DIWP
"RTN","PXCEVFI4",35,0)
 S PXCEINDX=0
"RTN","PXCEVFI4",36,0)
 F  S PXCEINDX=$O(^UTILITY($J,"W",DIWL,PXCEINDX)) Q:'PXCEINDX  S WRAPPED(PXCEINDX)=^UTILITY($J,"W",DIWL,PXCEINDX,0)
"RTN","PXCEVFI4",37,0)
 K ^UTILITY($J,"W")
"RTN","PXCEVFI4",38,0)
 Q
"RTN","PXCEVFI4",39,0)
 ;
"RTN","PXCEVFI4",40,0)
PROVIDER(PXCEPRV) ;See if it is a new provider and if it is add them.
"RTN","PXCEVFI4",41,0)
 N PXCEVPRV,PXCEKPRV,PXCENPRV,PXCEPRIM
"RTN","PXCEVFI4",42,0)
 N DIR,DA,X,Y
"RTN","PXCEVFI4",43,0)
 S (PXCEVPRV,PXCEKPRV)=""
"RTN","PXCEVFI4",44,0)
 S PXCEPRIM=0
"RTN","PXCEVFI4",45,0)
 ;See if this provider is already in V Provider for this Encounter
"RTN","PXCEVFI4",46,0)
 F  S PXCEVPRV=$O(^AUPNVPRV("AD",PXCEVIEN,PXCEVPRV)) Q:PXCEVPRV'>0  Q:PXCEPRV=$P(^AUPNVPRV(PXCEVPRV,0),"^",1)  S:"P"=$P(^AUPNVPRV(PXCEVPRV,0),"^",4) PXCEPRIM=1
"RTN","PXCEVFI4",47,0)
 Q:PXCEVPRV>0
"RTN","PXCEVFI4",48,0)
 ;See if this provider is in the ^TMP("PXK",$J,
"RTN","PXCEVFI4",49,0)
 F  S PXCEKPRV=$O(^TMP("PXK",$J,"PRV",PXCEKPRV)) Q:PXCEKPRV'>0  Q:PXCEPRV=+^TMP("PXK",$J,"PRV",PXCEKPRV,0,"AFTER")  S:"P"=$P(^TMP("PXK",$J,"PRV",PXCEKPRV,0,"AFTER"),"^",4) PXCEPRIM=1
"RTN","PXCEVFI4",50,0)
 Q:PXCEKPRV>0
"RTN","PXCEVFI4",51,0)
 I 'PXCEPRIM D  I $D(DTOUT)!$D(DUOUT) Q
"RTN","PXCEVFI4",52,0)
 . N DIR,DA
"RTN","PXCEVFI4",53,0)
 . S DIR(0)="9000010.06,.04A"
"RTN","PXCEVFI4",54,0)
 . S DIR("A")="Is this provider Primary or Secondary?  "
"RTN","PXCEVFI4",55,0)
 . S DIR("B")=$S(PXCEPRIM:"S",1:"P")
"RTN","PXCEVFI4",56,0)
 . D ^DIR
"RTN","PXCEVFI4",57,0)
 I PXCEPRIM S Y="S"
"RTN","PXCEVFI4",58,0)
 ;Set PXCENPRV to the next provider in ^TMP("PXK",$J,"PRV",
"RTN","PXCEVFI4",59,0)
 I $Q(^TMP("PXK",$J,"PRV"))["PXK,"_$J_",PRV" S PXCENPRV=+$O(^TMP("PXK",$J,"PRV",""),-1)+1
"RTN","PXCEVFI4",60,0)
 E  S PXCENPRV=1
"RTN","PXCEVFI4",61,0)
 S ^TMP("PXK",$J,"PRV",PXCENPRV,"IEN")=""
"RTN","PXCEVFI4",62,0)
 S ^TMP("PXK",$J,"PRV",PXCENPRV,0,"BEFORE")=""
"RTN","PXCEVFI4",63,0)
 S ^TMP("PXK",$J,"PRV",PXCENPRV,0,"AFTER")=PXCEPRV_"^"_PXCEPAT_"^"_PXCEVIEN_"^"_$P(Y,"^")
"RTN","PXCEVFI4",64,0)
 S ^TMP("PXK",$J,"PRV",PXCENPRV,812,"BEFORE")=""
"RTN","PXCEVFI4",65,0)
 S ^TMP("PXK",$J,"PRV",PXCENPRV,812,"AFTER")="^"_PXCEPKG_"^"_PXCESOR
"RTN","PXCEVFI4",66,0)
 Q
"RTN","PXCEVFI4",67,0)
 ;
"RTN","PXCEVFI4",68,0)
DIAGNOS(PXCEPOV,OTHER) ;See if it is a new diagnosis and if it is add them. ; added OTHER ; ajb
"RTN","PXCEVFI4",69,0)
 N DA,DIR,PXCEDXSC,PXCEKPOV,PXCEMOD,PXCENARR,PXCENPOV,PXCEPMSC,PXCEVDT
"RTN","PXCEVFI4",70,0)
 N PXCEVPOV,PXCEX,PXCEY,X,Y
"RTN","PXCEVFI4",71,0)
 S (PXCEVPOV,PXCEKPOV)=""
"RTN","PXCEVFI4",72,0)
 S PXCEPRIM=$S(+$G(OTHER):0,1:1) S:+PXCEPRIM PXCEPMSC="P" ; set as primary diagnosis unless OTHER DIAGNOSIS is indicated
"RTN","PXCEVFI4",73,0)
 ;See if this diagnosis is already in V POV for this Encounter
"RTN","PXCEVFI4",74,0)
 F  S PXCEVPOV=$O(^AUPNVPOV("AD",PXCEVIEN,PXCEVPOV)) Q:PXCEVPOV'>0  Q:PXCEPOV=$P(^AUPNVPOV(PXCEVPOV,0),"^",1)  S:"P"=$P(^AUPNVPOV(PXCEVPOV,0),"^",12) PXCEPRIM=1
"RTN","PXCEVFI4",75,0)
 Q:PXCEVPOV>0
"RTN","PXCEVFI4",76,0)
 ;See if this diagnosis is in the ^TMP("PXK",$J,
"RTN","PXCEVFI4",77,0)
 F  S PXCEKPOV=$O(^TMP("PXK",$J,"POV",PXCEKPOV)) Q:PXCEKPOV'>0  Q:PXCEPOV=+^TMP("PXK",$J,"POV",PXCEKPOV,0,"AFTER")  S:"P"=$P(^TMP("PXK",$J,"POV",PXCEKPOV,0,"AFTER"),"^",12) PXCEPRIM=1
"RTN","PXCEVFI4",78,0)
 Q:PXCEKPOV>0
"RTN","PXCEVFI4",79,0)
 ;Is this diagnosis primary P/S
"RTN","PXCEVFI4",80,0)
 I 'PXCEPRIM,'+$G(OTHER) D  I $D(DTOUT)!$D(DUOUT) S PXCEEND=1,PXCEQUIT=1 Q  ; check if OTHER
"RTN","PXCEVFI4",81,0)
 . N DIR,DA
"RTN","PXCEVFI4",82,0)
 . S DIR(0)="9000010.07,.12A"
"RTN","PXCEVFI4",83,0)
 . S DIR("A")="Diagnosis is Primary?  "
"RTN","PXCEVFI4",84,0)
 . S DIR("B")="P"
"RTN","PXCEVFI4",85,0)
 . D ^DIR
"RTN","PXCEVFI4",86,0)
 . S PXCEPMSC=$P(Y,"^",1)
"RTN","PXCEVFI4",87,0)
 . S:PXCEPMSC="P" PXCEPRIM=1
"RTN","PXCEVFI4",88,0)
 S:'$D(PXCEPMSC) PXCEPMSC="S"
"RTN","PXCEVFI4",89,0)
 ;Diagnosis narrative
"RTN","PXCEVFI4",90,0)
 D  I $D(DTOUT)!$D(DUOUT) S PXCEEND=1,PXCEQUIT=1 Q
"RTN","PXCEVFI4",91,0)
 . N DIR,DA
"RTN","PXCEVFI4",92,0)
 . S DIR(0)="9000010.07,.04AO"
"RTN","PXCEVFI4",93,0)
 . S DIR("A")="Provider Narrative: "
"RTN","PXCEVFI4",94,0)
 . D ^DIR
"RTN","PXCEVFI4",95,0)
 S PXCEX=Y
"RTN","PXCEVFI4",96,0)
 I PXCEX="" D
"RTN","PXCEVFI4",97,0)
 . S PXCEVDT=$$CSDATE^PXDXUTL(PXCEVIEN) ; get visit date
"RTN","PXCEVFI4",98,0)
 . S PXCEX=$$DXNARR^PXUTL1(+PXCEPOV,PXCEVDT) ; get diagnosis description
"RTN","PXCEVFI4",99,0)
 W !,PXCEX
"RTN","PXCEVFI4",100,0)
 S PXCEY=$$PROVNARR^PXAPI(PXCEX,9000010.07) I +PXCEY'>0 W "??",$C(7) S PXCEEND=1,PXCEQUIT=1 Q
"RTN","PXCEVFI4",101,0)
 S PXCENARR=$P(PXCEY,"^",1)
"RTN","PXCEVFI4",102,0)
 ;Diagnosis modifier
"RTN","PXCEVFI4",103,0)
 D  I $D(DTOUT)!$D(DUOUT) S PXCEEND=1,PXCEQUIT=1 Q
"RTN","PXCEVFI4",104,0)
 . N DIR,DA
"RTN","PXCEVFI4",105,0)
 . S DIR(0)="9000010.07,.06A"
"RTN","PXCEVFI4",106,0)
 . S DIR("A")="Diagnosis Modifier: "
"RTN","PXCEVFI4",107,0)
 . D ^DIR
"RTN","PXCEVFI4",108,0)
 S PXCEMOD=$P(Y,U,2)
"RTN","PXCEVFI4",109,0)
 ;Diagnosis Service Connected, Clinical Indicators
"RTN","PXCEVFI4",110,0)
 D GET800^PXCED800
"RTN","PXCEVFI4",111,0)
 ;Set PXCENPOV to the next diagnosis in ^TMP("PXK",$J,"POV",
"RTN","PXCEVFI4",112,0)
 I $Q(^TMP("PXK",$J,"POV"))["PXK,"_$J_",POV" S PXCENPOV=+$O(^TMP("PXK",$J,"POV",""),-1)+1
"RTN","PXCEVFI4",113,0)
 E  S PXCENPOV=1
"RTN","PXCEVFI4",114,0)
 S ^TMP("PXK",$J,"POV",PXCENPOV,"IEN")=""
"RTN","PXCEVFI4",115,0)
 S ^TMP("PXK",$J,"POV",PXCENPOV,0,"BEFORE")=""
"RTN","PXCEVFI4",116,0)
 S ^TMP("PXK",$J,"POV",PXCENPOV,0,"AFTER")=PXCEPOV_"^"_PXCEPAT_"^"_PXCEVIEN_"^"_PXCENARR_"^^"_PXCEMOD_"^^^^^^"_PXCEPMSC
"RTN","PXCEVFI4",117,0)
 S ^TMP("PXK",$J,"POV",PXCENPOV,800,"BEFORE")=""
"RTN","PXCEVFI4",118,0)
 S ^TMP("PXK",$J,"POV",PXCENPOV,800,"AFTER")=PXCEDXSC
"RTN","PXCEVFI4",119,0)
 S ^TMP("PXK",$J,"POV",PXCENPOV,812,"BEFORE")=""
"RTN","PXCEVFI4",120,0)
 S ^TMP("PXK",$J,"POV",PXCENPOV,812,"AFTER")="^"_PXCEPKG_"^"_PXCESOR
"RTN","PXCEVFI4",121,0)
 Q
"RTN","PXCEVFI4",122,0)
 ;
"RTN","PXCEVFI4",123,0)
 ;
"RTN","PXCEVIMM")
0^4^B56314311
"RTN","PXCEVIMM",1,0)
PXCEVIMM ;ISL/dee,SLC/ajb - Used to edit and display V IMMUNIZATION ;08/12/2014
"RTN","PXCEVIMM",2,0)
 ;;1.0;PCE PATIENT CARE ENCOUNTER;**27,124,199,201**;Aug 12, 1996;Build 41
"RTN","PXCEVIMM",3,0)
 ;; ;
"RTN","PXCEVIMM",4,0)
 Q
"RTN","PXCEVIMM",5,0)
 ;
"RTN","PXCEVIMM",6,0)
 ;Line with the line label "FORMAT"
"RTN","PXCEVIMM",7,0)
 ;;Long name~File Number~Node Subscripts~Allow Duplicate entries (1=yes, 0=no)~File global name
"RTN","PXCEVIMM",8,0)
 ;     1         2             3                   4                                   5
"RTN","PXCEVIMM",9,0)
 ;
"RTN","PXCEVIMM",10,0)
 ;Following lines:
"RTN","PXCEVIMM",11,0)
 ;;Node~Piece~,Field Number~Edit Label~Display Label~Display Routine~Edit Routine~Help Text for DIR("?")~Set of PXCEKEYS that can Edit~D if Detail Display Only~
"RTN","PXCEVIMM",12,0)
 ;  1  ~  2  ~      3      ~     4    ~        5    ~        6      ~     7      ~       8              ~          9                  ~       10
"RTN","PXCEVIMM",13,0)
 ;The Display & Edit routines are for special cases.
"RTN","PXCEVIMM",14,0)
 ;  (The .01 field cannot have a special edit.)
"RTN","PXCEVIMM",15,0)
 ;
"RTN","PXCEVIMM",16,0)
FORMAT ;;Immunization~9000010.11~0,3,11,12,13,811,812~0~^AUPNVIMM
"RTN","PXCEVIMM",17,0)
 ;;0~1~.01~Immunization:  ~Immunization:  ~~~~~B
"RTN","PXCEVIMM",18,0)
 ;;12~4~1204~Encounter Provider:  ~Encounter Provider:  ~~EPROV12^PXCEPRV~~~D
"RTN","PXCEVIMM",19,0)
 ;;0~4~.04~Series:  ~Series:  ~~~~~D
"RTN","PXCEVIMM",20,0)
 ;;0~6~.06~Reaction:  ~Reaction:  ~~~~~D
"RTN","PXCEVIMM",21,0)
 ;;0~7~.07~Repeat Contraindicated:  ~Repeat Contraindicated:  ~~ECONTRAI^PXCEVIMM~~~D
"RTN","PXCEVIMM",22,0)
 ;;12~1~1201~Administered Date and (optional) Time~Administered Date and Time:  ~~E1201^PXCEPOV1(0,30,30)~~~D
"RTN","PXCEVIMM",23,0)
 ;;811~1~81101~Comments:  ~Comments:  ~~~~~D
"RTN","PXCEVIMM",24,0)
 ;;13~4~1304~Primary Diagnosis:  ~Primary Diagnosis:  ~$$DISPLY01^PXCEPOV~EPOV^PXCEVIMM~~~
"RTN","PXCEVIMM",25,0)
 ;;3~2~.01~Other Diagnosis:  ~Other Diagnosis:  ~$$DISPLY01^PXCEPOV~EPOV2^PXCEVIMM~~~
"RTN","PXCEVIMM",26,0)
 ;;
"RTN","PXCEVIMM",27,0)
 ;
"RTN","PXCEVIMM",28,0)
 ;Cannot ask work processing
"RTN","PXCEVIMM",29,0)
 ;;12~2~1202~Ordering Provider:  ~Ordering Provider:  ~~EPROV12^PXCEPRV~~~D
"RTN","PXCEVIMM",30,0)
 ;
"RTN","PXCEVIMM",31,0)
 ;The interface for AICS to get list on form for help.
"RTN","PXCEVIMM",32,0)
INTRFACE ;;PX SELECT IMMUNIZATIONS
"RTN","PXCEVIMM",33,0)
 ;
"RTN","PXCEVIMM",34,0)
 ;********************************
"RTN","PXCEVIMM",35,0)
 ;Special cases for display.
"RTN","PXCEVIMM",36,0)
 ;
"RTN","PXCEVIMM",37,0)
 ;********************************
"RTN","PXCEVIMM",38,0)
 ;Special cases for edit.
"RTN","PXCEVIMM",39,0)
 ;
"RTN","PXCEVIMM",40,0)
ECONTRAI ;
"RTN","PXCEVIMM",41,0)
 I $P(PXCEAFTR($P(PXCETEXT,"~",1)),"^",$P(PXCETEXT,"~",2))'="" D
"RTN","PXCEVIMM",42,0)
 . N DIERR,PXCEDILF,PXCEINT,PXCEEXT
"RTN","PXCEVIMM",43,0)
 . S PXCEINT=$P(PXCEAFTR($P(PXCETEXT,"~",1)),"^",$P(PXCETEXT,"~",2))
"RTN","PXCEVIMM",44,0)
 . S PXCEEXT=$$EXTERNAL^DILFD(PXCEFILE,$P(PXCETEXT,"~",3),"",PXCEINT,"PXCEDILF")
"RTN","PXCEVIMM",45,0)
 . S DIR("B")=$S('$D(DIERR):PXCEEXT,1:PXCEINT)
"RTN","PXCEVIMM",46,0)
 E  S DIR("B")="NO"
"RTN","PXCEVIMM",47,0)
 S DIR(0)=PXCEFILE_","_$P(PXCETEXT,"~",3)_"A"
"RTN","PXCEVIMM",48,0)
 S DIR("A")=$P(PXCETEXT,"~",4)
"RTN","PXCEVIMM",49,0)
 S:$P(PXCETEXT,"~",8)]"" DIR("?")=$P(PXCETEXT,"~",8)
"RTN","PXCEVIMM",50,0)
 D ^DIR
"RTN","PXCEVIMM",51,0)
 K DIR,DA
"RTN","PXCEVIMM",52,0)
 I X="@" S Y="@"
"RTN","PXCEVIMM",53,0)
 E  I $D(DTOUT)!$D(DUOUT) S PXCEEND=1 Q
"RTN","PXCEVIMM",54,0)
 S $P(PXCEAFTR($P(PXCETEXT,"~",1)),"^",$P(PXCETEXT,"~",2))=$P(Y,"^")
"RTN","PXCEVIMM",55,0)
 Q
"RTN","PXCEVIMM",56,0)
 ;
"RTN","PXCEVIMM",57,0)
ELOT ;
"RTN","PXCEVIMM",58,0)
 I $P(PXCEAFTR($P(PXCETEXT,"~",1)),"^",$P(PXCETEXT,"~",2))'="" D
"RTN","PXCEVIMM",59,0)
 . N DIERR,PXCEDILF,PXCEINT,PXCEEXT
"RTN","PXCEVIMM",60,0)
 . S PXCEINT=$P(PXCEAFTR($P(PXCETEXT,"~",1)),"^",$P(PXCETEXT,"~",2))
"RTN","PXCEVIMM",61,0)
 . S PXCEEXT=$$EXTERNAL^DILFD(PXCEFILE,$P(PXCETEXT,"~",3),"",PXCEINT,"PXCEDILF")
"RTN","PXCEVIMM",62,0)
 . S DIR("B")=$S('$D(DIERR):PXCEEXT,1:PXCEINT)
"RTN","PXCEVIMM",63,0)
 S DIR(0)="PAO^9999999.41:EM^K:$P(^(0),U,3)'=0!($P(^(0),U,4)'=$P(PXCEAFTR(0),U,1)) X"
"RTN","PXCEVIMM",64,0)
 S DIR("A")=$P(PXCETEXT,"~",4)
"RTN","PXCEVIMM",65,0)
 S:$P(PXCETEXT,"~",8)]"" DIR("?")=$P(PXCETEXT,"~",8)
"RTN","PXCEVIMM",66,0)
 D ^DIR
"RTN","PXCEVIMM",67,0)
 K DIR,DA
"RTN","PXCEVIMM",68,0)
 I X="@" S Y="@"
"RTN","PXCEVIMM",69,0)
 E  I $D(DTOUT)!$D(DUOUT) S PXCEEND=1 Q
"RTN","PXCEVIMM",70,0)
 S:Y'<0 $P(PXCEAFTR($P(PXCETEXT,"~",1)),"^",$P(PXCETEXT,"~",2))=$P(Y,"^")
"RTN","PXCEVIMM",71,0)
 Q
"RTN","PXCEVIMM",72,0)
 ;
"RTN","PXCEVIMM",73,0)
EPOV ;Edit the Associated DX
"RTN","PXCEVIMM",74,0)
 N PXACS,PXACSREC,PXDATE,PXDEF,PXDXASK,PXXX
"RTN","PXCEVIMM",75,0)
 S PXDATE=$S($D(PXCEVIEN)=1:$$CSDATE^PXDXUTL(PXCEVIEN),$D(PXCEAPDT)=1:PXCEAPDT,1:DT)
"RTN","PXCEVIMM",76,0)
 S PXACSREC=$$ACTDT^PXDXUTL(PXDATE),PXACS=$P(PXACSREC,"^",3)
"RTN","PXCEVIMM",77,0)
 I PXACS["-" S PXACS=$P(PXACS,"-",1,2)
"RTN","PXCEVIMM",78,0)
 I $P(PXCEAFTR($P(PXCETEXT,"~",1)),"^",$P(PXCETEXT,"~",2))'="" D
"RTN","PXCEVIMM",79,0)
 .N DIERR,PXCEDILF,PXCEINT,PXCEEXT
"RTN","PXCEVIMM",80,0)
 .S PXCEINT=$P(PXCEAFTR($P(PXCETEXT,"~",1)),"^",$P(PXCETEXT,"~",2))
"RTN","PXCEVIMM",81,0)
 .S PXCEEXT=$$EXTERNAL^DILFD(PXCEFILE,$P(PXCETEXT,"~",3),"",PXCEINT,"PXCEDILF")
"RTN","PXCEVIMM",82,0)
 .S DIR("B")=$S('$D(DIERR):PXCEEXT,1:PXCEINT)
"RTN","PXCEVIMM",83,0)
 I $P(PXACSREC,U,1)'="ICD" D
"RTN","PXCEVIMM",84,0)
 . S PXDXASK=PXACS_" "_$P(PXCETEXT,"~",4)
"RTN","PXCEVIMM",85,0)
 . S PXDEF=$G(DIR("B")),PXAGAIN=0 D ^PXDSLK I PXXX=-1 S Y=-1 Q
"RTN","PXCEVIMM",86,0)
 . I PXXX="@" S Y="@" Q
"RTN","PXCEVIMM",87,0)
 . S Y=$P($$ICDDATA^ICDXCODE("DIAG",$P($P(PXXX,U,1),";",2),PXDATE,"E"),U,1)
"RTN","PXCEVIMM",88,0)
 I $P(PXACSREC,U,1)="ICD" D
"RTN","PXCEVIMM",89,0)
 . S DIR(0)=PXCEFILE_","_$P(PXCETEXT,"~",3)_"A"
"RTN","PXCEVIMM",90,0)
 . S DIR("A")=PXACS_" "_$P(PXCETEXT,"~",4)
"RTN","PXCEVIMM",91,0)
 . S:$P(PXCETEXT,"~",8)]"" DIR("?")=$P(PXCETEXT,"~",8)
"RTN","PXCEVIMM",92,0)
 . D ^DIR
"RTN","PXCEVIMM",93,0)
 K DIR,DA
"RTN","PXCEVIMM",94,0)
 I X="@" S Y="@" S $P(PXCEAFTR($P(PXCETEXT,"~",1)),"^",$P(PXCETEXT,"~",2))=$P(Y,"^") Q
"RTN","PXCEVIMM",95,0)
 I $D(DTOUT)!$D(DUOUT) S PXCEEND=1,PXCEQUIT=1 Q
"RTN","PXCEVIMM",96,0)
 I +Y'>0 S PXCEEND=1 Q  ;S:$P(PXCETEXT,"~",3)=".08" PXCEQUIT=1 Q
"RTN","PXCEVIMM",97,0)
 ;See if this diagnosis is in the PXCEAFTR(0)
"RTN","PXCEVIMM",98,0)
 I $P(PXCETEXT,"~",2)'=8,(+Y=$P($G(PXCEAFTR(0)),"^",8)) S PXCEEND=1
"RTN","PXCEVIMM",99,0)
 I $P(PXCETEXT,"~",2)'=9,(+Y=$P($G(PXCEAFTR(0)),"^",9)) S PXCEEND=1
"RTN","PXCEVIMM",100,0)
 I $P(PXCETEXT,"~",2)'=10,(+Y=$P($G(PXCEAFTR(0)),"^",10)) S PXCEEND=1
"RTN","PXCEVIMM",101,0)
 I $P(PXCETEXT,"~",2)'=11,(+Y=$P($G(PXCEAFTR(0)),"^",11)) S PXCEEND=1
"RTN","PXCEVIMM",102,0)
 I $P(PXCETEXT,"~",2)'=12,(+Y=$P($G(PXCEAFTR(0)),"^",12)) S PXCEEND=1
"RTN","PXCEVIMM",103,0)
 I $P(PXCETEXT,"~",2)'=13,(+Y=$P($G(PXCEAFTR(0)),"^",13)) S PXCEEND=1
"RTN","PXCEVIMM",104,0)
 I $P(PXCETEXT,"~",2)'=14,(+Y=$P($G(PXCEAFTR(0)),"^",14)) S PXCEEND=1
"RTN","PXCEVIMM",105,0)
 I $P(PXCETEXT,"~",2)'=15,(+Y=$P($G(PXCEAFTR(0)),"^",15)) S PXCEEND=1
"RTN","PXCEVIMM",106,0)
 ;
"RTN","PXCEVIMM",107,0)
 ; check for duplicate diagnosis in OTHER DIAGNOSIS
"RTN","PXCEVIMM",108,0)
 N DX D:+$G(PXCEFIEN)
"RTN","PXCEVIMM",109,0)
 . N CNT S CNT=0 F  S CNT=$O(^AUPNVIMM(PXCEFIEN,3,CNT)) Q:'+CNT  D
"RTN","PXCEVIMM",110,0)
 . . S DX(^AUPNVIMM(PXCEFIEN,3,CNT,0))=""
"RTN","PXCEVIMM",111,0)
 I +$D(DX(+Y)) S PXCEEND=1
"RTN","PXCEVIMM",112,0)
 ;
"RTN","PXCEVIMM",113,0)
 I $G(PXCEEND)=1 W !,$C(7),"Duplicate Diagnosis is not allowed." D WAIT^PXCEHELP Q
"RTN","PXCEVIMM",114,0)
 S $P(PXCEAFTR($P(PXCETEXT,"~",1)),"^",$P(PXCETEXT,"~",2))=$P(Y,"^")
"RTN","PXCEVIMM",115,0)
 D:+Y>0 DIAGNOS^PXCEVFI4(+Y)
"RTN","PXCEVIMM",116,0)
 Q
"RTN","PXCEVIMM",117,0)
EPOV2 ; edit OTHER DIAGNOSIS
"RTN","PXCEVIMM",118,0)
 Q:'+$G(PXCEFIEN)
"RTN","PXCEVIMM",119,0)
 N PXACS,PXACSREC,PXDATE,PXDEF,PXDXASK,PXXX
"RTN","PXCEVIMM",120,0)
 S PXDATE=$S($D(PXCEVIEN)=1:$$CSDATE^PXDXUTL(PXCEVIEN),$D(PXCEAPDT)=1:PXCEAPDT,1:DT)
"RTN","PXCEVIMM",121,0)
 S PXACSREC=$$ACTDT^PXDXUTL(PXDATE),PXACS=$P(PXACSREC,"^",3)
"RTN","PXCEVIMM",122,0)
 I PXACS["-" S PXACS=$P(PXACS,"-",1,2)
"RTN","PXCEVIMM",123,0)
 ; get multiple diagnosis
"RTN","PXCEVIMM",124,0)
 N CNT,DX,DXS S CNT=0 F  S CNT=$O(^AUPNVIMM(PXCEFIEN,3,CNT)) Q:'+CNT  D
"RTN","PXCEVIMM",125,0)
 . S DX(CNT)=^AUPNVIMM(PXCEFIEN,3,CNT,0)
"RTN","PXCEVIMM",126,0)
 . S DXS(DX(CNT))=""
"RTN","PXCEVIMM",127,0)
 I '$D(DX) S DX(1)="" ; if no entries, show empty entry to allow adding
"RTN","PXCEVIMM",128,0)
 I $P(PXACSREC,U,1)="ICD" D
"RTN","PXCEVIMM",129,0)
 . N DIR S DIR(0)=PXCEFILE_"3,"_$P(PXCETEXT,"~",3)_"A"
"RTN","PXCEVIMM",130,0)
 . S DIR("A")=PXACS_" "_$P(PXCETEXT,"~",4)
"RTN","PXCEVIMM",131,0)
 . S CNT=0 F  S CNT=$O(DX(CNT)) Q:'+CNT!($D(DTOUT)!($D(DUOUT)))  D
"RTN","PXCEVIMM",132,0)
 . . N DA,X,Y
"RTN","PXCEVIMM",133,0)
 . . S DIR("B")=$$EXTERNAL^DILFD(PXCEFILE_3,".01","",DX(CNT),"PXCEDILF")
"RTN","PXCEVIMM",134,0)
 . . D ^DIR Q:$D(DTOUT)!$D(DUOUT)  Q:X=""
"RTN","PXCEVIMM",135,0)
 . . I X="@" W ! I +$$READ("YE","Are you sure you want to remove this entry","NO") D DELDX(CNT) Q
"RTN","PXCEVIMM",136,0)
 . . I +$D(DXS(+Y)) W:Y(0)'=DIR("B") !!,$C(7),"Entry matches Other Diagnosis.  Duplicate Diagnosis is not allowed." D:Y(0)'=DIR("B") WAIT^PXCEHELP Q  ; quit if entry already exists
"RTN","PXCEVIMM",137,0)
 . . I +Y=$P($G(^AUPNVIMM(PXCEFIEN,13)),U,4) D  Q  ; quit if entry matches primary diagnosis
"RTN","PXCEVIMM",138,0)
 . . . W !!,$C(7),"Entry matches Primary Diagnosis.  Duplicate Diagnosis is not allowed." D WAIT^PXCEHELP
"RTN","PXCEVIMM",139,0)
 . . I Y(0)'=DIR("B") D  ; ask to overwrite or add new entry
"RTN","PXCEVIMM",140,0)
 . . . I DIR("B")'="" N ANS W ! S ANS=$$READ("SA^A:ADD;R:REPLACE","Do you want to ADD a new entry or REPLACE the current entry? ","ADD") W !
"RTN","PXCEVIMM",141,0)
 . . . I DIR("B")="" S ANS="A" ; if no current entry, always add
"RTN","PXCEVIMM",142,0)
 . . . I $P(ANS,U)="A"!($P(ANS,U)="R") D  Q
"RTN","PXCEVIMM",143,0)
 . . . . N FDA,FDAIEN,ERRMSG,IEN
"RTN","PXCEVIMM",144,0)
 . . . . S IEN=$S($P(ANS,U)="A":"+1,"_PXCEFIEN_",",1:CNT_","_PXCEFIEN_",")
"RTN","PXCEVIMM",145,0)
 . . . . S FDA(PXCEFILE_3,IEN,.01)=+Y
"RTN","PXCEVIMM",146,0)
 . . . . D DIAGNOS^PXCEVFI4(+Y,1)
"RTN","PXCEVIMM",147,0)
 . . . . I '+$G(PXCEQUIT) D UPDATE^DIE("","FDA","FDAIEN","ERRMSG")
"RTN","PXCEVIMM",148,0)
 Q
"RTN","PXCEVIMM",149,0)
DELDX(DA) ; delete OTHER DIAGNOSIS
"RTN","PXCEVIMM",150,0)
 K DXS(DX(DA)),DX(DA)
"RTN","PXCEVIMM",151,0)
 S DA(1)=PXCEFIEN,DIK="^AUPNVIMM("_DA(1)_",3," D ^DIK W !!,"Entry successfully removed." D WAIT^PXCEHELP
"RTN","PXCEVIMM",152,0)
 Q
"RTN","PXCEVIMM",153,0)
 ;
"RTN","PXCEVIMM",154,0)
READ(TYPE,PROMPT,DEFAULT,HELP,SCREEN) ;
"RTN","PXCEVIMM",155,0)
 N DIR,X,Y,DUOUT,DTOUT,DIRUT S DIR(0)=TYPE
"RTN","PXCEVIMM",156,0)
 I $D(SCREEN) S DIR("S")=SCREEN
"RTN","PXCEVIMM",157,0)
 I $G(PROMPT)]"" S DIR("A")=PROMPT
"RTN","PXCEVIMM",158,0)
 I $G(DEFAULT)]"" S DIR("B")=DEFAULT
"RTN","PXCEVIMM",159,0)
 I $D(HELP) S DIR("?")=HELP
"RTN","PXCEVIMM",160,0)
 D ^DIR
"RTN","PXCEVIMM",161,0)
 I $G(X)="@" S Y="@" G READX
"RTN","PXCEVIMM",162,0)
 I Y]"",($L($G(Y),U)'=2) S Y=Y_U_$G(Y(0),Y)
"RTN","PXCEVIMM",163,0)
READX Q Y
"RTN","PXCEVIMM",164,0)
 ;
"RTN","PXCEVIMM",165,0)
 ;********************************
"RTN","PXCEVIMM",166,0)
 ;Display text for the .01 field which is a pointer to Immunization.
"RTN","PXCEVIMM",167,0)
 ;(Must have is called by ASK^PXCEVFI2 and DEL^PXCEVFI2.)
"RTN","PXCEVIMM",168,0)
DISPLY01(PXCEIMM) ;
"RTN","PXCEVIMM",169,0)
 N DIERR,PXCEDILF,PXCEINT,PXCEEXT
"RTN","PXCEVIMM",170,0)
 S PXCEINT=$P(PXCEIMM,"^",1)
"RTN","PXCEVIMM",171,0)
 S PXCEEXT=$$EXTERNAL^DILFD(9000010.11,.01,"",PXCEINT,"PXCEDILF")
"RTN","PXCEVIMM",172,0)
 Q $S('$D(DIERR):PXCEEXT,1:PXCEINT)
"RTN","PXCEVIMM",173,0)
 ;
"RTN","PXKFIMM")
0^6^B2843857
"RTN","PXKFIMM",1,0)
PXKFIMM ;ISL/JVS,SLC/ajb - Fields for V IMMUNIZATIONS file ;08/12/2014
"RTN","PXKFIMM",2,0)
 ;;1.0;PCE PATIENT CARE ENCOUNTER;**22,124,201**;Aug 12, 1996;Build 41
"RTN","PXKFIMM",3,0)
 ;
"RTN","PXKFIMM",4,0)
 ;  Adding or Editing of data in a particular field can be controlled
"RTN","PXKFIMM",5,0)
 ;by adding a ~ as a delimiter and the letters A and/or E to the
"RTN","PXKFIMM",6,0)
 ;end of the line of text which represents what could be added
"RTN","PXKFIMM",7,0)
 ;to the DR string in a DIE call.
"RTN","PXKFIMM",8,0)
 ; 1. If none or all three(~AE) of these characters are added then
"RTN","PXKFIMM",9,0)
 ;    the data in this field can be either added or edited.
"RTN","PXKFIMM",10,0)
 ; 2. If only the ~ is added then the data in this field can be
"RTN","PXKFIMM",11,0)
 ;    neither added or edited.
"RTN","PXKFIMM",12,0)
 ; 3. IF only the ~A is added then the data can only be added to
"RTN","PXKFIMM",13,0)
 ;    the file for this field but not edited.
"RTN","PXKFIMM",14,0)
 ; 4. If only the ~E is added the the data can only be edited in
"RTN","PXKFIMM",15,0)
 ;    this file for this field. (not a likely possibility)
"RTN","PXKFIMM",16,0)
 ;
"RTN","PXKFIMM",17,0)
 ; The word "OPTION" in front of the line of text below tells the 
"RTN","PXKFIMM",18,0)
 ;software to determine,based on the data, the appropriateness
"RTN","PXKFIMM",19,0)
 ;of using either a "///" or "////" stuff in a DIE call.
"RTN","PXKFIMM",20,0)
 ;
"RTN","PXKFIMM",21,0)
 ; The information on line tag 0 $P(,," * ",1) are the piece numbers
"RTN","PXKFIMM",22,0)
 ;of the fields on the zero node that are required by the data
"RTN","PXKFIMM",23,0)
 ;dictionary and are checked for to determine if enough data is present
"RTN","PXKFIMM",24,0)
 ;to proceed without any errors. $P(,," * ",2) are the nodes and
"RTN","PXKFIMM",25,0)
 ;piece numbers of the fields used to determine duplicates in the
"RTN","PXKFIMM",26,0)
 ;file (node+piece (eg. 12+4)). $P(,," * ",3) is a flag use to
"RTN","PXKFIMM",27,0)
 ;determine if duplicates are allowed in this visit file. 
"RTN","PXKFIMM",28,0)
 ;If it is set to 0 then no duplicate checks will occur. If it is
"RTN","PXKFIMM",29,0)
 ;set to 1 then the file will be checked for duplicates based on
"RTN","PXKFIMM",30,0)
 ;the information in $P 2.
"RTN","PXKFIMM",31,0)
 ;
"RTN","PXKFIMM",32,0)
 ; The following is the file's global name.  Each global must have a
"RTN","PXKFIMM",33,0)
 ;unique name and can not have any subscripts as part of the global root.
"RTN","PXKFIMM",34,0)
GLOBAL ;;^AUPNVIMM
"RTN","PXKFIMM",35,0)
 ;
"RTN","PXKFIMM",36,0)
EN1 ;
"RTN","PXKFIMM",37,0)
 S PXKER=""
"RTN","PXKFIMM",38,0)
 S PXKER=$P($T(@PXKNOD+PXKPCE),";;",2)
"RTN","PXKFIMM",39,0)
 Q
"RTN","PXKFIMM",40,0)
EN2 ;
"RTN","PXKFIMM",41,0)
 S PXKFD=""
"RTN","PXKFIMM",42,0)
 S PXKFD=$P($T(@PXKNOD+PXKPCE),";;",2) D
"RTN","PXKFIMM",43,0)
 .I PXKFD="" S PXKPCE=PXKPCE+1 D EN2
"RTN","PXKFIMM",44,0)
 Q
"RTN","PXKFIMM",45,0)
ADD ;Add an entry to the file
"RTN","PXKFIMM",46,0)
 ;Q
"RTN","PXKFIMM",47,0)
0 ;;1,2,3 * 0+1,0+3 * 1
"RTN","PXKFIMM",48,0)
 ;;.01////^S X=$G(
"RTN","PXKFIMM",49,0)
 ;;.02////^S X=$G(
"RTN","PXKFIMM",50,0)
 ;;.03////^S X=$G(
"RTN","PXKFIMM",51,0)
 ;;.04///^S X=$G(
"RTN","PXKFIMM",52,0)
 ;;
"RTN","PXKFIMM",53,0)
 ;;.06///^S X=$G(
"RTN","PXKFIMM",54,0)
 ;;.07///^S X=$G(
"RTN","PXKFIMM",55,0)
 ;;.08////^S X=$G(
"RTN","PXKFIMM",56,0)
 ;;.09////^S X=$G(
"RTN","PXKFIMM",57,0)
 ;;.1////^S X=$G(
"RTN","PXKFIMM",58,0)
 ;;.11////^S X=$G(
"RTN","PXKFIMM",59,0)
 ;;.12////^S X=$G(
"RTN","PXKFIMM",60,0)
 ;;.13////^S X=$G(
"RTN","PXKFIMM",61,0)
 ;;.14////^S X=$G(
"RTN","PXKFIMM",62,0)
 ;;.15////^S X=$G(
"RTN","PXKFIMM",63,0)
11 ;;
"RTN","PXKFIMM",64,0)
 ;;1101///^S X=$G(
"RTN","PXKFIMM",65,0)
12 ;;
"RTN","PXKFIMM",66,0)
 ;;1201///^S X=$G(
"RTN","PXKFIMM",67,0)
 ;;1202////^S X=$G(
"RTN","PXKFIMM",68,0)
 ;;
"RTN","PXKFIMM",69,0)
 ;;1204////^S X=$G(
"RTN","PXKFIMM",70,0)
 ;;
"RTN","PXKFIMM",71,0)
 ;;
"RTN","PXKFIMM",72,0)
13 ;;
"RTN","PXKFIMM",73,0)
 ;;
"RTN","PXKFIMM",74,0)
 ;;
"RTN","PXKFIMM",75,0)
 ;;
"RTN","PXKFIMM",76,0)
 ;;1304////^S X=$G(
"RTN","PXKFIMM",77,0)
 ;;
"RTN","PXKFIMM",78,0)
801 ;;
"RTN","PXKFIMM",79,0)
 ;;80101///^S X=1;
"RTN","PXKFIMM",80,0)
 ;;80102///^S X=$G(PXKAUDIT);
"RTN","PXKFIMM",81,0)
811 ;;
"RTN","PXKFIMM",82,0)
 ;;81101///^S X=$G(
"RTN","PXKFIMM",83,0)
812 ;;
"RTN","PXKFIMM",84,0)
 ;;81201///^S X=$G(
"RTN","PXKFIMM",85,0)
 ;;81202////^S X=$G(
"RTN","PXKFIMM",86,0)
 ;;81203////^S X=$G(
"RTN","PXKFIMM",87,0)
SPEC ;
"RTN","PXKFIMM",88,0)
 Q
"RTN","PXVP201")
0^2^B70774804
"RTN","PXVP201",1,0)
PXVP201 ;BPIOFO/CLR - Environment routines ; 9/29/14 10:59am
"RTN","PXVP201",2,0)
 ;;1.0;PCE PATIENT CARE ENCOUNTER;**201**;Aug 12, 1996;Build 41
"RTN","PXVP201",3,0)
 ;
"RTN","PXVP201",4,0)
 Q
"RTN","PXVP201",5,0)
PRETRAN ;Load tables
"RTN","PXVP201",6,0)
 I $G(DUZ("AG"))'="V" Q
"RTN","PXVP201",7,0)
 M @XPDGREF@("PXVMAP")=^XTMP("PXVMAP")
"RTN","PXVP201",8,0)
 M @XPDGREF@("PXVCVX")=^XTMP("PXVCVX")
"RTN","PXVP201",9,0)
 Q
"RTN","PXVP201",10,0)
 ;
"RTN","PXVP201",11,0)
PRE ;
"RTN","PXVP201",12,0)
 N DA,DIK,IEN
"RTN","PXVP201",13,0)
 I $G(DUZ("AG"))'="V" Q
"RTN","PXVP201",14,0)
 ;check that site has no IMMUNIZATION IENs between 1000 and 2000
"RTN","PXVP201",15,0)
 ;I '$D(^AUTTIVIS),($O(^AUTTIMM(1000))<2000) W !,"Invalid IEN in the IMMUNIZATION file - INSTALLATION ABORTED" S XPDABORT=1 Q
"RTN","PXVP201",16,0)
 ;delete data definitions in V IMMUNIZATION
"RTN","PXVP201",17,0)
 F DA=.08,.09,.1,.11,.12,.13,.14,.15 S DIK="^DD(9000010.11,",DA(1)=9000010.11 D ^DIK
"RTN","PXVP201",18,0)
 ;delete IMM MANUFACTURER
"RTN","PXVP201",19,0)
 I $D(^AUTTIMAN) S IEN=0,DIK="^AUTTIMAN(" D
"RTN","PXVP201",20,0)
 .F  S IEN=$O(^AUTTIMAN(IEN)) Q:IEN'>0  D
"RTN","PXVP201",21,0)
 . . S DA=IEN D ^DIK
"RTN","PXVP201",22,0)
 ;delete VACCINE INFORMATION STATEMENT
"RTN","PXVP201",23,0)
 I $D(^AUTTIVIS) S IEN=0,DIK="^AUTTIVIS(" D
"RTN","PXVP201",24,0)
 .F  S IEN=$O(^AUTTIVIS(IEN)) Q:IEN'>0  D
"RTN","PXVP201",25,0)
 . . S DA=IEN D ^DIK
"RTN","PXVP201",26,0)
 Q
"RTN","PXVP201",27,0)
 ;
"RTN","PXVP201",28,0)
POST ;Post installation
"RTN","PXVP201",29,0)
 I $G(DUZ("AG"))'="V" Q  ;do not install in non-VA environments
"RTN","PXVP201",30,0)
 N ERRCNT,PXVCPDT,XUMF
"RTN","PXVP201",31,0)
 K ^XTMP("PXVMAP"),^XTMP("PXVCVX"),^XTMP("PXVERR")
"RTN","PXVP201",32,0)
 M ^XTMP("PXVMAP")=@XPDGREF@("PXVMAP")
"RTN","PXVP201",33,0)
 M ^XTMP("PXVCVX")=@XPDGREF@("PXVCVX")
"RTN","PXVP201",34,0)
 I '$D(^XTMP("PXVMAP"))!('$D(^XTMP("PXVCVX"))) W !,"Mapping table not loaded - INSTALLATION ABORTED" S XPDQUIT=2 Q
"RTN","PXVP201",35,0)
 I '$D(^XTMP("PXVIMM")) M ^XTMP("PXVIMM","PXV")=^AUTTIMM
"RTN","PXVP201",36,0)
 S PXVCPDT=$$FMADD^XLFDT(DT,10)
"RTN","PXVP201",37,0)
 S ^XTMP("PXVMAP",0)=PXVCPDT_"^"_DT  ;set purge ddt/creation dt
"RTN","PXVP201",38,0)
 S ^XTMP("PXVCVX",0)=PXVCPDT_"^"_DT
"RTN","PXVP201",39,0)
 S PXVCPDT=$$FMADD^XLFDT(DT,90)
"RTN","PXVP201",40,0)
 S ^XTMP("PXVIMM",0)=PXVCPDT_"^"_DT
"RTN","PXVP201",41,0)
 D DATA  ;restores backup
"RTN","PXVP201",42,0)
 D REINDX  ;re-indexex "B" crossref
"RTN","PXVP201",43,0)
 D MAP  ;maps local entries to CVX code using data in ^XTMP("PXVMAP")
"RTN","PXVP201",44,0)
 ;Selects/updates standard entry for each CVX code
"RTN","PXVP201",45,0)
 ;using data in ^XTMP("PXVCVX")
"RTN","PXVP201",46,0)
 D SELECT
"RTN","PXVP201",47,0)
 D REMAIN  ;updates non-standard entries
"RTN","PXVP201",48,0)
 D MAIL  ;sends email to installer
"RTN","PXVP201",49,0)
 D MVDIAGS^PXVPST01  ;move data in V IMMUNIZATION
"RTN","PXVP201",50,0)
 Q
"RTN","PXVP201",51,0)
 ;
"RTN","PXVP201",52,0)
MAP ;map local names to CVX codes
"RTN","PXVP201",53,0)
 S XUMF=1
"RTN","PXVP201",54,0)
 N PXVZ,PXVIEN,PXVERR,PXVC,I,PXVT
"RTN","PXVP201",55,0)
 F I=0:0 S I=$O(^XTMP("PXVMAP",I)) Q:I'>0  D
"RTN","PXVP201",56,0)
 . S PXVZ=$G(^XTMP("PXVMAP",I,0))
"RTN","PXVP201",57,0)
 . F PXVIEN=0:0 S PXVIEN=$O(^AUTTIMM("B",$P(PXVZ,U),PXVIEN)) Q:PXVIEN=""  D
"RTN","PXVP201",58,0)
 . . S PXVC=$S($L($P(PXVZ,U,2))=1:"0"_($P(PXVZ,U,2)),1:$P(PXVZ,U,2))
"RTN","PXVP201",59,0)
 . . S PXVT(9999999.14,+PXVIEN_",",.03)=PXVC
"RTN","PXVP201",60,0)
 . . D UPDATE^DIE(,"PXVT",,"PXVERR")
"RTN","PXVP201",61,0)
 . . I $D(PXVERR) D ERROR(.PXVERR)
"RTN","PXVP201",62,0)
 Q
"RTN","PXVP201",63,0)
 ;
"RTN","PXVP201",64,0)
SELECT ;Select standard in local file entries with CVX code
"RTN","PXVP201",65,0)
 N I,PXVSTIEN,PXVC,PXVZ,PXVOUT
"RTN","PXVP201",66,0)
 F I=0:0 S I=$O(^XTMP("PXVCVX",I)) Q:I=""  D
"RTN","PXVP201",67,0)
 . S PXVZ=$G(^XTMP("PXVCVX",I,0))
"RTN","PXVP201",68,0)
 . ;handles one overflow line
"RTN","PXVP201",69,0)
 . S PXVZ=PXVZ_$G(^XTMP("PXVCVX",I,"OVF",1))
"RTN","PXVP201",70,0)
 . S PXVC=$P(PXVZ,U),PXVC=$S($L(PXVC)=1:"0"_PXVC,1:PXVC)
"RTN","PXVP201",71,0)
 . I '$D(^AUTTIMM("C",PXVC)) D  Q
"RTN","PXVP201",72,0)
 . . S PXVZ="0^"_PXVZ
"RTN","PXVP201",73,0)
 . . S PXVOUT=$$STANDARD(PXVZ)
"RTN","PXVP201",74,0)
 . ;get ien of standard entry
"RTN","PXVP201",75,0)
 . S PXVSTIEN=$$ORDER(PXVC)
"RTN","PXVP201",76,0)
 . S PXVZ=PXVSTIEN_"^"_PXVZ
"RTN","PXVP201",77,0)
 . S PXVOUT=$$STANDARD(PXVZ)
"RTN","PXVP201",78,0)
 Q
"RTN","PXVP201",79,0)
 ;
"RTN","PXVP201",80,0)
ORDER(CVX) ;determines precedence order for record
"RTN","PXVP201",81,0)
 ; 1:  IEN<1000 & ACTIVE
"RTN","PXVP201",82,0)
 ; 2:  IEN in local ns & ACTIVE
"RTN","PXVP201",83,0)
 ; 3:  IEN in remote ns & ACTIVE
"RTN","PXVP201",84,0)
 ; 4:  IEN<1000 & INACTIVE
"RTN","PXVP201",85,0)
 ; 5:  IEN in local ns & INACTIVE
"RTN","PXVP201",86,0)
 ; 6:  IEN in remote ns & INACTIVE
"RTN","PXVP201",87,0)
 N I,PXVIEN,PXVORD,PXVST,PXINST,PXVSTIEN,PXVRAY,PXVLAST,PXVSTOP
"RTN","PXVP201",88,0)
 N PXVREF,USE
"RTN","PXVP201",89,0)
 ;initialize precedence order array
"RTN","PXVP201",90,0)
 F I=1:1:6 S PXVRAY(I,0)=0  ;set o node
"RTN","PXVP201",91,0)
 ;get site local number space
"RTN","PXVP201",92,0)
 S PXINST=$$SITE^VASITE,PXINST=$P(PXINST,U,3)  ;IA #10112
"RTN","PXVP201",93,0)
 ;process all existing records with same CVX code
"RTN","PXVP201",94,0)
 F PXVIEN=0:0 S PXVIEN=$O(^AUTTIMM("C",CVX,PXVIEN)) Q:PXVIEN=""  D
"RTN","PXVP201",95,0)
 . S PXVST=$P(^AUTTIMM(PXVIEN,0),U,7)
"RTN","PXVP201",96,0)
 . S PXVORD=""
"RTN","PXVP201",97,0)
 . I PXVIEN<1000 S PXVORD=$S(PXVST="":1,1:4)
"RTN","PXVP201",98,0)
 . I PXVIEN>(PXINST*1000),PXVIEN<(PXINST+1*1000) S PXVORD=$S(PXVST="":2,1:5)
"RTN","PXVP201",99,0)
 . I $G(PXVORD)="" S PXVORD=$S(PXVST="":3,1:6)
"RTN","PXVP201",100,0)
 . S PXVRAY(PXVORD,PXVIEN)="",PXVRAY(PXVORD,0)=PXVRAY(PXVORD,0)+1
"RTN","PXVP201",101,0)
 ;identify national entry
"RTN","PXVP201",102,0)
 F PXVORD=1:1:6 D
"RTN","PXVP201",103,0)
 . S PXVIEN=$O(PXVRAY(PXVORD,0)) Q:PXVIEN=""
"RTN","PXVP201",104,0)
 . I $G(PXVSTIEN),(PXVIEN'=PXVSTIEN) D LOCAL(PXVIEN) Q  ;rename losers
"RTN","PXVP201",105,0)
 . I PXVRAY(PXVORD,0)=1 S PXVSTIEN=PXVIEN Q
"RTN","PXVP201",106,0)
 . ;resolve ties
"RTN","PXVP201",107,0)
 . I PXVRAY(PXVORD,0)>1 D
"RTN","PXVP201",108,0)
 . . S USE=-1
"RTN","PXVP201",109,0)
 . . S PXVSTOP="9000010.11,""IP"","_PXVIEN_","
"RTN","PXVP201",110,0)
 . . F PXVIEN=0:0 S PXVIEN=$O(PXVRAY(PXVORD,PXVIEN)) Q:PXVIEN=""  D
"RTN","PXVP201",111,0)
 . . . S PXVREF="^PXRMINDX(9000010.11,""IP"","_PXVIEN_")"
"RTN","PXVP201",112,0)
 . . . F I(PXVIEN)=0:1 S PXVREF=$Q(@PXVREF) Q:PXVREF'[PXVSTOP
"RTN","PXVP201",113,0)
 . . . I $G(I(PXVIEN))>USE S PXVSTIEN=PXVIEN,USE=I(PXVIEN)
"RTN","PXVP201",114,0)
 . . F IEN=0:0 S IEN=$O(I(IEN)) Q:IEN=""  D
"RTN","PXVP201",115,0)
 . . . Q:IEN=PXVSTIEN
"RTN","PXVP201",116,0)
 . . . D LOCAL(IEN)
"RTN","PXVP201",117,0)
 Q PXVSTIEN
"RTN","PXVP201",118,0)
 ;
"RTN","PXVP201",119,0)
STANDARD(PXVZ) ;set up standard record
"RTN","PXVP201",120,0)
 ;;ien of new entries =1000+CVX code
"RTN","PXVP201",121,0)
 ;;IEN/O^CVX^NAME^FULLNAME^COMB^STATUS^VIS^^CPT^^ACRONYM^PRODUCTNAME
"RTN","PXVP201",122,0)
 N PXV,PXVIEN,PXVERR,PXVT,PXVNM,PXVWP,PXVS
"RTN","PXVP201",123,0)
 S XUMF=1
"RTN","PXVP201",124,0)
 S (PXVIEN(1),PXV)=+$P(PXVZ,U)
"RTN","PXVP201",125,0)
 S PXVC=$P(PXVZ,U,2)  ;CVX code
"RTN","PXVP201",126,0)
 I $L(PXVC)=1 S PXVC="0"_PXVC  ;append zero
"RTN","PXVP201",127,0)
 ;status
"RTN","PXVP201",128,0)
 S PXVS=$P(PXVZ,U,6),PXVS=$S(PXVS["Active":"@",1:PXVS)
"RTN","PXVP201",129,0)
 ;add new one
"RTN","PXVP201",130,0)
 I '+$P(PXVZ,U) D
"RTN","PXVP201",131,0)
 . S PXVIEN(1)=1000+($P(PXVZ,U,2)),PXV="+1"
"RTN","PXVP201",132,0)
 ;avoid duplicate name errors
"RTN","PXVP201",133,0)
 S PXVNM=$P($G(^AUTTIMM(+$P(PXVZ,U),0)),U)
"RTN","PXVP201",134,0)
 I $$UP^XLFSTR($P(PXVZ,U,3))'=$$UP^XLFSTR(PXVNM) D
"RTN","PXVP201",135,0)
 . S PXVT(9999999.14,PXV_",",.01)=$$UP^XLFSTR($P(PXVZ,U,3))  ;NAME
"RTN","PXVP201",136,0)
 S PXVT(9999999.14,PXV_",",.07)=PXVS  ;INACTIVE FLAG
"RTN","PXVP201",137,0)
 S PXVT(9999999.14,PXV_",",.03)=PXVC  ;CVX CODE
"RTN","PXVP201",138,0)
 S PXVT(9999999.14,PXV_",",100)="NATIONAL"  ;CLASS
"RTN","PXVP201",139,0)
 S PXVT(9999999.14,PXV_",",.2)=$P(PXVZ,U,5)  ;COMBO
"RTN","PXVP201",140,0)
 S PXVT(9999999.14,PXV_",",8802)=$P(PXVZ,U,11)  ;ACRONYM
"RTN","PXVP201",141,0)
 S PXVT(9999999.14,PXV_",",8803)="Y"  ;SELECTABLE
"RTN","PXVP201",142,0)
 D UPDATE^DIE("E","PXVT","PXVIEN","PXVERR")
"RTN","PXVP201",143,0)
 I $D(PXVERR) D ERROR(.PXVERR) Q 1
"RTN","PXVP201",144,0)
 ;CDC FULL VACCINE NAME
"RTN","PXVP201",145,0)
 S PXVWP(1)=$P(PXVZ,U,4)
"RTN","PXVP201",146,0)
 S PXVWP(1)=$$UP^XLFSTR($E(PXVWP(1),1))_$E(PXVWP(1),2,$L(PXVWP(1)))
"RTN","PXVP201",147,0)
 D WP^DIE(9999999.14,PXVIEN(1)_",",2,"K","PXVWP","PXVERR")
"RTN","PXVP201",148,0)
 I $D(PXVERR) D ERROR(.PXVERR) Q 1
"RTN","PXVP201",149,0)
 ;VACCINE INFORMATION STATEMENT
"RTN","PXVP201",150,0)
 ;CDC PRODUCT NAME
"RTN","PXVP201",151,0)
 ;CODING SYSTEM->CODE
"RTN","PXVP201",152,0)
 D MANY(PXVIEN(1),.PXVZ)
"RTN","PXVP201",153,0)
 Q $G(PXVIEN(1))_$S($D(PXVERR):1,1:0)
"RTN","PXVP201",154,0)
 ;
"RTN","PXVP201",155,0)
MANY(IEN,PXVZ) ;populates multiples
"RTN","PXVP201",156,0)
 N PXVL,PXVCOL,PXVITEM,I,PXVT,PXVERR,PXVLL,PXVREC
"RTN","PXVP201",157,0)
 ;VIS
"RTN","PXVP201",158,0)
 S PXVL=1,PXVCOL=$$UP^XLFSTR($P(PXVZ,U,7))
"RTN","PXVP201",159,0)
 ;muliple VIS with same name
"RTN","PXVP201",160,0)
 F I=1:1 S PXVITEM=$P(PXVCOL,"|",I) Q:PXVITEM=""  D
"RTN","PXVP201",161,0)
 . F PXVREC=0:0 S PXVREC=$O(^AUTTIVIS("B",PXVITEM,PXVREC)) Q:PXVREC=""  D
"RTN","PXVP201",162,0)
 . . S PXVT(9999999.144,"?+"_PXVL_","_IEN_",",.01)=PXVREC
"RTN","PXVP201",163,0)
 . . S PXVL=PXVL+1
"RTN","PXVP201",164,0)
 ;CDC PRODUCT NAMES
"RTN","PXVP201",165,0)
 S PXVCOL=$$UP^XLFSTR($P(PXVZ,U,12))
"RTN","PXVP201",166,0)
 F I=1:1 S PXVITEM=$P(PXVCOL,"|",I) Q:PXVITEM=""  D
"RTN","PXVP201",167,0)
 . S PXVT(9999999.145,"?+"_PXVL_","_IEN_",",.01)=PXVITEM
"RTN","PXVP201",168,0)
 . S PXVL=PXVL+1
"RTN","PXVP201",169,0)
 ;CODING SYSTEM
"RTN","PXVP201",170,0)
 S PXVCOL="CPT"
"RTN","PXVP201",171,0)
 S PXVT(9999999.143,"?+"_PXVL_","_IEN_",",.01)=PXVCOL
"RTN","PXVP201",172,0)
 ;CPT CODES
"RTN","PXVP201",173,0)
 S PXVLL=PXVL,PXVL=PXVL+1,PXVCOL=$P(PXVZ,U,9)
"RTN","PXVP201",174,0)
 F I=1:1 S PXVITEM=$P(PXVCOL,"|",I) Q:PXVITEM=""  D
"RTN","PXVP201",175,0)
 . S PXVT(9999999.1431,"?+"_PXVL_",?+"_PXVLL_","_IEN_",",.01)=PXVITEM
"RTN","PXVP201",176,0)
 . S PXVL=PXVL+1
"RTN","PXVP201",177,0)
 D UPDATE^DIE(,"PXVT",,"PXVERR")
"RTN","PXVP201",178,0)
 I $D(PXVERR) D ERROR(.PXVERR)
"RTN","PXVP201",179,0)
 Q
"RTN","PXVP201",180,0)
 ;
"RTN","PXVP201",181,0)
REMAIN ;
"RTN","PXVP201",182,0)
 ;loop through file entries with no CVX code
"RTN","PXVP201",183,0)
 N PXVIEN,PXVZ
"RTN","PXVP201",184,0)
 S PXVIEN=0 F  S PXVIEN=$O(^AUTTIMM(PXVIEN)) Q:PXVIEN'>0  D
"RTN","PXVP201",185,0)
 . S PXVZ=$G(^AUTTIMM(+PXVIEN,0))
"RTN","PXVP201",186,0)
 . Q:$P($G(^AUTTIMM(PXVIEN,100)),U)="N"
"RTN","PXVP201",187,0)
 . D LOCAL(PXVIEN,PXVZ)
"RTN","PXVP201",188,0)
 Q
"RTN","PXVP201",189,0)
 ;
"RTN","PXVP201",190,0)
LOCAL(PXVIEN,PXVZ) ;
"RTN","PXVP201",191,0)
 N PXVT,PXVERR
"RTN","PXVP201",192,0)
 ;updates LOCAL record
"RTN","PXVP201",193,0)
 I '$D(PXVZ) S PXVZ=$G(^AUTTIMM(PXVIEN,0))
"RTN","PXVP201",194,0)
 I $P(PXVZ,U)'["(HISTORICAL)" S PXVT(9999999.14,PXVIEN_",",.01)=$P(PXVZ,U)_" (HISTORICAL)"
"RTN","PXVP201",195,0)
 S PXVT(9999999.14,PXVIEN_",",.07)="INACTIVE"
"RTN","PXVP201",196,0)
 S PXVT(9999999.14,PXVIEN_",",100)="LOCAL"
"RTN","PXVP201",197,0)
 S PXVT(9999999.14,PXVIEN_",",8803)="N"
"RTN","PXVP201",198,0)
 D UPDATE^DIE("E","PXVT",,"PXVERR")
"RTN","PXVP201",199,0)
 I $D(PXVERR) D ERROR(.PXVERR)
"RTN","PXVP201",200,0)
 Q
"RTN","PXVP201",201,0)
 ;
"RTN","PXVP201",202,0)
ERROR(PXVERR) ;
"RTN","PXVP201",203,0)
 I '$D(^XTMP("PXVERR",0)) S ^XTMP("PXVERR",0)=$$FMADD^XLFDT(DT,10)_"^"_DT
"RTN","PXVP201",204,0)
 S ERRCNT=$S('$D(ERRCNT):1,1:ERRCNT+1)
"RTN","PXVP201",205,0)
 S $P(^XTMP("PXVERR",0),U,3)=ERRCNT
"RTN","PXVP201",206,0)
 M ^XTMP("PXVERR",ERRCNT)=PXVERR
"RTN","PXVP201",207,0)
 Q
"RTN","PXVP201",208,0)
 ;
"RTN","PXVP201",209,0)
MAIL ;
"RTN","PXVP201",210,0)
 N PXVTXT,XMSUB,XMTEXT,PXVTXT,XMY,PXVOK,DIFROM
"RTN","PXVP201",211,0)
 S PXVOK=$G(^XTMP("PXVERR",0))>0
"RTN","PXVP201",212,0)
 S XMSUB="The IMMUNIZATION file update "
"RTN","PXVP201",213,0)
 S XMSUB=XMSUB_$S(PXVOK:"FAILED",1:"was SUCCESSFUL")
"RTN","PXVP201",214,0)
 S XMTEXT="PXVTXT("
"RTN","PXVP201",215,0)
 I PXVOK D
"RTN","PXVP201",216,0)
 . S PXVTXT(1)="Errors occurred during the update of the IMMUNIZATION file."
"RTN","PXVP201",217,0)
 . S PXVTXT(2)="Details of the errors are stored in ^XTMP(""PXVERR"") for the next 10 days."
"RTN","PXVP201",218,0)
 . S PXVTXT(3)="Please contact Product Support for assistance."
"RTN","PXVP201",219,0)
 I 'PXVOK D
"RTN","PXVP201",220,0)
 . S PXVTXT(1)="The IMMUNIZATION file has been successfully updated."
"RTN","PXVP201",221,0)
 S XMY(DUZ)=""
"RTN","PXVP201",222,0)
 D ^XMD
"RTN","PXVP201",223,0)
 Q
"RTN","PXVP201",224,0)
 ;
"RTN","PXVP201",225,0)
DATA ;deletes data and copies from IMMUNIZATION
"RTN","PXVP201",226,0)
 N J,DA,DIK
"RTN","PXVP201",227,0)
 S XUMF=1
"RTN","PXVP201",228,0)
 I '$D(^XTMP("PXVIMM")) W !,"RESTORE FAILED>>GLOBAL DOES NOT EXIST" Q
"RTN","PXVP201",229,0)
 F J=0:0 S J=$O(^AUTTIMM(J)) Q:J'>0  D
"RTN","PXVP201",230,0)
 . S DA=J,DIK="^AUTTIMM(" D ^DIK
"RTN","PXVP201",231,0)
 S J=-1 F  S J=$O(^XTMP("PXVIMM","PXV",J)) Q:J=""  D
"RTN","PXVP201",232,0)
 . M ^AUTTIMM(J)=^XTMP("PXVIMM","PXV",J)
"RTN","PXVP201",233,0)
 ;M ^AUTTIMM=^XTMP("PXVIMM","PXV")
"RTN","PXVP201",234,0)
 Q
"RTN","PXVP201",235,0)
REINDX ; re-indexes "B" xref for #.01 and #8801
"RTN","PXVP201",236,0)
 N DIK
"RTN","PXVP201",237,0)
 K ^AUTTIMM("B")
"RTN","PXVP201",238,0)
 S DIK="^AUTTIMM(",DIK(1)=".01^B" D ENALL^DIK
"RTN","PXVP201",239,0)
 S DIK="^AUTTIMM(",DIK(1)="8801^B" D ENALL^DIK
"RTN","PXVP201",240,0)
 Q
"RTN","PXVP201",241,0)
IMMUNIZ ;
"RTN","PXVP201",242,0)
 N DIC,DIE,DA,DR,Y,XUMF
"RTN","PXVP201",243,0)
 S XUMF=1
"RTN","PXVP201",244,0)
 F PXV=0:0 S DIC="^AUTTIMM(",DIC(0)="AEQLN" D ^DIC Q:Y<0  D
"RTN","PXVP201",245,0)
 . S DIE="^AUTTIMM(",DR=".03;.07;.2;2;3;4;5;100;8802;8803",DA=+Y D ^DIE
"RTN","PXVP201",246,0)
 Q
"RTN","PXVPST01")
0^3^B4321227
"RTN","PXVPST01",1,0)
PXVPST01 ;BIR/CML3 - V IMMUNIZATION FILE CONVERSION ; 26 Sep 2014  9:38 AM
"RTN","PXVPST01",2,0)
 ;;1.0;PCE PATIENT CARE ENCOUNTER;**201**;Aug 12, 1996;Build 41
"RTN","PXVPST01",3,0)
 ;
"RTN","PXVPST01",4,0)
MVDIAGS ;
"RTN","PXVPST01",5,0)
 ; moves the data in the previous DIAGNOSIS fields to the new fields:
"RTN","PXVPST01",6,0)
 ; the PRIMARY DIAGNOSIS (#1304) and the OTHER DIAGNOSIS (#3) multiple
"RTN","PXVPST01",7,0)
 ; this is a one-time task
"RTN","PXVPST01",8,0)
 ; ^AUPNVIMM( is the V IMMUNIZATION file (#9000010.11)
"RTN","PXVPST01",9,0)
 ; PXVV is the IENs of that file
"RTN","PXVPST01",10,0)
 ; PXVD are pieces 8-15 of the zero node, where the data for the
"RTN","PXVPST01",11,0)
 ; previous diagnosis fields (#s .08 thru .15) is stored
"RTN","PXVPST01",12,0)
 N %,%H,%I,CNT,DA,DIC,DIE,DIK,DR,Q,X,Y,PXVD,PXVNOW,PXVV
"RTN","PXVPST01",13,0)
 D NOW^%DTC S Y=% D DD^%DT S PXVNOW=Y
"RTN","PXVPST01",14,0)
 D BMES^XPDUTL("Moving the DIAGNOSIS data of the V IMMUNIZATION file to the global locations of the new fields (in the same file).  Process started "_PXVNOW)
"RTN","PXVPST01",15,0)
 S (CNT,PXVV)=0
"RTN","PXVPST01",16,0)
 F  S PXVV=$O(^AUPNVIMM(PXVV)) Q:'PXVV  S PXVD=$P($G(^(PXVV,0)),"^",8,15) I PXVD'="",PXVD'?1.7"^" D  ;
"RTN","PXVPST01",17,0)
 . ; DIAGNOSIS becomes PRIMARY DIAGNOSIS
"RTN","PXVPST01",18,0)
 . S CNT=CNT+1,X=$P(PXVD,"^")
"RTN","PXVPST01",19,0)
 . I X'="" K DA S DIE="^AUPNVIMM(",DA=PXVV,DR="1304////"_X D ^DIE S $P(^AUPNVIMM(PXVV,0),"^",8)=""
"RTN","PXVPST01",20,0)
 . ; DIAGNOSES 2-8 become entries in the OTHER DIAGNOSIS multiple
"RTN","PXVPST01",21,0)
 . F Q=2:1:8 S X=$P(PXVD,"^",Q) I X'="" D  ;
"RTN","PXVPST01",22,0)
 .. K DA,DIC S DIC="^AUPNVIMM("_PXVV_",3,",DIC(0)="L",DA(1)=PXVV
"RTN","PXVPST01",23,0)
 .. D FILE^DICN S $P(^AUPNVIMM(PXVV,0),"^",Q+7)=""
"RTN","PXVPST01",24,0)
 ;
"RTN","PXVPST01",25,0)
MVDONE ; DIAGNOSIS data move completed
"RTN","PXVPST01",26,0)
 D NOW^%DTC S Y=% D DD^%DT S PXVNOW=Y
"RTN","PXVPST01",27,0)
 K Q S Q(1)=" ",Q(3)=" "_CNT_" entr"_$S(CNT'=1:"ies",1:"y")_" processed."
"RTN","PXVPST01",28,0)
 S Q(2)=" Process moving DIAGNOSIS data within the V IMMUNIZATION file completed at "_PXVNOW
"RTN","PXVPST01",29,0)
 D BMES^XPDUTL(.Q)
"RTN","PXVPST01",30,0)
 ;
"RTN","PXVPST01",31,0)
RMVFLD ;
"RTN","PXVPST01",32,0)
 ; following code no longer needed . . .
"RTN","PXVPST01",33,0)
 ; I $P($G(^DD(9000010.11,.1,0)),"^")="DIAGNOSIS 3" K DA S DIK="^DD(9000010.11,",DA=.1,DA(1)=9000010.11 D ^DIK
"RTN","PXVPST01",34,0)
 Q
"RTN","PXVUTIL")
0^1^B3032993
"RTN","PXVUTIL",1,0)
PXVUTIL ;BIR/ADM - VIMM UTILITY ROUTINE ;21 Aug 2014  4:44 PM
"RTN","PXVUTIL",2,0)
 ;;1.0;PCE PATIENT CARE ENCOUNTER;**201**;Aug 12, 1996;Build 41
"RTN","PXVUTIL",3,0)
 ;
"RTN","PXVUTIL",4,0)
VIS ; display VIS name with identifiers
"RTN","PXVUTIL",5,0)
 N C,PXVNAME,PXVDATE,PXVSTAT,PXVLANG,X
"RTN","PXVUTIL",6,0)
 S X=$G(^AUTTIVIS(Y,0))
"RTN","PXVUTIL",7,0)
 S PXVNAME=$P(X,"^"),PXVDATE=$P(X,"^",2),PXVSTAT=$P(X,"^",3),PXVLANG=$P(X,"^",4)
"RTN","PXVUTIL",8,0)
 S X=PXVDATE,PXVDATE=$E(X,4,5)_"-"_$E(X,6,7)_"-"_$E(X,2,3)
"RTN","PXVUTIL",9,0)
 S Y=PXVSTAT,C=$P(^DD(920,.03,0),"^",2) D:Y'="" Y^DIQ S PXVSTAT=Y
"RTN","PXVUTIL",10,0)
 S Y=PXVLANG,C=$P(^DD(920,.04,0),"^",2) D:Y'="" Y^DIQ S PXVLANG=Y
"RTN","PXVUTIL",11,0)
 S Y=PXVNAME_"   "_PXVDATE_"   "_PXVSTAT_"   "_PXVLANG
"RTN","PXVUTIL",12,0)
 Q
"RTN","PXVUTIL",13,0)
 ;;
"RTN","PXVUTIL",14,0)
DUPDX(PXVIEN,PXVDX) ; extrinsic function to check for duplicate diagnoses
"RTN","PXVUTIL",15,0)
 ; PXVIEN - Internal Entry Number of the event, pointing to the
"RTN","PXVUTIL",16,0)
 ;        V IMMUNIZATION file (9000010.11)
"RTN","PXVUTIL",17,0)
 ; PXVDX is the diagnosis entered and used to check for duplicates
"RTN","PXVUTIL",18,0)
 ; 
"RTN","PXVUTIL",19,0)
 ; this code is called by the input transforms of:
"RTN","PXVUTIL",20,0)
 ;        ^DD(9000010.11,1304,0) & ^DD(9000010.113,.01,0)
"RTN","PXVUTIL",21,0)
 ; 
"RTN","PXVUTIL",22,0)
 ; RETURNS a 1 if the diagnosis already exists for this
"RTN","PXVUTIL",23,0)
 ;         entry, 0 if not
"RTN","PXVUTIL",24,0)
 ;
"RTN","PXVUTIL",25,0)
 N TXT K TXT S TXT(2)=" ",TXT(1,"F")="?5"
"RTN","PXVUTIL",26,0)
 I PXVDX=$P($G(^AUPNVIMM(PXVIEN,13)),"^",4) S TXT(1)="Selected diagnosis exists as the Primary Diagnosis for this event." D EN^DDIOL(.TXT,"","") Q 1
"RTN","PXVUTIL",27,0)
 I $D(^AUPNVIMM(PXVIEN,3,"B",PXVDX)) S TXT(1)="Selected diagnosis exists for this event." D EN^DDIOL(.TXT,"","") Q 1
"RTN","PXVUTIL",28,0)
 Q 0
"RTN","PXVUTIL",29,0)
 ;;
"RTN","PXVUTIL",30,0)
RSETDA ; code needed for the routine AUPNSICD to have the correct value in
"RTN","PXVUTIL",31,0)
 ;   DA, as AUPNSICD is not designed to be called from a multiple.
"RTN","PXVUTIL",32,0)
 N DA S DA=D0
"RTN","PXVUTIL",33,0)
 D ^AUPNSICD
"RTN","PXVUTIL",34,0)
 Q
"SEC","^DIC",920,920,0,"AUDIT")
@
"SEC","^DIC",920,920,0,"DD")
@
"SEC","^DIC",920,920,0,"DEL")
@
"SEC","^DIC",920,920,0,"LAYGO")
@
"SEC","^DIC",920,920,0,"WR")
@
"SEC","^DIC",920.1,920.1,0,"AUDIT")
@
"SEC","^DIC",920.1,920.1,0,"DD")
@
"SEC","^DIC",920.1,920.1,0,"DEL")
@
"SEC","^DIC",920.1,920.1,0,"LAYGO")
@
"SEC","^DIC",920.1,920.1,0,"RD")
@
"SEC","^DIC",920.1,920.1,0,"WR")
@
"SEC","^DIC",920.2,920.2,0,"AUDIT")
@
"SEC","^DIC",920.2,920.2,0,"DD")
@
"SEC","^DIC",920.2,920.2,0,"DEL")
@
"SEC","^DIC",920.2,920.2,0,"LAYGO")
@
"SEC","^DIC",920.2,920.2,0,"WR")
@
"SEC","^DIC",920.3,920.3,0,"AUDIT")
@
"SEC","^DIC",920.3,920.3,0,"DD")
@
"SEC","^DIC",920.3,920.3,0,"DEL")
@
"SEC","^DIC",920.3,920.3,0,"LAYGO")
@
"SEC","^DIC",920.3,920.3,0,"WR")
@
"SEC","^DIC",9000010.11,9000010.11,0,"AUDIT")
@
"SEC","^DIC",9000010.11,9000010.11,0,"DD")
@
"SEC","^DIC",9999999.04,9999999.04,0,"AUDIT")
@
"SEC","^DIC",9999999.04,9999999.04,0,"DD")
@
"SEC","^DIC",9999999.04,9999999.04,0,"DEL")
@
"SEC","^DIC",9999999.04,9999999.04,0,"LAYGO")
@
"SEC","^DIC",9999999.04,9999999.04,0,"RD")

"SEC","^DIC",9999999.04,9999999.04,0,"WR")
@
"SEC","^DIC",9999999.14,9999999.14,0,"AUDIT")
@
"SEC","^DIC",9999999.14,9999999.14,0,"DD")
@
"SEC","^DIC",9999999.14,9999999.14,0,"DEL")
@
"SEC","^DIC",9999999.14,9999999.14,0,"LAYGO")
@
"SEC","^DIC",9999999.14,9999999.14,0,"WR")
@
"SEC","^DIC",9999999.41,9999999.41,0,"AUDIT")
@
"SEC","^DIC",9999999.41,9999999.41,0,"DD")
@
"SEC","^DIC",9999999.41,9999999.41,0,"DEL")
@
"SEC","^DIC",9999999.41,9999999.41,0,"LAYGO")
@
"SEC","^DIC",9999999.41,9999999.41,0,"RD")
@
"SEC","^DIC",9999999.41,9999999.41,0,"WR")
@
"TEMP","PXVCVX",0)
3141114^3141104
"TEMP","PXVCVX",1,0)
1^DTP^diphtheria, tetanus toxoids and pertussis vaccine^Y^Inactive^^^90701^Active^^
"TEMP","PXVCVX",2,0)
2^OPV^poliovirus vaccine, live, oral^N^Inactive^^^90712^Active^^ORIMUNE
"TEMP","PXVCVX",3,0)
3^MMR^measles, mumps and rubella virus vaccine^Y^Active^Measles/Mumps/Rubella VIS^MEASLES/MUMPS/RUBELLA VIS^90707^Active^MMR^M-M-R II
"TEMP","PXVCVX",4,0)
4^M/R^measles and rubella virus vaccine^Y^Inactive^^^90708^Active^^
"TEMP","PXVCVX",5,0)
5^measles^measles virus vaccine^N^Inactive^^^90705^Active^^ATTENUVAX
"TEMP","PXVCVX",6,0)
6^rubella^rubella virus vaccine^N^Active^^^90706^Active^^MERUVAX II
"TEMP","PXVCVX",7,0)
7^mumps^mumps virus vaccine^N^Active^^^90704^Active^^MUMPSVAX
"TEMP","PXVCVX",8,0)
8^Hep B, adolescent or pediatric^hepatitis B vaccine, pediatric or pediatric/adolescent dosage^N^Active^Hepatitis B VIS^HEPATITIS B VIS^90744^Active^HepB^ENGERIX B-PEDS|RECOMBIVAX-PEDS
"TEMP","PXVCVX",9,0)
9^Td (adult), adsorbed^tetanus and diphtheria toxoids, adsorbed, for adult use^Y^Active^Tetanus/Diphtheria (Td) VIS^TETANUS/DIPHTHERIA (TD) VIS^90718^Inactive^Td^TD(GENERIC)|Td, (adult)
"TEMP","PXVCVX",10,0)
10^IPV^poliovirus vaccine, inactivated^N^Active^Polio VIS^POLIO VIS^90713^Active^IPV^IPOL
"TEMP","PXVCVX",11,0)
11^pertussis^pertussis vaccine^N^Inactive^^^^^^
"TEMP","PXVCVX",12,0)
15^influenza, split (incl. purified surface antigen)^influenza virus vaccine, split virus (incl. purified surface antigen)-retired CODE^N^Inactive^^^^^^
"TEMP","PXVCVX",13,0)
16^influenza, whole^influenza virus vaccine, whole virus^N^Inactive^^^90659^Inactive^^
"TEMP","PXVCVX",14,0)
17^Hib, unspecified formulation^Haemophilus influenzae type b vaccine, conjugate unspecified formulation^N^Inactive^^^90737^Inactive^^
"TEMP","PXVCVX",15,0)
18^rabies, intramuscular injection^rabies vaccine, for intramuscular injection^N^Active^Rabies VIS^RABIES VIS^90675^Active^^IMOVAX|RABAVERT
"TEMP","PXVCVX",16,0)
19^BCG^Bacillus Calmette-Guerin vaccine^N^Active^^^90585^Active^^MYCOBAX|TICE BCG
"TEMP","PXVCVX",17,0)
20^DTaP^diphtheria, tetanus toxoids and acellular pertussis vaccine^Y^Active^Diphtheria/Tetanus/Pertussis (DTaP) VIS^DIPHTHERIA/TETANUS/PERTUSSIS (DTAP) VIS^90700^Active^DTaP^ACEL-IMUNE|CERTIVA|INFANRIX|TRIPEDIA
"TEMP","PXVCVX",18,0)
21^varicella^varicella virus vaccine^N^Active^Varicella (Chickenpox) VIS^VARICELLA (CHICKENPOX) VIS^90716^Active^VAR^VARIVAX
"TEMP","PXVCVX",19,0)
22^DTP-Hib^DTP-Haemophilus influenzae type b conjugate vaccine^Y^Inactive^^^90720^Active^^TETRAMUNE
"TEMP","PXVCVX",20,0)
23^plague^plague vaccine^N^Active^^^90727^Active^^
"TEMP","PXVCVX",21,0)
24^anthrax^anthrax vaccine^N^Active^^^90581^Active^^BIOTHRAX
"TEMP","PXVCVX",22,0)
25^typhoid, oral^typhoid vaccine, live, oral^N^Active^Typhoid VIS^TYPHOID VIS^90690^Active^^VIVOTIF BERNA
"TEMP","PXVCVX",23,0)
26^cholera^cholera vaccine^N^Inactive^^^90725^Active^^
"TEMP","PXVCVX",24,0)
28^DT (pediatric)^diphtheria and tetanus toxoids, adsorbed for pediatric use^Y^Active^^^90702^Active^DT^DT(GENERIC)
"TEMP","PXVCVX",25,0)
31^Hep A, pediatric, unspecified formulation^hepatitis A vaccine, pediatric dosage, unspecified formulation^N^Inactive^^^^^HepA^
"TEMP","PXVCVX",26,0)
32^meningococcal MPSV4^meningococcal polysaccharide vaccine (MPSV4)^N^Active^Meningococcal VIS^MENINGOCOCCAL VIS^90733^Active^MPSV4^MENOMUNE
"TEMP","PXVCVX",27,0)
33^pneumococcal polysaccharide PPV23^pneumococcal polysaccharide vaccine, 23 valent^N^Active^Pneumococcal Polysaccharide VIS^PNEUMOCOCCAL POLYSACCHARIDE VIS^90732^Active^PPSV23^PNEUMOVAX 23
"TEMP","PXVCVX",28,0)
35^tetanus toxoid, adsorbed^tetanus toxoid, adsorbed^N^Active^Tetanus/Diphtheria (Td) VIS^TETANUS/DIPHTHERIA (TD) VIS^90703^Active^^TETANUS TOXOID (GENERIC)
"TEMP","PXVCVX",29,0)
37^yellow fever^yellow fever vaccine^N^Active^Yellow Fever VIS^YELLOW FEVER VIS^90717^Active^^YF-VAX
"TEMP","PXVCVX",30,0)
38^rubella/mumps^rubella and mumps virus vaccine^Y^Inactive^^^^^^BIAVAX II
"TEMP","PXVCVX",31,0)
39^Japanese encephalitis SC^Japanese Encephalitis Vaccine SC^N^Active^^^90735^Active^^JE-VAX
"TEMP","PXVCVX",32,0)
40^rabies, intradermal injection^rabies vaccine, for intradermal injection^N^Active^^^90676^Active^^IMOVAX ID|RabAvert
"TEMP","PXVCVX",33,0)
41^typhoid, parenteral^typhoid vaccine, parenteral, other than acetone-killed, dried^N^Active^Typhoid VIS^TYPHOID VIS^90692^Active^^
"TEMP","PXVCVX",34,0)
42^Hep B, adolescent/high risk infant^hepatitis B vaccine, adolescent/high risk infant dosage^N^Inactive^Hepatitis B VIS^HEPATITIS B VIS^90745^Inactive^HepB^
"TEMP","PXVCVX",35,0)
43^Hep B, adult^hepatitis B vaccine, adult dosage^N^Active^Hepatitis B VIS^HEPATITIS B VIS^90746|90743^Active^HepB^ENGERIX-B-ADULT|RECOMBIVAX-ADULT
"TEMP","PXVCVX",36,0)
44^Hep B, dialysis^hepatitis B vaccine, dialysis patient dosage^N^Active^Hepatitis B VIS^HEPATITIS B VIS^90740|90747^Active^HepB^RECOMBIVAX-DIALYSIS
"TEMP","PXVCVX",37,0)
45^Hep B, unspecified formulation^hepatitis B vaccine, unspecified formulation^N^Inactive^^^90731^Inactive^HepB^
"TEMP","PXVCVX",38,0)
46^Hib (PRP-D)^Haemophilus influenzae type b vaccine, PRP-D conjugate^N^Inactive^^^90646^Active^^PROHIBIT
"TEMP","PXVCVX",39,0)
47^Hib (HbOC)^Haemophilus influenzae type b vaccine, HbOC conjugate^N^Inactive^^^90645^Active^^HIBTITER
"TEMP","PXVCVX",40,0)
48^Hib (PRP-T)^Haemophilus influenzae type b vaccine, PRP-T conjugate^N^Active^Haemophilus Influenzae type b VIS^HAEMOPHILUS INFLUENZAE TYPE B VIS^90648^Active^PRP-T^ACTHIB|HIBERIX|OMNIHIB
"TEMP","PXVCVX",41,0)
49^Hib (PRP-OMP)^Haemophilus influenzae type b vaccine, PRP-OMP conjugate^N^Active^Haemophilus Influenzae type b VIS^HAEMOPHILUS INFLUENZAE TYPE B VIS^90647^Active^PRP-OMP^PEDVAXHIB
"TEMP","PXVCVX",42,0)
50^DTaP-Hib^DTaP-Haemophilus influenzae type b conjugate vaccine^Y^Active^^^90721^Active^^TRIHIBIT
"TEMP","PXVCVX",43,0)
51^Hib-Hep B^Haemophilus influenzae type b conjugate and Hepatitis B vaccine^Y^Active^Haemophilus Influenzae type b VIS|Hepatitis B VIS^HAEMOPHILUS INFLUENZAE TYPE B VIS|HEPATITIS B VIS^90748^Active^Hib-HepB^COMVAX
"TEMP","PXVCVX",44,0)
52^Hep A, adult^hepatitis A vaccine, adult dosage^N^Active^Hepatitis A VIS^HEPATITIS A VIS^90632^Active^HepA^HAVRIX-ADULT|VAQTA-ADULT
"TEMP","PXVCVX",45,0)
53^typhoid, parenteral, AKD (U.S. military)^typhoid vaccine, parenteral, acetone-killed, dried (U.S. military)^N^Active^^^90693^Active^^TYPHOID-AKD
"TEMP","PXVCVX",46,0)
54^adenovirus, type 4^adenovirus vaccine, type 4, live, oral^N^Inactive^^^90476^Active^^
"TEMP","PXVCVX",47,0)
55^adenovirus, type 7^adenovirus vaccine, type 7, live, oral^N^Inactive^^^90477^Active^^
"TEMP","PXVCVX",48,0)
62^HPV, quadrivalent^human papilloma virus vaccine, quadrivalent^N^Active^Human papillomavirus Vaccine (Gardasil) VIS^HUMAN PAPILLOMAVIRUS VACCINE (GARDASIL) VIS^90649^Active^HPV4^GARDASIL
"TEMP","PXVCVX",49,0)
66^Lyme disease^Lyme disease vaccine^N^Inactive^^^90665^Active^^
"TEMP","PXVCVX",50,0)
69^parainfluenza-3^parainfluenza-3 virus vaccine^N^Inactive^^^^^^
"TEMP","PXVCVX",51,0)
74^rotavirus, tetravalent^rotavirus, live, tetravalent vaccine^N^Inactive^^^^^^
"TEMP","PXVCVX",52,0)
75^vaccinia (smallpox)^vaccinia (smallpox) vaccine^N^Active^^^^^^ACAM2000|DRYVAX
"TEMP","PXVCVX",53,0)
76^Staphylococcus bacterio lysate^Staphylococcus bacteriophage lysate^N^Inactive^^^^^^
"TEMP","PXVCVX",54,0)
77^tick-borne encephalitis^tick-borne encephalitis vaccine^N^Inactive^^^^^^
"TEMP","PXVCVX",55,0)
78^tularemia vaccine^tularemia vaccine^N^Inactive^^^^^^
"TEMP","PXVCVX",56,0)
80^VEE, live^Venezuelan equine encephalitis, live, attenuated^N^Inactive^^^^^^
"TEMP","PXVCVX",57,0)
81^VEE, inactivated^Venezuelan equine encephalitis, inactivated^N^Inactive^^^^^^
"TEMP","PXVCVX",58,0)
82^adenovirus, unspecified formulation^adenovirus vaccine, unspecified formulation^N^Inactive^^^^^^
"TEMP","PXVCVX",59,0)
83^Hep A, ped/adol, 2 dose^hepatitis A vaccine, pediatric/adolescent dosage, 2 dose schedule^N^Active^Hepatitis A VIS^HEPATITIS A VIS^90633^Active^HepA^HAVRIX-PEDS|VAQTA-PEDS
"TEMP","PXVCVX",60,0)
84^Hep A, ped/adol, 3 dose^hepatitis A vaccine, pediatric/adolescent dosage, 3 dose schedule^N^Inactive^^^90634^Active^HepA^
"TEMP","PXVCVX",61,0)
85^Hep A, unspecified formulation^hepatitis A vaccine, unspecified formulation^N^Inactive^^^90730^Inactive^HepA^
"TEMP","PXVCVX",62,0)
88^influenza, unspecified formulation^influenza virus vaccine, unspecified formulation^N^Inactive^^^90724^Inactive^^
"TEMP","PXVCVX",63,0)
89^polio, unspecified formulation^poliovirus vaccine, unspecified formulation^N^Inactive^^^^^^
"TEMP","PXVCVX",64,0)
90^rabies, unspecified formulation^rabies vaccine, unspecified formulation^N^Inactive^^^90726^Inactive^^
"TEMP","PXVCVX",65,0)
91^typhoid, unspecified formulation^typhoid vaccine, unspecified formulation^N^Inactive^^^90714^Inactive^^
"TEMP","PXVCVX",66,0)
92^VEE, unspecified formulation^Venezuelan equine encephalitis vaccine, unspecified formulation^N^Inactive^^^^^^
"TEMP","PXVCVX",67,0)
94^MMRV^measles, mumps, rubella, and varicella virus vaccine^Y^Active^Measles/Mumps/Rubella/Varicella VIS^MEASLES/MUMPS/RUBELLA/VARICELLA VIS^90710^Active^MMRV^PROQUAD
"TEMP","PXVCVX",68,0)
100^pneumococcal conjugate PCV 7^pneumococcal conjugate vaccine, 7 valent^N^Active^^^90669^Active^PCV7^PREVNAR 7
"TEMP","PXVCVX",69,0)
101^typhoid, ViCPs^typhoid Vi capsular polysaccharide vaccine^N^Active^Typhoid VIS^TYPHOID VIS^90691^Active^^TYPHIM VI
"TEMP","PXVCVX",70,0)
102^DTP-Hib-Hep B^DTP- Haemophilus influenzae type b conjugate and hepatitis b vaccine^Y^Inactive^^^^^^
"TEMP","PXVCVX",71,0)
103^meningococcal C conjugate^meningococcal C conjugate vaccine^N^Inactive^^^^^^
"TEMP","PXVCVX",72,0)
104^Hep A-Hep B^hepatitis A and hepatitis B vaccine^Y^Active^Hepatitis A VIS|Hepatitis B VIS^HEPATITIS A VIS|HEPATITIS B VIS^90636^Active^HepA-HepB^TWINRIX
"TEMP","PXVCVX",73,0)
105^vaccinia (smallpox) diluted^vaccinia (smallpox) vaccine, diluted^N^Inactive^^^^^^
"TEMP","PXVCVX",74,0)
106^DTaP, 5 pertussis antigens^diphtheria, tetanus toxoids and acellular pertussis vaccine, 5 pertussis antigens^Y^Active^Diphtheria/Tetanus/Pertussis (DTaP) VIS^DIPHTHERIA/TETANUS/PERTUSSIS (DTAP) VIS^90700^Active^DTaP^DAPTACEL
"TEMP","PXVCVX",75,0)
107^DTaP, unspecified formulation^diphtheria, tetanus toxoids and acellular pertussis vaccine, unspecified formulation^Y^Inactive^^^^^DTaP^
"TEMP","PXVCVX",76,0)
108^meningococcal, unspecified formulation^meningococcal vaccine, unspecified formulation^N^Inactive^^^^^^
"TEMP","PXVCVX",77,0)
109^pneumococcal, unspecified formulation^pneumococcal vaccine, unspecified formulation^N^Inactive^^^^^^
"TEMP","PXVCVX",78,0)
110^DTaP-Hep B-IPV^DTaP-hepatitis B and poliovirus vaccine^Y^Active^Diphtheria/Tetanus/Pertussis (DTaP) VIS|Hepatitis B VIS|Polio VIS^DIPHTHERIA/TETANUS/PERTUSSIS (DTAP) VIS|HEPATITIS B VIS|POLIO VIS^90723^Active^DTaP-HepB-IPV^PEDIARIX
"TEMP","PXVCVX",79,0)
111^influenza, live, intranasal^influenza virus vaccine, live, attenuated, for intranasal use^N^Active^Influenza Vaccine - Live, Intranasal VIS^INFLUENZA VACCINE - LIVE, INTRANASAL VIS^90660^Active^LAIV3^FLUMIST
"TEMP","PXVCVX",80,0)
112^tetanus toxoid, unspecified formulation^tetanus toxoid, unspecified formulation^N^Inactive^^^^^TT^
"TEMP","PXVCVX",81,0)
113^Td (adult) preservative free^tetanus and diphtheria toxoids, adsorbed, preservative free, for adult use^Y^Active^Tetanus/Diphtheria (Td) VIS^TETANUS/DIPHTHERIA (TD) VIS^90714^Active^Td^DECAVAC|Tenivac
"TEMP","PXVCVX",82,0)
114^meningococcal MCV4P^meningococcal polysaccharide (groups A, C, Y and W-135) diphtheria toxoid conjugate vaccine (MCV4P)^N^Active^Meningococcal VIS^MENINGOCOCCAL VIS^90734^Active^MCV4P^MENACTRA
"TEMP","PXVCVX",83,0)
115^Tdap^tetanus toxoid, reduced diphtheria toxoid, and acellular pertussis vaccine, adsorbed^Y^Active^Tetanus/Diphtheria/Pertussis (Tdap) VIS^TETANUS/DIPHTHERIA/PERTUSSIS (TDAP) VIS^90715^Active^Tdap^ADACEL|BOOSTRIX
"TEMP","PXVCVX",84,0)
116^rotavirus, pentavalent^rotavirus, live, pentavalent vaccine^N^Active^Rotavirus VIS^ROTAVIRUS VIS^90680^Active^RV5^ROTATEQ
"TEMP","PXVCVX",85,0)
118^HPV, bivalent^human papilloma virus vaccine, bivalent^N^Active^Human papillomavirus Vaccine (Cervarix) VIS^HUMAN PAPILLOMAVIRUS VACCINE (CERVARIX) VIS^90650^Active^HPV2^CERVARIX
"TEMP","PXVCVX",86,0)
119^rotavirus, monovalent^rotavirus, live, monovalent vaccine^N^Active^Rotavirus VIS^ROTAVIRUS VIS^90681^Active^RV1^ROTARIX
"TEMP","PXVCVX",87,0)
120^DTaP-Hib-IPV^diphtheria, tetanus toxoids and acellular pertussis vaccine, Haemophilus influenzae type b conjugate, and poliovirus vaccine, inactivated (DTaP-Hib-IPV)^Y^Active^Diphtheria/Tetanus/Pertussis (DTaP) VIS|Haemophilus Influenzae type b VIS|Po
"TEMP","PXVCVX",87,"OVF",1)
lio VIS^DIPHTHERIA/TETANUS/PERTUSSIS (DTAP) VIS|HAEMOPHILUS INFLUENZAE TYPE B VIS|POLIO VIS^90698^Active^DTaP-IPV/Hib^PENTACEL
"TEMP","PXVCVX",88,0)
121^zoster^zoster vaccine, live^N^Active^Shingles VIS^SHINGLES VIS^90736^Active^HZV^ZOSTAVAX
"TEMP","PXVCVX",89,0)
122^rotavirus, unspecified formulation^rotavirus vaccine, unspecified formulation^N^Inactive^^^^^^
"TEMP","PXVCVX",90,0)
123^influenza, H5N1-1203^influenza virus vaccine, H5N1, A/Vietnam/1203/2004 (national stockpile)^N^Inactive^^^^^^
"TEMP","PXVCVX",91,0)
125^Novel Influenza-H1N1-09, nasal^Novel Influenza-H1N1-09, live virus for nasal administration^N^Inactive^^^90664^Inactive^^
"TEMP","PXVCVX",92,0)
126^Novel influenza-H1N1-09, preservative-free^Novel influenza-H1N1-09, preservative-free, injectable^N^Inactive^^^90666^Inactive^^
"TEMP","PXVCVX",93,0)
127^Novel influenza-H1N1-09^Novel influenza-H1N1-09, injectable^N^Inactive^^^90668^Inactive^^
"TEMP","PXVCVX",94,0)
128^Novel Influenza-H1N1-09, all formulations^Novel influenza-H1N1-09, all formulations^N^Inactive^^^90663|90470^Inactive^^
"TEMP","PXVCVX",95,0)
129^Japanese Encephalitis, unspecified formulation^Japanese Encephalitis vaccine, unspecified formulation^N^Inactive^^^^^^
"TEMP","PXVCVX",96,0)
130^DTaP-IPV^Diphtheria, tetanus toxoids and acellular pertussis vaccine, and poliovirus vaccine, inactivated^Y^Active^Diphtheria/Tetanus/Pertussis (DTaP) VIS|Polio VIS^DIPHTHERIA/TETANUS/PERTUSSIS (DTAP) VIS|POLIO VIS^90696^Active^DTaP-IPV^KINRIX
"TEMP","PXVCVX",97,0)
131^typhus, historical^Historical record of a typhus vaccination^N^Inactive^^^^^^
"TEMP","PXVCVX",98,0)
132^DTaP-IPV-HIB-HEP B, historical^Historical record of vaccine containing: * diphtheria, tetanus toxoids and acellular pertussis, * poliovirus, inactivated, * Haemophilus influenzae type b conjugate, * Hepatitis B (DTaP-Hib-IPV)^Y^Inactive^^^^^DTaP-HepB-
"TEMP","PXVCVX",98,"OVF",1)
IPV^
"TEMP","PXVCVX",99,0)
133^Pneumococcal conjugate PCV 13^pneumococcal conjugate vaccine, 13 valent^N^Active^Pneumococcal Conjugate (PCV13) VIS^PNEUMOCOCCAL CONJUGATE (PCV13) VIS^90670^Active^PCV13^PREVNAR 13
"TEMP","PXVCVX",100,0)
134^Japanese Encephalitis IM^Japanese Encephalitis vaccine for intramuscular administration^N^Active^Japanese Encephalitis VIS^JAPANESE ENCEPHALITIS VIS^90738^Active^^IXIARO
"TEMP","PXVCVX",101,0)
135^Influenza, high dose seasonal^influenza, high dose seasonal, preservative-free^N^Active^Influenza Vaccine - Inactivated VIS^INFLUENZA VACCINE - INACTIVATED VIS^90662^Active^IIV3^FLUZONE-HIGH DOSE
"TEMP","PXVCVX",102,0)
136^Meningococcal MCV4O^meningococcal oligosaccharide (groups A, C, Y and W-135) diphtheria toxoid conjugate vaccine (MCV4O)^N^Active^Meningococcal VIS^MENINGOCOCCAL VIS^90734^Active^MCV4O^MENVEO
"TEMP","PXVCVX",103,0)
137^HPV, unspecified formulation^HPV, unspecified formulation^N^Inactive^^^^^^
"TEMP","PXVCVX",104,0)
138^Td (adult)^tetanus and diphtheria toxoids, not adsorbed, for adult use^Y^Active^Tetanus/Diphtheria (Td) VIS^TETANUS/DIPHTHERIA (TD) VIS^^^^
"TEMP","PXVCVX",105,0)
139^Td(adult) unspecified formulation^Td(adult) unspecified formulation^Y^Inactive^^^^^^
"TEMP","PXVCVX",106,0)
140^Influenza, seasonal, injectable, preservative free^Influenza, seasonal, injectable, preservative free^N^Active^Influenza Vaccine - Inactivated VIS^INFLUENZA VACCINE - INACTIVATED VIS^90656|90655^Active^IIV3^Afluria, preservative free|AGRIFLU|FLUARIX|F
"TEMP","PXVCVX",106,"OVF",1)
LUVIRIN-PRESERVATIVE FREE|FLUZONE-PRESERVATIVE FREE
"TEMP","PXVCVX",107,0)
141^Influenza, seasonal, injectable^Influenza, seasonal, injectable^N^Active^Influenza Vaccine - Inactivated VIS^INFLUENZA VACCINE - INACTIVATED VIS^90658|90657^Active^IIV3^AFLURIA|FLUAVAL|FLUVIRIN|FLUZONE
"TEMP","PXVCVX",108,0)
142^tetanus toxoid, not adsorbed^tetanus toxoid, not adsorbed^N^Active^Tetanus/Diphtheria (Td) VIS^TETANUS/DIPHTHERIA (TD) VIS^^^^
"TEMP","PXVCVX",109,0)
143^Adenovirus types 4 and 7^Adenovirus, type 4 and type 7, live, oral^N^Active^Adenovirus VIS^ADENOVIRUS VIS^^^^Adenovirus types 4 and 7
"TEMP","PXVCVX",110,0)
144^influenza, seasonal, intradermal, preservative free^seasonal influenza, intradermal, preservative free^N^Active^Influenza Vaccine - Inactivated VIS^INFLUENZA VACCINE - INACTIVATED VIS^90654^Active^IIV3^Fluzone, intradermal
"TEMP","PXVCVX",111,0)
147^meningococcal MCV4, unspecified formulation^Meningococcal, MCV4, unspecified formulation(groups A, C, Y and W-135)^N^Inactive^^^^^^
"TEMP","PXVCVX",112,0)
148^Meningococcal C/Y-HIB PRP^Meningococcal Groups C and Y and Haemophilus b Tetanus Toxoid Conjugate Vaccine^Y^Active^Haemophilus Influenzae type b VIS^HAEMOPHILUS INFLUENZAE TYPE B VIS^90644^Active^Hib-MenCY^MENHIBRIX
"TEMP","PXVCVX",113,0)
149^influenza, live, intranasal, quadrivalent^influenza, live, intranasal, quadrivalent^N^Active^Influenza Vaccine - Live, Intranasal VIS^INFLUENZA VACCINE - LIVE, INTRANASAL VIS^90672^Active^LAIV4^Flumist quadrivalent
"TEMP","PXVCVX",114,0)
150^influenza, injectable, quadrivalent, preservative free^Influenza, injectable, quadrivalent, preservative free^N^Active^Influenza Vaccine - Inactivated VIS^INFLUENZA VACCINE - INACTIVATED VIS^90686|90685^Active^IIV4^Fluarix, quadrivalent|Fluzone, Quadr
"TEMP","PXVCVX",114,"OVF",1)
ivalent
"TEMP","PXVCVX",115,0)
151^influenza nasal, unspecified formulation^influenza nasal, unspecified formulation^N^Inactive^^^^^^
"TEMP","PXVCVX",116,0)
152^Pneumococcal Conjugate, unspecified formulation^Pneumococcal Conjugate, unspecified formulation^N^Inactive^^^^^^
"TEMP","PXVCVX",117,0)
153^Influenza, injectable, MDCK, preservative free^Influenza, injectable, Madin Darby Canine Kidney, preservative free^N^Active^Influenza Vaccine - Inactivated VIS^INFLUENZA VACCINE - INACTIVATED VIS^90661^Active^ccIIV3^Flucelvax
"TEMP","PXVCVX",118,0)
155^influenza, recombinant, injectable, preservative free^Seasonal, trivalent, recombinant, injectable influenza vaccine, preservative free^N^Active^Influenza Vaccine - Inactivated VIS^INFLUENZA VACCINE - INACTIVATED VIS^90673^Active^RIV3^Flublok
"TEMP","PXVCVX",119,0)
158^influenza, injectable, quadrivalent^influenza, injectable, quadrivalent, contains preservative^N^Active^Influenza Vaccine - Inactivated VIS^INFLUENZA VACCINE - INACTIVATED VIS^90688^Active^IIV4^Flulaval quadrivalent
"TEMP","PXVCVX",120,0)
160^Influenza A monovalent (H5N1), ADJUVANTED-2013^Influenza A monovalent (H5N1), adjuvanted, National stockpile 2013^N^Active^^^^^^Influenza A (H5N1) -2013
"TEMP","PXVCVX",121,0)
801^AS03 Adjuvant^AS03 Adjuvant^N^Active^^^^^^
"TEMP","PXVMAP",0)
3141114^3141104
"TEMP","PXVMAP",1,0)
DIPHTHERIA/TETANUS/PERTUSSIS^1
"TEMP","PXVMAP",2,0)
DIP.,PERT.,TET. (DPT)^1
"TEMP","PXVMAP",3,0)
POLIOVIRUS VACCINE, LIVE ORAL^2
"TEMP","PXVMAP",4,0)
ORAL POLIOVIRUS^2
"TEMP","PXVMAP",5,0)
MEASLES, MUMPS, RUBELLA (MMR)^3
"TEMP","PXVMAP",6,0)
MEASLES,MUMPS,RUBELLA  (MMR)^3
"TEMP","PXVMAP",7,0)
MEASLES,MUMPS,RUBELLA (MMR)^3
"TEMP","PXVMAP",8,0)
MEASLES,MUMPS,RUBELLA (MMR)-1^3
"TEMP","PXVMAP",9,0)
MEASLES,MUMPS,RUBELLA (MMR)-2^3
"TEMP","PXVMAP",10,0)
MEASLES,MUMPS,RUBELLA SERIES COMPLETED^3
"TEMP","PXVMAP",11,0)
MEASLES,MUMPS,RUBELLA^3
"TEMP","PXVMAP",12,0)
MEASSLES,MUMPS,RUBELLA (MMR)^3
"TEMP","PXVMAP",13,0)
MMR, given elsewhere^3
"TEMP","PXVMAP",14,0)
OUTSIDE MEASLES,MUMPS,RUBELLA (MMR)^3
"TEMP","PXVMAP",15,0)
MEASLES/MUMPS/RUBELLA^3
"TEMP","PXVMAP",16,0)
MMR^3
"TEMP","PXVMAP",17,0)
MMR GIVEN ELSEWHERE^3
"TEMP","PXVMAP",18,0)
MEASELS, MUMPS, RUBELLA (MMR)^3
"TEMP","PXVMAP",19,0)
MEASLES,RUBELLA (MR)^4
"TEMP","PXVMAP",20,0)
MEASLES^5
"TEMP","PXVMAP",21,0)
MEASLES VACCINE^5
"TEMP","PXVMAP",22,0)
RUBELLA^6
"TEMP","PXVMAP",23,0)
RUBELLA VACCINE^6
"TEMP","PXVMAP",24,0)
MUMPS^7
"TEMP","PXVMAP",25,0)
MUMPS VACCINE^7
"TEMP","PXVMAP",26,0)
MUMPS VIRUS VACCINE^7
"TEMP","PXVMAP",27,0)
HEPATITIS B VACCINE (NEWBORN TO 19 YEARS)^8
"TEMP","PXVMAP",28,0)
DIPTHERIA-TETANUS (DT)^9
"TEMP","PXVMAP",29,0)
POLIOVIRUS VACCINE, INACTIVATED^10
"TEMP","PXVMAP",30,0)
POLIOVIRUS, IPV^10
"TEMP","PXVMAP",31,0)
POLIOVIRUS,IVP^10
"TEMP","PXVMAP",32,0)
INACTIVATED POLIO VACCINE^10
"TEMP","PXVMAP",33,0)
INACTIVATED POLIOMYELITIS VACCINE (IPV)^10
"TEMP","PXVMAP",34,0)
POLIO (IPV)^10
"TEMP","PXVMAP",35,0)
POLIOMYELITIS (SALK)^10
"TEMP","PXVMAP",36,0)
POLIOVIRUS INACTIVATED^10
"TEMP","PXVMAP",37,0)
POLIOVIRUS VACCINE INJ^10
"TEMP","PXVMAP",38,0)
POLIOVIRUS VACCINE INACTIVATED (IPOL)^10
"TEMP","PXVMAP",39,0)
PERTUSSIS^11
"TEMP","PXVMAP",40,0)
FLU VACCINE, WHOLE, IM^16
"TEMP","PXVMAP",41,0)
FLU, WHOLE^16
"TEMP","PXVMAP",42,0)
FLU,WHOLE 2^16
"TEMP","PXVMAP",43,0)
FLU,WHOLE^16
"TEMP","PXVMAP",44,0)
flu,whole(Historical)^16
"TEMP","PXVMAP",45,0)
INFLUENZA, WHOLE VIRUS VACCINE^16
"TEMP","PXVMAP",46,0)
INFLUENZA,WHOLE^16
"TEMP","PXVMAP",47,0)
ZZZFLU,WHOLE^16
"TEMP","PXVMAP",48,0)
FLU WHOLE^16
"TEMP","PXVMAP",49,0)
H. INFLUENZA B^17
"TEMP","PXVMAP",50,0)
HAEMOPHILIS B^17
"TEMP","PXVMAP",51,0)
HAEMOPHILUS^17
"TEMP","PXVMAP",52,0)
HAEMOPHILUS B^17
"TEMP","PXVMAP",53,0)
HAEMOPHILUS B (HIB)^17
"TEMP","PXVMAP",54,0)
HAEMOPHILUS B CONJ.^17
"TEMP","PXVMAP",55,0)
HAEMOPHILUS B CONJUGATE^17
"TEMP","PXVMAP",56,0)
HAEMOPHILUS B CONJUGATE VACCINE^17
"TEMP","PXVMAP",57,0)
HAEMOPHILUS b STREPTOCOCCAL^17
"TEMP","PXVMAP",58,0)
HAEMOPHILUS CONJUGATE VACCINE^17
"TEMP","PXVMAP",59,0)
HAEMOPHILUS INFLUENZA B^17
"TEMP","PXVMAP",60,0)
HAEMOPHILUS INFLUENZAE B^17
"TEMP","PXVMAP",61,0)
HAEMOPHILUS TYPE B^17
"TEMP","PXVMAP",62,0)
HEMOPHILUS B^17
"TEMP","PXVMAP",63,0)
HEMOPHILUS B CONJUGATED VACCINE^17
"TEMP","PXVMAP",64,0)
HEMOPHILUS INFLUENZAE^17
"TEMP","PXVMAP",65,0)
HIB^17
"TEMP","PXVMAP",66,0)
INFLUENZA B (HIB)^17
"TEMP","PXVMAP",67,0)
RABIES,IM^18
"TEMP","PXVMAP",68,0)
IM Injection #1 (of 5) - 1ml Rabies^18
"TEMP","PXVMAP",69,0)
IM Injection #2 (of 5) - 1ml Rabies^18
"TEMP","PXVMAP",70,0)
RABIES IMOVAX^18
"TEMP","PXVMAP",71,0)
RABIES IM^18
"TEMP","PXVMAP",72,0)
BCG,PERCUT^19
"TEMP","PXVMAP",73,0)
BCG^19
"TEMP","PXVMAP",74,0)
DIPTHERIA,TETANUS,ACELLULAR PERTUSSIS (<7YR)^20
"TEMP","PXVMAP",75,0)
CHICKENPOX^21
"TEMP","PXVMAP",76,0)
CHICKENPOX (VARICELLA IM)^21
"TEMP","PXVMAP",77,0)
IM CHICKENPOX^21
"TEMP","PXVMAP",78,0)
OUTSIDE VARICELLA (CHICKENPOX)^21
"TEMP","PXVMAP",79,0)
VARICELLA (CHICKENPOX)^21
"TEMP","PXVMAP",80,0)
VARICELLA SERIES COMPLETED^21
"TEMP","PXVMAP",81,0)
VARICELLA ZOSTER (CHICKENPOX)^21
"TEMP","PXVMAP",82,0)
VARICELLA-2 (CHICKENPOX)^21
"TEMP","PXVMAP",83,0)
VARIVAX^21
"TEMP","PXVMAP",84,0)
VARICELLA VACCINE^21
"TEMP","PXVMAP",85,0)
VARICELLA VIRUS VACCINE^21
"TEMP","PXVMAP",86,0)
PLAGUE^23
"TEMP","PXVMAP",87,0)
ANTHRAX,SC^24
"TEMP","PXVMAP",88,0)
ANTHRAX^24
"TEMP","PXVMAP",89,0)
ANTHRAX VACCINE^24
"TEMP","PXVMAP",90,0)
TYPHOID, ORAL ATTENUATED^25
"TEMP","PXVMAP",91,0)
TYPHOID,ORAL^25
"TEMP","PXVMAP",92,0)
CHOLERA, ORAL^26
"TEMP","PXVMAP",93,0)
CHOLERA^26
"TEMP","PXVMAP",94,0)
DIPHTHERIA-TETANUS (DT-PEDS)^28
"TEMP","PXVMAP",95,0)
DIPTHERIA-TETANUS (DT-PEDS)^28
"TEMP","PXVMAP",96,0)
ZZZDT-PEDS^28
"TEMP","PXVMAP",97,0)
MENINGOCOCCAL (MENOMUNE)^32
"TEMP","PXVMAP",98,0)
MENINGOCOCCAL POLYSAC (MPSV4) MENOMUNE^32
"TEMP","PXVMAP",99,0)
MENINGOCOCCAL POLYSACHHARIDE (MPSV4)^32
"TEMP","PXVMAP",100,0)
MENINGITIS MENOMMUNE^32
"TEMP","PXVMAP",101,0)
MENINGOCOCCAL POLYSACCHARIDE MPSV4^32
"TEMP","PXVMAP",102,0)
PNEUMOCOCCAL VACCINE, ADULT^33
"TEMP","PXVMAP",103,0)
PNEUMOCOCCAL,ADULT^33
"TEMP","PXVMAP",104,0)
PNEUMOVAX, 1ST VACCINE (PPSV-23)^33
"TEMP","PXVMAP",105,0)
PNEUMOVAX, 1ST VACCINE^33
"TEMP","PXVMAP",106,0)
PNEUMOVAX, 2ND VACCINE (PPSV-23)^33
"TEMP","PXVMAP",107,0)
PNEUMOVAX, 2ND VACCINE^33
"TEMP","PXVMAP",108,0)
Pneumovax, given elsewhere^33
"TEMP","PXVMAP",109,0)
PNEUMO-VAC^33
"TEMP","PXVMAP",110,0)
PNEUMO23-VAC^33
"TEMP","PXVMAP",111,0)
PNEUMOCOCAL PPSV23^33
"TEMP","PXVMAP",112,0)
PNEUMOCOCCAL (HISTORICAL 23 VALENT)^33
"TEMP","PXVMAP",113,0)
PNEUMOCOCCAL POLYSACCHARIDE VACCINE (BCMA)^33
"TEMP","PXVMAP",114,0)
PNEUMOCOCCAL PPSV23^33
"TEMP","PXVMAP",115,0)
PNEUMOCOCCAL PPSV23 (PNEUMOVAX-23)^33
"TEMP","PXVMAP",116,0)
PNEUMOCOCCAL PPV23^33
"TEMP","PXVMAP",117,0)
PNEUMOCOCCAL VACCINATION^33
"TEMP","PXVMAP",118,0)
PNEUMOCOCCAL VACCINE (Pneumovax-23)^33
"TEMP","PXVMAP",119,0)
PNEUMOVAX^33
"TEMP","PXVMAP",120,0)
PNEUMOVAX (Pneumococcal-23)^33
"TEMP","PXVMAP",121,0)
PNEUMOVAX ADMINISTERED^33
"TEMP","PXVMAP",122,0)
PNEUMOVAX DONE ELSEWHERE^33
"TEMP","PXVMAP",123,0)
PNEUMOVAX ELSEWHERE^33
"TEMP","PXVMAP",124,0)
PNEUMOVAX GIVEN^33
"TEMP","PXVMAP",125,0)
PNEUMOVAX LEFT DELTOID^33
"TEMP","PXVMAP",126,0)
PNEUMOVAX OTHER PROVIDER^33
"TEMP","PXVMAP",127,0)
PNEUMOVAX POLYSACCARIDE PPSV23^33
"TEMP","PXVMAP",128,0)
PNEUMOVAX POLYSACCHARIDE PPSV23^33
"TEMP","PXVMAP",129,0)
PNEUMOVAX POLYSACCHARIDE PPSV23*^33
"TEMP","PXVMAP",130,0)
PNEUMOVAX PPSV23^33
"TEMP","PXVMAP",131,0)
PNEUMOVAX RECEIVED ELSEWHERE^33
"TEMP","PXVMAP",132,0)
PNEUMOVAX REVACCINATION^33
"TEMP","PXVMAP",133,0)
PNEUMOVAX RIGHT DELTOID^33
"TEMP","PXVMAP",134,0)
PNEUMVAX RECEIVED IN PAST^33
"TEMP","PXVMAP",135,0)
PPSV23 PNEUMOVAX POLYSACCHARIDE^33
"TEMP","PXVMAP",136,0)
561PNEUMOVAX POLYSACCHARIDE PPSV23^33
"TEMP","PXVMAP",137,0)
LOM PNEUMOVAX POLYSACCHARIDE PPSV23^33
"TEMP","PXVMAP",138,0)
LPNEUMOVAX POLYSACCHARIDE PPSV23^33
"TEMP","PXVMAP",139,0)
PNEUMOC POLYSACCHARIDE PPSV23^33
"TEMP","PXVMAP",140,0)
PNEUMOCOCCAL POLYSACCHARIDE VACCINE 23-VALENT^33
"TEMP","PXVMAP",141,0)
PNEUMOVAC POLYSACCHARIDE PPSV23^33
"TEMP","PXVMAP",142,0)
PNEUMOVAX POLYSACCHARIDE PPSV23 (local)^33
"TEMP","PXVMAP",143,0)
PNEUMOVAX POLYSACCHARIDE PPSV23 ---^33
"TEMP","PXVMAP",144,0)
ZPNEUMOVAX POLYSACCHARIDE PPSV23^33
"TEMP","PXVMAP",145,0)
ZZPNEUMOVAX POLYSACCHARIDE PPSV23^33
"TEMP","PXVMAP",146,0)
PNEUMOVAX POLY PPSV23^33
"TEMP","PXVMAP",147,0)
ZZPNEUMOVAX^33
"TEMP","PXVMAP",148,0)
YELLOW FEVER^37
"TEMP","PXVMAP",149,0)
RUBELLA, MUMPS^38
"TEMP","PXVMAP",150,0)
ENCEPHALITIS VACCINE, JAPANESE^39
"TEMP","PXVMAP",151,0)
JAPANESE ENCEPHALITIS VIRUS^39
"TEMP","PXVMAP",152,0)
RABIES,ID^40
"TEMP","PXVMAP",153,0)
TYPHOID,H-P,SC/ID^41
"TEMP","PXVMAP",154,0)
TYPHOID,IM^41
"TEMP","PXVMAP",155,0)
HEP B VACCINE, ADULT, IM^43
"TEMP","PXVMAP",156,0)
HEPATITIS B VACCINE, OVER 20^43
"TEMP","PXVMAP",157,0)
ENGERIX-B (Hep B Vac Recombinant)^43
"TEMP","PXVMAP",158,0)
HEPATITIS B^43
"TEMP","PXVMAP",159,0)
HEPATITIS B - SERIES #1^43
"TEMP","PXVMAP",160,0)
HEPATITIS B - SERIES #2^43
"TEMP","PXVMAP",161,0)
HEPATITIS B - SERIES #3^43
"TEMP","PXVMAP",162,0)
HEPATITIS B BOOSTER (2ND DOSE)^43
"TEMP","PXVMAP",163,0)
HEPATITIS B BOOSTER (3RD DOSE)^43
"TEMP","PXVMAP",164,0)
HEPATITIS B SERIES ^43
"TEMP","PXVMAP",165,0)
HEPATITIS B VACCINE^43
"TEMP","PXVMAP",166,0)
Hepatitis B vaccine (Recombivax HB)^43
"TEMP","PXVMAP",167,0)
HEPATITIS B VIRUS^43
"TEMP","PXVMAP",168,0)
Hepatitis B-1st Dose^43
"TEMP","PXVMAP",169,0)
Hepatitis B-2nd Dose^43
"TEMP","PXVMAP",170,0)
Hepatitis B-3rd Dose^43
"TEMP","PXVMAP",171,0)
Hepatitis B-Final Dose^43
"TEMP","PXVMAP",172,0)
HEPATITIS-B^43
"TEMP","PXVMAP",173,0)
Injection #1-Hep B^43
"TEMP","PXVMAP",174,0)
Injection #2-Hep B^43
"TEMP","PXVMAP",175,0)
Injection #3-Hep B^43
"TEMP","PXVMAP",176,0)
Injection #4-Hep B^43
"TEMP","PXVMAP",177,0)
ZZHEPATITIS B^43
"TEMP","PXVMAP",178,0)
HEPATITIS B - SERIES #4^43
"TEMP","PXVMAP",179,0)
HEP B DIALYSIS 0 MONTH^44
"TEMP","PXVMAP",180,0)
HEP B DIALYSIS 1 MONTH^44
"TEMP","PXVMAP",181,0)
HEP B DIALYSIS 2 MONTHS^44
"TEMP","PXVMAP",182,0)
HEP B DIALYSIS 6 MONTHS^44
"TEMP","PXVMAP",183,0)
HEP B DIALYSIS NEG TITER #1^44
"TEMP","PXVMAP",184,0)
HEP B DIALYSIS NEG TITER #2^44
"TEMP","PXVMAP",185,0)
HEPATITIS B SERIES (HD) COMPLETED^44
"TEMP","PXVMAP",186,0)
IM Injection #1 (of 4) - 2cc Hepatitis B ^44
"TEMP","PXVMAP",187,0)
IM Injection #2 (of 4) - 2cc Hepatitis B ^44
"TEMP","PXVMAP",188,0)
IM Injection #3 (of 4) - 2cc Hepatitis B ^44
"TEMP","PXVMAP",189,0)
IM Injection #4 (of 4) - 2cc Hepatitis B ^44
"TEMP","PXVMAP",190,0)
Injection #1-Hep B (HD)^44
"TEMP","PXVMAP",191,0)
Injection #2-Hep B (HD)^44
"TEMP","PXVMAP",192,0)
Injection #3-Hep B (HD)^44
"TEMP","PXVMAP",193,0)
HEPATITIS B HIGH DOSE^44
"TEMP","PXVMAP",194,0)
HEPB, ILL PAT (3 DOSE)^45
"TEMP","PXVMAP",195,0)
HEPB, ILL PAT^45
"TEMP","PXVMAP",196,0)
HEP B^45
"TEMP","PXVMAP",197,0)
HEPATITIS B GIVEN ELSEWHERE^45
"TEMP","PXVMAP",198,0)
HEPATITIS B IMMUNIZATION^45
"TEMP","PXVMAP",199,0)
HEPATITIS B SERIES COMPLETED^45
"TEMP","PXVMAP",200,0)
Hepatitis B Vaccine (Engerix-B)^45
"TEMP","PXVMAP",201,0)
HEPATITIS B VACCINE GIVEN ELSEWHERE^45
"TEMP","PXVMAP",202,0)
IM Injection #1 (of 3) - 1cc Hepatitis B ^45
"TEMP","PXVMAP",203,0)
IM Injection #2 (of 3) - 1cc Hepatitis B ^45
"TEMP","PXVMAP",204,0)
IM Injection #3 (of 3) - 1cc Hepatitis B ^45
"TEMP","PXVMAP",205,0)
Injection #2-Hep B^45
"TEMP","PXVMAP",206,0)
Injection #3-Hep B^45
"TEMP","PXVMAP",207,0)
OUTSIDE HEP B VACCINE ADULT IM^45
"TEMP","PXVMAP",208,0)
HIB,PRP-D^46
"TEMP","PXVMAP",209,0)
HIB,HBOC^47
"TEMP","PXVMAP",210,0)
HIB,PRP-T^48
"TEMP","PXVMAP",211,0)
HAEMOPHILUS B TETANUS TOX CONJ^48
"TEMP","PXVMAP",212,0)
HIB,PRP-OMP^49
"TEMP","PXVMAP",213,0)
DTP/HIB^50
"TEMP","PXVMAP",214,0)
HEPB/HIB^51
"TEMP","PXVMAP",215,0)
HEP A VACCINE, ADULT IM^52
"TEMP","PXVMAP",216,0)
HEPA ADULT^52
"TEMP","PXVMAP",217,0)
IM Injection #1 (of 2)-1cc Hepatitis A^52
"TEMP","PXVMAP",218,0)
IM Injection #2 (of 2)-1cc Hepatitis A^52
"TEMP","PXVMAP",219,0)
HEPATITIS A 2^52
"TEMP","PXVMAP",220,0)
TYPHOID,AKD,SC^53
"TEMP","PXVMAP",221,0)
ADENOVIRUS,TYPE 4^54
"TEMP","PXVMAP",222,0)
ADENOVIRUS,TYPE 7^55
"TEMP","PXVMAP",223,0)
Hep C^58
"TEMP","PXVMAP",224,0)
Hepatitis C^58
"TEMP","PXVMAP",225,0)
HUMAN PAPILLOMA VIRUS VACCINE, QUADRIVALENT^62
"TEMP","PXVMAP",226,0)
GARDACIL^62
"TEMP","PXVMAP",227,0)
GARDASIL^62
"TEMP","PXVMAP",228,0)
GARDASIL  HUMAN PAPILLOMAVIRUS (HPV)^62
"TEMP","PXVMAP",229,0)
GARDASIL (HPV)^62
"TEMP","PXVMAP",230,0)
H PAPILLOMA VACC^62
"TEMP","PXVMAP",231,0)
HPV^62
"TEMP","PXVMAP",232,0)
HPV (Papillomavirus)^62
"TEMP","PXVMAP",233,0)
HPV (PAPILLOMAVIRUS-GARDISIL)^62
"TEMP","PXVMAP",234,0)
HPV VACCINE^62
"TEMP","PXVMAP",235,0)
HPV(Papillomavirus-Gardisil)^62
"TEMP","PXVMAP",236,0)
HPV4 (Papillomavirus)^62
"TEMP","PXVMAP",237,0)
HUMAN PAPILLOMA VIRUS^62
"TEMP","PXVMAP",238,0)
HUMAN PAPILLOMAVIRUS^62
"TEMP","PXVMAP",239,0)
Human Papillomavirus (HPV) Immunization^62
"TEMP","PXVMAP",240,0)
HUMAN PAPILLOMAVIRUS VAC^62
"TEMP","PXVMAP",241,0)
Outside Quadrivalent HPV^62
"TEMP","PXVMAP",242,0)
PAPILLOMAVIRUS^62
"TEMP","PXVMAP",243,0)
PAPILLOMAVIRUS - GARDISIL^62
"TEMP","PXVMAP",244,0)
PAPILLOMAVIRUS GARDISIL^62
"TEMP","PXVMAP",245,0)
PAPILLOMAVIRUS HUMAN QUADRIVALENT VACCINE^62
"TEMP","PXVMAP",246,0)
PAPILLOMAVIRUS HUMAN VACCINE^62
"TEMP","PXVMAP",247,0)
PAPILLOMAVIRUS HUMN QUADRIVALENT ^62
"TEMP","PXVMAP",248,0)
PAPILLOMAVIRUS-GARDISIL^62
"TEMP","PXVMAP",249,0)
Quadrivalent HPV #1^62
"TEMP","PXVMAP",250,0)
Quadrivalent HPV #2^62
"TEMP","PXVMAP",251,0)
Quadrivalent HPV #3^62
"TEMP","PXVMAP",252,0)
ZPappillomavirus (HPV)^62
"TEMP","PXVMAP",253,0)
HPV-4^62
"TEMP","PXVMAP",254,0)
HUMAN PAPILLOMA VIRUS HPV4^62
"TEMP","PXVMAP",255,0)
HUMAN PAPILLOMAVIRUS QUADRIVALENT (HPV-4)^62
"TEMP","PXVMAP",256,0)
Human Papillomavirus Vaccine, Quadrivalent^62
"TEMP","PXVMAP",257,0)
PAPILLOMAVIRUS (HPV) QUADRIVALENT^62
"TEMP","PXVMAP",258,0)
PAPILLOMAVIRUS QUADRIVALENT^62
"TEMP","PXVMAP",259,0)
LYME DISEASE^66
"TEMP","PXVMAP",260,0)
SMALLPOX^75
"TEMP","PXVMAP",261,0)
HEPA,PED/ADOL-2^83
"TEMP","PXVMAP",262,0)
HEPA,PED/ADOL-3 DOSE^84
"TEMP","PXVMAP",263,0)
HEP A^85
"TEMP","PXVMAP",264,0)
HEP A(old code)^85
"TEMP","PXVMAP",265,0)
HEP A.^85
"TEMP","PXVMAP",266,0)
HEPA ADLT1^85
"TEMP","PXVMAP",267,0)
HEPATITIS A^85
"TEMP","PXVMAP",268,0)
HEPATITIS A #2 (COPY PTSBG)^85
"TEMP","PXVMAP",269,0)
HEPATITIS A (PTB)^85
"TEMP","PXVMAP",270,0)
HEPATITIS A - SERIES #1^85
"TEMP","PXVMAP",271,0)
HEPATITIS A - SERIES #2^85
"TEMP","PXVMAP",272,0)
HEPATITIS A ANC^85
"TEMP","PXVMAP",273,0)
HEPATITIS A GIVEN ELSEWHERE^85
"TEMP","PXVMAP",274,0)
HEPATITIS A PTH^85
"TEMP","PXVMAP",275,0)
HEPATITIS A SERIES COMPLETED^85
"TEMP","PXVMAP",276,0)
HEPATITIS A VACCINE^85
"TEMP","PXVMAP",277,0)
HEPATITIS A VACCINE GIVEN ELSEWHERE^85
"TEMP","PXVMAP",278,0)
HEPATITIS A VIRUS^85
"TEMP","PXVMAP",279,0)
Hepatitis A-1st Dose^85
"TEMP","PXVMAP",280,0)
Hepatitis A-Final Dose^85
"TEMP","PXVMAP",281,0)
HEPATITIS-A^85
"TEMP","PXVMAP",282,0)
HEPATITS A^85
"TEMP","PXVMAP",283,0)
Flu Shot, given elsewhere^88
"TEMP","PXVMAP",284,0)
FLU VACCINE, 3 YRS & >^88
"TEMP","PXVMAP",285,0)
FLU VACCINE, 3 YRS, IM^88
"TEMP","PXVMAP",286,0)
FLU VACCINE, 6-35 M O^88
"TEMP","PXVMAP",287,0)
FLU VACCINE, GIVEN^88
"TEMP","PXVMAP",288,0)
FLU, 3 YRS (HISTORICAL)^88
"TEMP","PXVMAP",289,0)
FLU, 3 YRS^88
"TEMP","PXVMAP",290,0)
FLU, 3YRS (HISTORICAL)^88
"TEMP","PXVMAP",291,0)
FLU, 3YRS^88
"TEMP","PXVMAP",292,0)
FLU, SPLIT VIRUS VACCINE^88
"TEMP","PXVMAP",293,0)
Flu, Split Virus^88
"TEMP","PXVMAP",294,0)
FLU,3 YRS^88
"TEMP","PXVMAP",295,0)
FLU,3 YRS-LOCAL^88
"TEMP","PXVMAP",296,0)
FLU,3^88
"TEMP","PXVMAP",297,0)
FLU,3YRS (DONE ELSEWHERE)^88
"TEMP","PXVMAP",298,0)
FLU,SPLIT^88
"TEMP","PXVMAP",299,0)
INFLUENZA VIRUS VACCINE, 3YR AND OLDER^88
"TEMP","PXVMAP",300,0)
INFLUENZA VIRUS, SPLIT^88
"TEMP","PXVMAP",301,0)
INFLUENZA, 3 YRS^88
"TEMP","PXVMAP",302,0)
INFLUENZA, PRESERVATIVE FREE^88
"TEMP","PXVMAP",303,0)
INFLUENZA, SEASONAL^88
"TEMP","PXVMAP",304,0)
INFLUENZA, SEASONAL, PRESERV-FREE^88
"TEMP","PXVMAP",305,0)
INFLUENZA, SPLIT VIRUS, PERSERVATIVE FREE^88
"TEMP","PXVMAP",306,0)
INFLUENZA, UNSPECIFIED^88
"TEMP","PXVMAP",307,0)
VN1-FLU,3 YRS^88
"TEMP","PXVMAP",308,0)
ZFLU,SPLIT^88
"TEMP","PXVMAP",309,0)
520 INFLUENZA^88
"TEMP","PXVMAP",310,0)
BO-FLU VACCINE^88
"TEMP","PXVMAP",311,0)
CC INFLUENZA^88
"TEMP","PXVMAP",312,0)
CT-INFLUENZA^88
"TEMP","PXVMAP",313,0)
FLU^88
"TEMP","PXVMAP",314,0)
FLU 3 YRS DONE ELSEWHERE^88
"TEMP","PXVMAP",315,0)
FLU 3YRS DONE^88
"TEMP","PXVMAP",316,0)
FLU 3YRS DONE ELSEWHERE^88
"TEMP","PXVMAP",317,0)
FLU DONE ELSEWHERE^88
"TEMP","PXVMAP",318,0)
FLU GIVEN ELSEWHERE^88
"TEMP","PXVMAP",319,0)
FLU GIVEN ELSWHERE^88
"TEMP","PXVMAP",320,0)
FLU INJECTION GIVEN ELSEWHERE^88
"TEMP","PXVMAP",321,0)
FLU INJECTION GIVEN TODAY^88
"TEMP","PXVMAP",322,0)
FLU LOT NUMBER UO 682 AA^88
"TEMP","PXVMAP",323,0)
FLU RECEIVED ELSEWHERE^88
"TEMP","PXVMAP",324,0)
FLU SHOT^88
"TEMP","PXVMAP",325,0)
FLU SPLIT VIRUS^88
"TEMP","PXVMAP",326,0)
FLU VACCINE^88
"TEMP","PXVMAP",327,0)
FLU VACCINE OTHER LOC'N 2005^88
"TEMP","PXVMAP",328,0)
FLU VAX OTHER LOC 2006^88
"TEMP","PXVMAP",329,0)
FLU VAX OTHER LOC 2007^88
"TEMP","PXVMAP",330,0)
FLU VAX OTHER LOC'N 2000^88
"TEMP","PXVMAP",331,0)
FLU VAX OTHER LOC'N 2001^88
"TEMP","PXVMAP",332,0)
FLU VAX OTHER LOC'N 2002^88
"TEMP","PXVMAP",333,0)
FLU VAX OTHER LOC'N 2003^88
"TEMP","PXVMAP",334,0)
FLU VAX OTHER LOC'N 2004^88
"TEMP","PXVMAP",335,0)
FLU VAX RECEIVED OTHER LOC'N^88
"TEMP","PXVMAP",336,0)
FLU*^88
"TEMP","PXVMAP",337,0)
FLUVIRIN^88
"TEMP","PXVMAP",338,0)
FLUZONE^88
"TEMP","PXVMAP",339,0)
IM INFLUENZA DONE ELSEWHERE OTHER^88
"TEMP","PXVMAP",340,0)
INFLUENZA^88
"TEMP","PXVMAP",341,0)
INFLUENZA ^88
"TEMP","PXVMAP",342,0)
INFLUENZA  VACCINE (Flu Vaccine)^88
"TEMP","PXVMAP",343,0)
INFLUENZA (FLU SHOT)^88
"TEMP","PXVMAP",344,0)
INFLUENZA (FLU)^88
"TEMP","PXVMAP",345,0)
INFLUENZA (Historical)^88
"TEMP","PXVMAP",346,0)
INFLUENZA (L COPY)^88
"TEMP","PXVMAP",347,0)
INFLUENZA (LEB COPY)^88
"TEMP","PXVMAP",348,0)
INFLUENZA (MA 9-00)^88
"TEMP","PXVMAP",349,0)
INFLUENZA (PTB)^88
"TEMP","PXVMAP",350,0)
INFLUENZA (WPB)^88
"TEMP","PXVMAP",351,0)
INFLUENZA 2^88
"TEMP","PXVMAP",352,0)
INFLUENZA 2006-2007^88
"TEMP","PXVMAP",353,0)
INFLUENZA 2007-2008^88
"TEMP","PXVMAP",354,0)
INFLUENZA 3YR^88
"TEMP","PXVMAP",355,0)
INFLUENZA A & B^88
"TEMP","PXVMAP",356,0)
INFLUENZA ADMINISTERED^88
"TEMP","PXVMAP",357,0)
INFLUENZA DONE 2009^88
"TEMP","PXVMAP",358,0)
INFLUENZA DONE ELSEWHERE^88
"TEMP","PXVMAP",359,0)
INFLUENZA DONE ELSEWHERE-L^88
"TEMP","PXVMAP",360,0)
INFLUENZA FY11 A^88
"TEMP","PXVMAP",361,0)
INFLUENZA FY11 B^88
"TEMP","PXVMAP",362,0)
INFLUENZA FY11 C^88
"TEMP","PXVMAP",363,0)
INFLUENZA IMMUN^88
"TEMP","PXVMAP",364,0)
INFLUENZA IMMUNIZATION^88
"TEMP","PXVMAP",365,0)
INFLUENZA OLD^88
"TEMP","PXVMAP",366,0)
INFLUENZA OLD2^88
"TEMP","PXVMAP",367,0)
Influenza Other Site^88
"TEMP","PXVMAP",368,0)
INFLUENZA OUTSIDE^88
"TEMP","PXVMAP",369,0)
INFLUENZA RECEIVED ELSEWHERE^88
"TEMP","PXVMAP",370,0)
Influenza S^88
"TEMP","PXVMAP",371,0)
Influenza SEASONAL^88
"TEMP","PXVMAP",372,0)
INFLUENZA SHOT^88
"TEMP","PXVMAP",373,0)
INFLUENZA TYPE A^88
"TEMP","PXVMAP",374,0)
INFLUENZA TYPE A (SPO)^88
"TEMP","PXVMAP",375,0)
INFLUENZA VAC OTHER LOCATION^88
"TEMP","PXVMAP",376,0)
INFLUENZA VACCINE^88
"TEMP","PXVMAP",377,0)
INFLUENZA VACCINE PAST VISIT^88
"TEMP","PXVMAP",378,0)
INFLUENZA VIRUS VACCINE SYR^88
"TEMP","PXVMAP",379,0)
INFLUENZA(NYH)^88
"TEMP","PXVMAP",380,0)
INFLUENZA-1^88
"TEMP","PXVMAP",381,0)
INFLUENZA-GIVEN ELSEWHERE^88
"TEMP","PXVMAP",382,0)
INFLUENZA-NEW^88
"TEMP","PXVMAP",383,0)
INFLUENZA659^88
"TEMP","PXVMAP",384,0)
INFLUENZAE^88
"TEMP","PXVMAP",385,0)
MH-INFLUENZA^88
"TEMP","PXVMAP",386,0)
OUTSIDE FLU SHOT^88
"TEMP","PXVMAP",387,0)
SAM FLU DONE^88
"TEMP","PXVMAP",388,0)
SAM FLU DONE ELSEWHERE^88
"TEMP","PXVMAP",389,0)
Split Influenza Virus^88
"TEMP","PXVMAP",390,0)
V1-FLU VACCINE^88
"TEMP","PXVMAP",391,0)
VISN INFLUENZA IMMUNIZATION^88
"TEMP","PXVMAP",392,0)
VISN6 FLU VACCINE RECEIVED ELSEWHERE^88
"TEMP","PXVMAP",393,0)
ZINFLUENZA - OLD^88
"TEMP","PXVMAP",394,0)
ZINFLUENZA-659^88
"TEMP","PXVMAP",395,0)
ZZINFLUENZA^88
"TEMP","PXVMAP",396,0)
ZZINFLUENZA - OLD^88
"TEMP","PXVMAP",397,0)
ZZZINFLUENZA^88
"TEMP","PXVMAP",398,0)
Polio^89
"TEMP","PXVMAP",399,0)
POLIOMYELITIS^89
"TEMP","PXVMAP",400,0)
POLIOVIRUS^89
"TEMP","PXVMAP",401,0)
POLIOVIRUS VACCINE^89
"TEMP","PXVMAP",402,0)
POLIO VACCINE^89
"TEMP","PXVMAP",403,0)
RABIES^90
"TEMP","PXVMAP",404,0)
RABIES SERIES COMPLETED^90
"TEMP","PXVMAP",405,0)
RABIES VACCINE^90
"TEMP","PXVMAP",406,0)
ZZRABIES VACCINE^90
"TEMP","PXVMAP",407,0)
TYPHOID, INACTIVATED^91
"TEMP","PXVMAP",408,0)
TYPHOID, PURIFIED Vi^91
"TEMP","PXVMAP",409,0)
TYPHOID^91
"TEMP","PXVMAP",410,0)
TYPHOID IM^91
"TEMP","PXVMAP",411,0)
TYPHOID VI POLYSACCHARIDE^91
"TEMP","PXVMAP",412,0)
TYPHOID(2)^91
"TEMP","PXVMAP",413,0)
ZZ-TYPHOID^91
"TEMP","PXVMAP",414,0)
ZZTYPHOID VACCINE^91
"TEMP","PXVMAP",415,0)
MEA-MUMPS-RUB-VARCELLA^94
"TEMP","PXVMAP",416,0)
MEA-MUMPS-RUB-VARICELLA^94
"TEMP","PXVMAP",417,0)
TYPHOID Vi Polysaccharide vaccine, IM^101
"TEMP","PXVMAP",418,0)
TYPHOID VI CAPSULAR POLYSACCHARIDE VACCINE^101
"TEMP","PXVMAP",419,0)
TYPHIM^101
"TEMP","PXVMAP",420,0)
HEP A/HEP B VACC, ADULT IM^104
"TEMP","PXVMAP",421,0)
HEP A&B^104
"TEMP","PXVMAP",422,0)
HEP A/HEP B (COMBINATION)^104
"TEMP","PXVMAP",423,0)
HEP A/HEP B 2ND DOSE^104
"TEMP","PXVMAP",424,0)
HEP A/HEP B 3RD DOSE^104
"TEMP","PXVMAP",425,0)
HEPA/HEPB ADULT^104
"TEMP","PXVMAP",426,0)
HEPA/HEPB(TWIN)^104
"TEMP","PXVMAP",427,0)
HEPA/HEPB(TWINRIX)^104
"TEMP","PXVMAP",428,0)
HEPAB IMMUNIZATION INPATIENT^104
"TEMP","PXVMAP",429,0)
HEPATITIS A & B GIVEN ELSEWHERE^104
"TEMP","PXVMAP",430,0)
HEPATITIS A&B^104
"TEMP","PXVMAP",431,0)
HEPATITIS A/B^104
"TEMP","PXVMAP",432,0)
HEPATITIS A/B COMBINED VACCINE^104
"TEMP","PXVMAP",433,0)
HEPATITIS A/B COMBO^104
"TEMP","PXVMAP",434,0)
HEPATITIS A/B SERIES COMPLETED^104
"TEMP","PXVMAP",435,0)
HEPATITIS A/HEPATITIS B^104
"TEMP","PXVMAP",436,0)
Hepatitis A/Hepatitis B combination^104
"TEMP","PXVMAP",437,0)
HEPATITIS A/HEPATITIS B COMBO^104
"TEMP","PXVMAP",438,0)
HEPATITIS AB - SERIES #1^104
"TEMP","PXVMAP",439,0)
HEPATITIS AB - SERIES #2^104
"TEMP","PXVMAP",440,0)
HEPATITIS AB - SERIES #3^104
"TEMP","PXVMAP",441,0)
HEPATITIS AB 1 YEAR BOOSTER^104
"TEMP","PXVMAP",442,0)
HEPATITIS AB SERIES #1^104
"TEMP","PXVMAP",443,0)
HEPATITIS AB SERIES #2^104
"TEMP","PXVMAP",444,0)
HEPATITIS AB SERIES #3^104
"TEMP","PXVMAP",445,0)
IM.HEPA/HEPB ADULT^104
"TEMP","PXVMAP",446,0)
Injection #1-Hep A/B^104
"TEMP","PXVMAP",447,0)
Injection #2-Hep A/B^104
"TEMP","PXVMAP",448,0)
Injection #3-Hep A/B^104
"TEMP","PXVMAP",449,0)
Injection #4-Hep A/B^104
"TEMP","PXVMAP",450,0)
TWINRIX^104
"TEMP","PXVMAP",451,0)
TWINRIX  COMBINED HEPATITIS A & B VACCINE^104
"TEMP","PXVMAP",452,0)
Twinrix #1^104
"TEMP","PXVMAP",453,0)
Twinrix #2^104
"TEMP","PXVMAP",454,0)
Twinrix #3^104
"TEMP","PXVMAP",455,0)
DIPHTHERIA,TETANUS, AND ACELLULAR PERTUSSIS^107
"TEMP","PXVMAP",456,0)
DIPTHERIA,TETANUS,ACELLULAR PERTUSSIS^107
"TEMP","PXVMAP",457,0)
DIP-TET-a/PERT^107
"TEMP","PXVMAP",458,0)
TETANUS DIPHTHERIA AND PERTUSSIS^107
"TEMP","PXVMAP",459,0)
TETANUS DIPTHERIA-PERTUSSIS^107
"TEMP","PXVMAP",460,0)
TETANUS/DIPHTHERIA AND PERTUSSIS^107
"TEMP","PXVMAP",461,0)
MENINGOCOCCAL VACCINE, IM^108
"TEMP","PXVMAP",462,0)
MENINGOCOCCAL, SC^108
"TEMP","PXVMAP",463,0)
MENINGOCOCCAL, UNSPECIFIED^108
"TEMP","PXVMAP",464,0)
MENIGOCOCCAL POLYSACCHARIDE VACCINE^108
"TEMP","PXVMAP",465,0)
MENINGOCOCCAL^108
"TEMP","PXVMAP",466,0)
MENINGOCOCCAL        MENING.^108
"TEMP","PXVMAP",467,0)
MENINGOCOCCAL (IM)^108
"TEMP","PXVMAP",468,0)
MENINGOCOCCAL (SC)^108
"TEMP","PXVMAP",469,0)
MENINGOCOCCAL DONE ELSEWHERE^108
"TEMP","PXVMAP",470,0)
MENINGOCOCCAL GIVEN ELSEWHERE^108
"TEMP","PXVMAP",471,0)
MENINGOCOCCAL POLYSACCHARIDE VACCINE^108
"TEMP","PXVMAP",472,0)
MENINGOCOCCAL REVACCINATION^108
"TEMP","PXVMAP",473,0)
MENINGOCOCCAL VACCINE (1)^108
"TEMP","PXVMAP",474,0)
MENINGOCOCCAL VACCINE (2)^108
"TEMP","PXVMAP",475,0)
MENINGOCOCCAL IM^108
"TEMP","PXVMAP",476,0)
PNEUMOCOCCAL VACCINE, POLYVALENT^109
"TEMP","PXVMAP",477,0)
PNEUMOCOCCAL, UNSPECIFIED^109
"TEMP","PXVMAP",478,0)
PNEUMOCOCCAL,PED^109
"TEMP","PXVMAP",479,0)
520 PNEUMOCOCCAL^109
"TEMP","PXVMAP",480,0)
CC PNEUMOCCAL^109
"TEMP","PXVMAP",481,0)
CT-PNEUMOVAX^109
"TEMP","PXVMAP",482,0)
IM V9 PNEUMOCOCCAL^109
"TEMP","PXVMAP",483,0)
OUTSIDE PNEUMOVAX^109
"TEMP","PXVMAP",484,0)
Pneumo-Vac Immunization^109
"TEMP","PXVMAP",485,0)
PNEUMOCCAL IMMUNIZATION^109
"TEMP","PXVMAP",486,0)
PNEUMOCOCAL OTHER^109
"TEMP","PXVMAP",487,0)
PNEUMOCOCCAL^109
"TEMP","PXVMAP",488,0)
PNEUMOCOCCAL (HISTORICAL)^109
"TEMP","PXVMAP",489,0)
PNEUMOCOCCAL 1M V9^109
"TEMP","PXVMAP",490,0)
PNEUMOCOCCAL ALTOONA^109
"TEMP","PXVMAP",491,0)
PNEUMOCOCCAL ALTOONA 2^109
"TEMP","PXVMAP",492,0)
PNEUMOCOCCAL ALTOONA 3^109
"TEMP","PXVMAP",493,0)
PNEUMOCOCCAL CONJUGATE RESEARCH VACCINE^109
"TEMP","PXVMAP",494,0)
PNEUMOCOCCAL CONJUGATE STUDY^109
"TEMP","PXVMAP",495,0)
PNEUMOCOCCAL DONE ELSEWHERE^109
"TEMP","PXVMAP",496,0)
PNEUMOCOCCAL GIVEN ELSEWHERE^109
"TEMP","PXVMAP",497,0)
PNEUMOCOCCAL GIVEN ELSWHERE^109
"TEMP","PXVMAP",498,0)
PNEUMOCOCCAL GIVEN IN PAST^109
"TEMP","PXVMAP",499,0)
PNEUMOCOCCAL GIVEN OUTSIDE^109
"TEMP","PXVMAP",500,0)
PNEUMOCOCCAL IM^109
"TEMP","PXVMAP",501,0)
PNEUMOCOCCAL INJECTION^109
"TEMP","PXVMAP",502,0)
PNEUMOCOCCAL VAC^109
"TEMP","PXVMAP",503,0)
PNEUMOCOCCAL VACCINE^109
"TEMP","PXVMAP",504,0)
PNEUMOCOCCAL/V12^109
"TEMP","PXVMAP",505,0)
PNEUMOVAC GIVEN PREVIOUSLY^109
"TEMP","PXVMAP",506,0)
PNEUMOVACCINE OTHER LOCATION^109
"TEMP","PXVMAP",507,0)
PNEUMOVACCINE PAST VISIT^109
"TEMP","PXVMAP",508,0)
V12 PNEUMOCOCCAL^109
"TEMP","PXVMAP",509,0)
V7 PNEUMOCOCCAL^109
"TEMP","PXVMAP",510,0)
V7-PNEUMOCOCCAL^109
"TEMP","PXVMAP",511,0)
VAMHCS PNEUMOCOCCAL^109
"TEMP","PXVMAP",512,0)
VBC PNEUM0-VAC^109
"TEMP","PXVMAP",513,0)
ZZPNEUMOCOCCAL VACCINE (INPT)^109
"TEMP","PXVMAP",514,0)
FLU,NASAL^111
"TEMP","PXVMAP",515,0)
INFLUENZA VIRUS VACCINE, INTRANASAL^111
"TEMP","PXVMAP",516,0)
INFLUENZA NASAL^111
"TEMP","PXVMAP",517,0)
OUTSIDE NASAL FLU LIVE VIRUS^111
"TEMP","PXVMAP",518,0)
Tetanus Toxoid, given elsewhere^112
"TEMP","PXVMAP",519,0)
NOL- TETANUS TOXOID^112
"TEMP","PXVMAP",520,0)
NOLA- TETANUS TOXOID^112
"TEMP","PXVMAP",521,0)
OUTSIDE TETANUS^112
"TEMP","PXVMAP",522,0)
TET TOX DONE^112
"TEMP","PXVMAP",523,0)
TET TOX DONE ELSEWHERE^112
"TEMP","PXVMAP",524,0)
TETANUS^112
"TEMP","PXVMAP",525,0)
TETANUS ^112
"TEMP","PXVMAP",526,0)
TETANUS BECKLEY^112
"TEMP","PXVMAP",527,0)
TETANUS GIVEN ELSEWHERE^112
"TEMP","PXVMAP",528,0)
TETANUS GIVEN OUTSIDE^112
"TEMP","PXVMAP",529,0)
TETANUS IMMUNIZATION GIVEN ELSEWHERE^112
"TEMP","PXVMAP",530,0)
TETANUS OTHER PROVIDER^112
"TEMP","PXVMAP",531,0)
TETANUS SHOT^112
"TEMP","PXVMAP",532,0)
TETANUS TOXIOID^112
"TEMP","PXVMAP",533,0)
TETANUS TOXOID^112
"TEMP","PXVMAP",534,0)
TETANUS TOXOID #2^112
"TEMP","PXVMAP",535,0)
TETANUS TOXOID GIVEN ELSEWHERE^112
"TEMP","PXVMAP",536,0)
TETANUS & DIPTHERIA, PRESERVATIVE FREE^113
"TEMP","PXVMAP",537,0)
Tetanus Diptheria (preservative free)^113
"TEMP","PXVMAP",538,0)
MENINGOCOCCAL CONJUGATE (MCV4P) MENACTRA^114
"TEMP","PXVMAP",539,0)
MENINGOCOCCAL PSC/DIPH TOXOID (MCV4)^114
"TEMP","PXVMAP",540,0)
MENINGITIS MENACTRA^114
"TEMP","PXVMAP",541,0)
TDAP (Tetanus,Diphtheria,Pertussis - Adult)^115
"TEMP","PXVMAP",542,0)
TDAP (Tetanus,Diphtheria,Pertussis)^115
"TEMP","PXVMAP",543,0)
TET,DIPTH,ACELLULAR PERTUSSIS VACCINE^115
"TEMP","PXVMAP",544,0)
TETANUS, DIPHTHERIA & PERTUSSIS (Tdap)^115
"TEMP","PXVMAP",545,0)
TETANUS, DIPHTHERIA & PERTUSSIS^115
"TEMP","PXVMAP",546,0)
TETANUS, DIPHTHERIA and PERTUSSIS VACCINE^115
"TEMP","PXVMAP",547,0)
TETANUS, DIPHTHERIA, PERTUSSIS (Tdap)^115
"TEMP","PXVMAP",548,0)
TETANUS, DIPHTHERIA, PERTUSSIS^115
"TEMP","PXVMAP",549,0)
Tetanus, Diptheria, accellular Pertussis^115
"TEMP","PXVMAP",550,0)
TETANUS,DIPHTHERIA,ACELLULAR PERTUSSIS^115
"TEMP","PXVMAP",551,0)
TETANUS,DIPHTHERIA,PERTUSSIS (TDAP)^115
"TEMP","PXVMAP",552,0)
TETANUS,DIPHTHERIA,PERTUSSIS^115
"TEMP","PXVMAP",553,0)
TETANUS,DIPTHERIA,PERTUSSIS(TDAP)^115
"TEMP","PXVMAP",554,0)
90715^115
"TEMP","PXVMAP",555,0)
DIP-TET-a/PERT(DTAP)>7^115
"TEMP","PXVMAP",556,0)
DIPHTHERIA/PERTUSSIS/TETANUS-TDAP^115
"TEMP","PXVMAP",557,0)
NOL- TETANUS TOXOID TDAP^115
"TEMP","PXVMAP",558,0)
T-DAP^115
"TEMP","PXVMAP",559,0)
TDAP^115
"TEMP","PXVMAP",560,0)
TDAP (ADMINISTERED TO PATIENTS 7 YRS & OLDER)^115
"TEMP","PXVMAP",561,0)
TDAP (ADULT)^115
"TEMP","PXVMAP",562,0)
TDAP (TETANUS-DIPTHERIA-and-PERTUSSIS)^115
"TEMP","PXVMAP",563,0)
TDAP DONE ELSEWHERE^115
"TEMP","PXVMAP",564,0)
TDAP GIVEN ELSEWHERE^115
"TEMP","PXVMAP",565,0)
TDAP IMMUNIZATION^115
"TEMP","PXVMAP",566,0)
TDAP IMMUNIZATION HISTORICAL^115
"TEMP","PXVMAP",567,0)
Tdap TETANUS/DIPHTHERIA/ACELLULAR PERTUSSIS^115
"TEMP","PXVMAP",568,0)
TDAP VACCINE^115
"TEMP","PXVMAP",569,0)
TDAP VACCINE >7 IM^115
"TEMP","PXVMAP",570,0)
TET-DIP-a/PERT^115
"TEMP","PXVMAP",571,0)
TET-DIP-PERT(Tdap)^115
"TEMP","PXVMAP",572,0)
TETAMIS TOXOIDS/DEPHTHERIA/PERTUSSIS^115
"TEMP","PXVMAP",573,0)
TETANUS DIPHTHERIA & ACELLULAR PERTUSSIS^115
"TEMP","PXVMAP",574,0)
TETANUS DIPHTHERIA ACELLULAR PERTUSSIS^115
"TEMP","PXVMAP",575,0)
TETANUS DIPHTHERIA PERTUSSIS^115
"TEMP","PXVMAP",576,0)
TETANUS DIPHTHERIA PERTUSSIS (ADULT)^115
"TEMP","PXVMAP",577,0)
TETANUS DIPHTHERIA PERTUSSIS (TDAP)^115
"TEMP","PXVMAP",578,0)
TETANUS DIPHTHERIA-PERTUSSIS^115
"TEMP","PXVMAP",579,0)
TETANUS DIPTHERIA AND PERTUSISS - TDAP^115
"TEMP","PXVMAP",580,0)
TETANUS PERTUSSIS^115
"TEMP","PXVMAP",581,0)
TETANUS TOXOID/DEPHTHERIA/PERTUSSIS^115
"TEMP","PXVMAP",582,0)
TETANUS+DIPHTH TOXOID/ACELL PERTUSSIS VI^115
"TEMP","PXVMAP",583,0)
TETANUS-DIPHT-aPERT^115
"TEMP","PXVMAP",584,0)
TETANUS/DIPHTHERIA/PERTUSIS^115
"TEMP","PXVMAP",585,0)
TETANUS/DIPHTHERIA/PERTUSSIS^115
"TEMP","PXVMAP",586,0)
TETANUS/DIPHTHERIA/PERTUSSIS (TDAP)^115
"TEMP","PXVMAP",587,0)
TETANUS/DIPHTHERIA/PERTUSSIS(ACELL)^115
"TEMP","PXVMAP",588,0)
Tetanus/Diptheria/Acellular Pertussis (TDAP)^115
"TEMP","PXVMAP",589,0)
TETANUS/DIPTHERIA/PERTUSSIS (ADULT)^115
"TEMP","PXVMAP",590,0)
TETANUS/DIPTHERIA/PERTUSSIS (TDAP)^115
"TEMP","PXVMAP",591,0)
zz TDAP^115
"TEMP","PXVMAP",592,0)
TETANUS,DIPTHERIA,PERTUSSIS (Tdap)^115
"TEMP","PXVMAP",593,0)
HUMAN PAPILLOMA VIRUS VACCINE, BIVALENT^118
"TEMP","PXVMAP",594,0)
PAPILLOMAVIRUS (HPV) BIVALENT^118
"TEMP","PXVMAP",595,0)
VARICELLA (ADULT)^121
"TEMP","PXVMAP",596,0)
ZOSTER VACCINE  INJ,LYPHL---Herpes Zoster^121
"TEMP","PXVMAP",597,0)
ZOSTER VACCINE INJ,LYPHL^121
"TEMP","PXVMAP",598,0)
ZOSTER VACCINE,LIVE SC^121
"TEMP","PXVMAP",599,0)
ZOSTER VIRUS, VARICELLA^121
"TEMP","PXVMAP",600,0)
90736^121
"TEMP","PXVMAP",601,0)
HERPES ZOSTER^121
"TEMP","PXVMAP",602,0)
HERPES ZOSTER (SHINGLES)^121
"TEMP","PXVMAP",603,0)
HERPES ZOSTER VACCINE^121
"TEMP","PXVMAP",604,0)
HERPES ZOSTER(HZ)^121
"TEMP","PXVMAP",605,0)
SHINGLES^121
"TEMP","PXVMAP",606,0)
SHINGLES (HERPES ZOSTER)^121
"TEMP","PXVMAP",607,0)
SHINGLES VARICELLA (ADULT)^121
"TEMP","PXVMAP",608,0)
VARICELLA^121
"TEMP","PXVMAP",609,0)
VARICELLA ^121
"TEMP","PXVMAP",610,0)
VARICELLA  ZOSTER^121
"TEMP","PXVMAP",611,0)
VARICELLA RECEIVED ELSEWHERE^121
"TEMP","PXVMAP",612,0)
VARICELLA ZOSTER^121
"TEMP","PXVMAP",613,0)
VARICELLA ZOSTER (SHINGLES)^121
"TEMP","PXVMAP",614,0)
VARICELLA ZOSTER (ZOSTAVAX)^121
"TEMP","PXVMAP",615,0)
VARICELLA ZOSTER VACCINE^121
"TEMP","PXVMAP",616,0)
Varicella Zoster Virus Vaccine^121
"TEMP","PXVMAP",617,0)
VARICELLA ZOSTER(VZ)^121
"TEMP","PXVMAP",618,0)
Varicella Zoster(Zostavax)^121
"TEMP","PXVMAP",619,0)
VARICELLA ZOSTER-SHINGLES^121
"TEMP","PXVMAP",620,0)
VARICELLA-ZOSTER^121
"TEMP","PXVMAP",621,0)
VARICELLA-ZOSTER IM^121
"TEMP","PXVMAP",622,0)
VIRICELLA ZOSTER (ZOSTOVAX)^121
"TEMP","PXVMAP",623,0)
ZASTAVAX^121
"TEMP","PXVMAP",624,0)
ZOSTAVAX^121
"TEMP","PXVMAP",625,0)
ZOSTAVAX (shingles)^121
"TEMP","PXVMAP",626,0)
ZOSTER^121
"TEMP","PXVMAP",627,0)
ZOSTER (SHINGLES)^121
"TEMP","PXVMAP",628,0)
ZOSTER (SHINGLES) VACCINE^121
"TEMP","PXVMAP",629,0)
ZOSTER (Varicella Zoster)^121
"TEMP","PXVMAP",630,0)
ZOSTER (ZOSTOVAX)^121
"TEMP","PXVMAP",631,0)
ZOSTER SHINGLES^121
"TEMP","PXVMAP",632,0)
ZOSTER VACCINE^121
"TEMP","PXVMAP",633,0)
ZOSTER VACCINE (LIVE)^121
"TEMP","PXVMAP",634,0)
ZOSTER VACCINE LIVE^121
"TEMP","PXVMAP",635,0)
Zoster Vaccine(Zostavax)^121
"TEMP","PXVMAP",636,0)
ZOSTER VIRUS VACCINE^121
"TEMP","PXVMAP",637,0)
ZOSTER VIRUS VACCINE[NF]^121
"TEMP","PXVMAP",638,0)
ZOSTRAVAX^121
"TEMP","PXVMAP",639,0)
ZZZOSTER GIVEN ELSEWHERE^121
"TEMP","PXVMAP",640,0)
ZZZZOSTER (SHINGLES) VACCINE^121
"TEMP","PXVMAP",641,0)
ZOSTER OTHER LOCATION^121
"TEMP","PXVMAP",642,0)
ZOSTER VACCINE INJ^121
"TEMP","PXVMAP",643,0)
ROTOVIRUS,ORAL^122
"TEMP","PXVMAP",644,0)
INFLUENZA A (H1N1) LIVE VACCINE SUSP,NASAL ^125
"TEMP","PXVMAP",645,0)
zz INFLUENZA-H1N1 (LAIV) VACCINE^125
"TEMP","PXVMAP",646,0)
FLU VACC PANDEMIC NO PRSV IM^127
"TEMP","PXVMAP",647,0)
FLU, PANDEMIC SPLIT, PRESERVATIVE FREE^128
"TEMP","PXVMAP",648,0)
INFLUENZA-H1N1-09, NOVEL (PANDEMIC)^128
"TEMP","PXVMAP",649,0)
ZZINFLUENZA-H1N1-09, NOVEL (PANDEMIC)^128
"TEMP","PXVMAP",650,0)
FLU H1N1 ELSEWHERE^128
"TEMP","PXVMAP",651,0)
FLU VACC PANDEMIC^128
"TEMP","PXVMAP",652,0)
H1N1^128
"TEMP","PXVMAP",653,0)
H1N1 FLU^128
"TEMP","PXVMAP",654,0)
INFLUENZA H1N1^128
"TEMP","PXVMAP",655,0)
INFLUENZA-H1N1-09 NOVEL (PANDEMIC)^128
"TEMP","PXVMAP",656,0)
INFLUENZA-PANDEMIC SPLIT PRSVFREE^128
"TEMP","PXVMAP",657,0)
V1-H1N1 IMMUNIZATION-SERIES 1^128
"TEMP","PXVMAP",658,0)
ZZFLU PANDEMIC^128
"TEMP","PXVMAP",659,0)
JAPANESE ENCEPHALITIS^129
"TEMP","PXVMAP",660,0)
JAPANESE ENCEPHALITIS VIRUS^129
"TEMP","PXVMAP",661,0)
JAPANESE ENCEPH DOSE 1^129
"TEMP","PXVMAP",662,0)
TYPHUS^131
"TEMP","PXVMAP",663,0)
PREVNAR, PCV13^133
"TEMP","PXVMAP",664,0)
PCV13^133
"TEMP","PXVMAP",665,0)
PNEUMO13-VAC^133
"TEMP","PXVMAP",666,0)
PNEUMOCACCAL CONJUGATE PCV13^133
"TEMP","PXVMAP",667,0)
PNEUMOCOCCAL 13-VALENT^133
"TEMP","PXVMAP",668,0)
PNEUMOCOCCAL 13-VALENT CONJUGATE VACCINE^133
"TEMP","PXVMAP",669,0)
PNEUMOCOCCAL CONJUAGTE PCV13^133
"TEMP","PXVMAP",670,0)
PNEUMOCOCCAL CONJUGATE PCV13^133
"TEMP","PXVMAP",671,0)
PNEUMOCOCCAL CONJUGATE PCV13 (Historical)^133
"TEMP","PXVMAP",672,0)
PNEUMOCOCCAL CONJUGATE PCV13 (PREVNAR-13)^133
"TEMP","PXVMAP",673,0)
PNEUMOCOCCAL CONJUGATE PCV13*^133
"TEMP","PXVMAP",674,0)
PNEUMOCOCCAL PCV13^133
"TEMP","PXVMAP",675,0)
PNEUMOCOCCAL PCV13 (PREVNAR-13)^133
"TEMP","PXVMAP",676,0)
PNEUMOCOCCAL PPSV13^133
"TEMP","PXVMAP",677,0)
PNEUMOCOCCAL VALENT 13^133
"TEMP","PXVMAP",678,0)
PNEUMOCOCCAL-13 VALENT^133
"TEMP","PXVMAP",679,0)
PNEUMOVAX V13^133
"TEMP","PXVMAP",680,0)
PREVNAR  13 (pneumococcal) conjugate vaccine^133
"TEMP","PXVMAP",681,0)
PREVNAR  13 (pneumococcal) conjugate vaccine*^133
"TEMP","PXVMAP",682,0)
PREVNAR (PNEUMOCOCCAL PCV13)^133
"TEMP","PXVMAP",683,0)
PREVNAR 13^133
"TEMP","PXVMAP",684,0)
PREVNAR 13 VACCINE^133
"TEMP","PXVMAP",685,0)
PREVNAR PNEUMOC CONJUGATE PCV13^133
"TEMP","PXVMAP",686,0)
PREVNAR V13^133
"TEMP","PXVMAP",687,0)
PREVNAR-13^133
"TEMP","PXVMAP",688,0)
PREVNAR-13 (PNEUMOCOCCAL)^133
"TEMP","PXVMAP",689,0)
PREVNAR/PNEUMOCOCCAL CONJUGATE^133
"TEMP","PXVMAP",690,0)
ZZPNEUMOCOCCAL CONJUGATE PCV13^133
"TEMP","PXVMAP",691,0)
L-PNEUMOCOCCAL CONJUGATE PCV13^133
"TEMP","PXVMAP",692,0)
PNEUMOC CONJUGATE PCV13^133
"TEMP","PXVMAP",693,0)
PNEUMOCOCCAL CONJ PCV13^133
"TEMP","PXVMAP",694,0)
PNEUMOCOCCAL CONJUGATE VACCINE 13-VALENT^133
"TEMP","PXVMAP",695,0)
ZZPREVNAR PNEUMOC CONJUGATE PCV13^133
"TEMP","PXVMAP",696,0)
PNEUMOCOCCAL 13-VAL CONJ VACC (PREVNAR)^133
"TEMP","PXVMAP",697,0)
PREVNAR/PNEUMOCOCAL PCV13 CONJUGATE^133
"TEMP","PXVMAP",698,0)
INFLUENZA, HI-DOSE SEASON, PRESERV-FREE^135
"TEMP","PXVMAP",699,0)
INFLUENZA, HI-DOSE SEASONAL, PRESERV-FREE^135
"TEMP","PXVMAP",700,0)
INFLUENZA, HIGH DOSE SEASONAL^135
"TEMP","PXVMAP",701,0)
INFLUENZA, HIGH DOSE SEASONAL, PRESERV-FREE^135
"TEMP","PXVMAP",702,0)
INFLUENZA, HIGH DOSE^135
"TEMP","PXVMAP",703,0)
INFLUENZA,HIGH DOSE SEASONAL,PRESERV-FREE^135
"TEMP","PXVMAP",704,0)
FLU HIGH DOSE^135
"TEMP","PXVMAP",705,0)
FLU HIGH DOSE GIVEN ELSEWHERE^135
"TEMP","PXVMAP",706,0)
HIGH DOSE INFLUENZA^135
"TEMP","PXVMAP",707,0)
FLU,HIGH DOSE^135
"TEMP","PXVMAP",708,0)
MENINGOCOCCAL CONJUGATE (MCV4O) MENVEO^136
"TEMP","PXVMAP",709,0)
HUMAN PAPILLOMA VIRUS VACCINE, UNSPECIFIED^137
"TEMP","PXVMAP",710,0)
HUMAN PAPILLOMA VIRUS, UNSPECIFIED^137
"TEMP","PXVMAP",711,0)
H PAPILLOMA^137
"TEMP","PXVMAP",712,0)
H PAPILLOMA VACC 3 DOSE IM^137
"TEMP","PXVMAP",713,0)
HPV RUSSELL^137
"TEMP","PXVMAP",714,0)
HPV SERIES COMPLETED^137
"TEMP","PXVMAP",715,0)
HUMAN PAPILLOMA VACCINE^137
"TEMP","PXVMAP",716,0)
HUMAN PAPILLOMA VIRUS (HPV)^137
"TEMP","PXVMAP",717,0)
HUMAN PAPILLOMAVIRUS (1)^137
"TEMP","PXVMAP",718,0)
HUMAN PAPILLOMAVIRUS (2)^137
"TEMP","PXVMAP",719,0)
HUMAN PAPILLOMAVIRUS (3)^137
"TEMP","PXVMAP",720,0)
HUMAN PAPILLOMAVIRUS (HPV)^137
"TEMP","PXVMAP",721,0)
Human Papillomavirus (HPV) Immunization^137
"TEMP","PXVMAP",722,0)
HUMAN PAPILLOMAVIRUS VACCINE^137
"TEMP","PXVMAP",723,0)
PAPILLOMA VIRUS^137
"TEMP","PXVMAP",724,0)
PAPILLOMAVARIS (HPV)^137
"TEMP","PXVMAP",725,0)
PAPILLOMAVIRUS ^137
"TEMP","PXVMAP",726,0)
PAPILLOMAVIRUS (HPV)^137
"TEMP","PXVMAP",727,0)
PAPILLOMAVIRUS HPV^137
"TEMP","PXVMAP",728,0)
PAPILLOMAVIRUS HUMAN^137
"TEMP","PXVMAP",729,0)
PAPILLOMAVIRUS VACCINE^137
"TEMP","PXVMAP",730,0)
PAPILLOMAVIRUS(HPV)^137
"TEMP","PXVMAP",731,0)
PAPPALLOMAVIRUS^137
"TEMP","PXVMAP",732,0)
PAPPILLOMAVIRUS^137
"TEMP","PXVMAP",733,0)
Pappillomavirus (HPV)^137
"TEMP","PXVMAP",734,0)
DIPTHERIA TETANUS TOXOID^138
"TEMP","PXVMAP",735,0)
TD vaccine, given elsewhere^139
"TEMP","PXVMAP",736,0)
CT-TETANUS DIPTHERIA IMMUNIZATION^139
"TEMP","PXVMAP",737,0)
DIPHTHERIA TETANUS ADULT^139
"TEMP","PXVMAP",738,0)
Diptheria Tetanus^139
"TEMP","PXVMAP",739,0)
DIPTHERIA-TETANUS^139
"TEMP","PXVMAP",740,0)
Td Adult^139
"TEMP","PXVMAP",741,0)
TD ADULT DONE^139
"TEMP","PXVMAP",742,0)
TD ADULT DONE ELSEWHERE^139
"TEMP","PXVMAP",743,0)
TD DONE ELSEWHERE^139
"TEMP","PXVMAP",744,0)
TD IMMUNIZATION^139
"TEMP","PXVMAP",745,0)
TD IMMUNIZATION HISTORICAL^139
"TEMP","PXVMAP",746,0)
TD-ADULT^139
"TEMP","PXVMAP",747,0)
TET-dip-a/pert (Tdap)^139
"TEMP","PXVMAP",748,0)
TET-DIP-A/PERTUSSIS^139
"TEMP","PXVMAP",749,0)
TET-DIP-ACELLULAR PERTUSSIS (ADULT)^139
"TEMP","PXVMAP",750,0)
Tetanus / Diptheria Immunization^139
"TEMP","PXVMAP",751,0)
TETANUS ANTITOXIN^139
"TEMP","PXVMAP",752,0)
TETANUS DIPHTHERIA^139
"TEMP","PXVMAP",753,0)
TETANUS DIPHTHERIA  (TD-ADULT)^139
"TEMP","PXVMAP",754,0)
TETANUS DIPHTHERIA (ADULT)^139
"TEMP","PXVMAP",755,0)
TETANUS DIPHTHERIA (Td)^139
"TEMP","PXVMAP",756,0)
TETANUS DIPHTHERIA (TD-ADULT)^139
"TEMP","PXVMAP",757,0)
TETANUS DIPHTHERIA ADULT^139
"TEMP","PXVMAP",758,0)
TETANUS DIPTH^139
"TEMP","PXVMAP",759,0)
TETANUS DIPTH DONE ELSEWHERE^139
"TEMP","PXVMAP",760,0)
TETANUS DIPTHERIA^139
"TEMP","PXVMAP",761,0)
TETANUS DIPTHERIA (ADULT)^139
"TEMP","PXVMAP",762,0)
TETANUS DIPTHERIA (TD-ADULT)^139
"TEMP","PXVMAP",763,0)
TETANUS DIPTHERIA (TD-ADULT) DONE ELSEWHERE^139
"TEMP","PXVMAP",764,0)
TETANUS DIPTHERIA IMMUNIZATION^139
"TEMP","PXVMAP",765,0)
TETANUS-DIPHTHERIA^139
"TEMP","PXVMAP",766,0)
TETANUS-DIPTHERIA^139
"TEMP","PXVMAP",767,0)
TETANUS-DIPTHERIA-PERTUSIS (TDAP)^139
"TEMP","PXVMAP",768,0)
TETANUS/DIPHTHERIA^139
"TEMP","PXVMAP",769,0)
TETANUS/DIPHTHERIA (Td)^139
"TEMP","PXVMAP",770,0)
TETANUS/DIPTHERIA^139
"TEMP","PXVMAP",771,0)
TETANUS/DIPTHERIA GIVEN ELSEWHERE^139
"TEMP","PXVMAP",772,0)
TETANUS DIPTHERIA (TD-ADULT2)^139
"TEMP","PXVMAP",773,0)
FLU VACC SPLIT, PRSV FREE^140
"TEMP","PXVMAP",774,0)
FLU VACCINE, NO PRES^140
"TEMP","PXVMAP",775,0)
FLU VACCINE, NO PRESERVATIVES^140
"TEMP","PXVMAP",776,0)
FLU, 3YR PRESERVATIVE FREE^140
"TEMP","PXVMAP",777,0)
FLU,3 YRS,NOPRESERVATIVE^140
"TEMP","PXVMAP",778,0)
FLU,3 YRS/NP^140
"TEMP","PXVMAP",779,0)
INFLUENZA  VACCINE,PF SYR,0.5ML INJ,SOLN^140
"TEMP","PXVMAP",780,0)
INFLUENZA , 90656^140
"TEMP","PXVMAP",781,0)
INFLUENZA,SEASONAL,INJECTABLE,PRESERV-FREE^140
"TEMP","PXVMAP",782,0)
FLU TRIVALENT PRES-FREE^140
"TEMP","PXVMAP",783,0)
FLU VACCINE NO PRESERV 3 & >^140
"TEMP","PXVMAP",784,0)
FLU VACCINE NO PRESERV 3 & UP^140
"TEMP","PXVMAP",785,0)
FLU VACCINE NO PRESERVE 3&>^140
"TEMP","PXVMAP",786,0)
IM.MRN-INFLUENZA 90656^140
"TEMP","PXVMAP",787,0)
ZZFLU VACCINE NO PRESERV 3 & >^140
"TEMP","PXVMAP",788,0)
INFLUENZA, 90658^141
"TEMP","PXVMAP",789,0)
LOT SYR U0596AA^141
"TEMP","PXVMAP",790,0)
FLU,INTRADERMAL^144
"TEMP","PXVMAP",791,0)
INFLUENZA VACCINE, INTRADERMAL^144
"TEMP","PXVMAP",792,0)
INFLUENZA, SEASONAL, INTRADERMAL,PRESERV-FREE^144
"TEMP","PXVMAP",793,0)
INFLUENZA 0.1ML ID^144
"TEMP","PXVMAP",794,0)
FLU INTRADERMAL^144
"TEMP","PXVMAP",795,0)
MENINGOCOCCAL CONJUGATE^147
"TEMP","PXVMAP",796,0)
MENINGOCOCCAL A,C,Y,W135 DIPHTHERIA CONJUGATE^147
"TEMP","PXVMAP",797,0)
MENINGOCOCCAL CONJUGATE VACCINE^147
"TEMP","PXVMAP",798,0)
MENINGOCOCCAL CONJUGATE MCV4^147
"TEMP","PXVMAP",799,0)
FLU QUADRIVALENT PRES-FREE^150
"TEMP","PXVMAP",800,0)
FLU, NASAL^151
"TEMP","PXVMAP",801,0)
PNEUMOCOCCAL CONJUGATE^152
"TEMP","PXVMAP",802,0)
PNEUMOCONJ^152
"TEMP","PXVMAP",803,0)
INFLUENZA INJ,MDCK PRES-FREE^153
"TEMP","PXVMAP",804,0)
FLUBLOK^155
"VER")
8.0^22.0
"^DD",920,920,0)
FIELD^^99.97^10
"^DD",920,920,0,"DDA")
N
"^DD",920,920,0,"DT")
3140828
"^DD",920,920,0,"ID",.02)
W "   ",$E($P(^(0),U,2),4,5)_"-"_$E($P(^(0),U,2),6,7)_"-"_$E($P(^(0),U,2),2,3)
"^DD",920,920,0,"ID",.03)
W "   ",@("$P($P($C(59)_$S($D(^DD(920,.03,0)):$P(^(0),U,3),1:0)_$E("_DIC_"Y,0),0),$C(59)_$P(^(0),U,3)_"":"",2),$C(59),1)")
"^DD",920,920,0,"ID",.04)
S %I=Y,Y=$S('$D(^(0)):"",$D(^DI(.85,+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""),C=$P(^DD(.85,.01,0),U,2) D Y^DIQ:Y]"" W "   ",Y,@("$E("_DIC_"%I,0),0)") S Y=%I K %I
"^DD",920,920,0,"IX","AREPLACETERM",920,99.97)

"^DD",920,920,0,"IX","AVUID",920,99.99)

"^DD",920,920,0,"IX","B",920,.01)

"^DD",920,920,0,"NM","VACCINE INFORMATION STATEMENT")

"^DD",920,920,0,"PT",920,99.97)

"^DD",920,920,0,"PT",9000010.112,.01)

"^DD",920,920,0,"PT",9999999.144,.01)

"^DD",920,920,.01,0)
NAME^RF^^0;1^K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X
"^DD",920,920,.01,.1)
Name
"^DD",920,920,.01,1,0)
^.1
"^DD",920,920,.01,1,1,0)
920^B
"^DD",920,920,.01,1,1,1)
S ^AUTTIVIS("B",$E(X,1,50),DA)=""
"^DD",920,920,.01,1,1,2)
K ^AUTTIVIS("B",$E(X,1,50),DA)
"^DD",920,920,.01,3)
Enter the name of the Vaccine Information Statement (3-50 characters).
"^DD",920,920,.01,7.5)
I $G(DIC(0))["L",'$D(XUMF) K X D EN^DDIOL("Entries must be edited via the Master File Server (MFS).","","!?5")
"^DD",920,920,.01,9)
^
"^DD",920,920,.01,21,0)
^^1^1^3140501^
"^DD",920,920,.01,21,1,0)
This is the name of the Vaccine Information Statement (VIS).
"^DD",920,920,.01,"DEL",1,0)
D:'$D(XUMF) EN^DDIOL("Entries must be inactivated via the Master File Server(MFS).","","!?5") I '$D(XUMF)
"^DD",920,920,.01,"DT")
3140501
"^DD",920,920,.01,"LAYGO",1,0)
D:'$D(XUMF) EN^DDIOL("Entries must be added via the Master File Server(MFS).","","!?5") I $D(XUMF)
"^DD",920,920,.02,0)
EDITION DATE^D^^0;2^S %DT="E" D ^%DT S X=Y K:Y<1 X
"^DD",920,920,.02,.1)
Edition Date
"^DD",920,920,.02,3)
Enter the edition date of this VIS.
"^DD",920,920,.02,9)
^
"^DD",920,920,.02,21,0)
^^2^2^3140501^
"^DD",920,920,.02,21,1,0)
This is the edition date of this Vaccine Information Statement
"^DD",920,920,.02,21,2,0)
distributed by the CDC.
"^DD",920,920,.02,"DT")
3140501
"^DD",920,920,.03,0)
EDITION STATUS^S^C:CURRENT;H:HISTORIC;^0;3^Q
"^DD",920,920,.03,.1)
Edition Status
"^DD",920,920,.03,3)
Enter the status of this VIS edition.
"^DD",920,920,.03,9)
^
"^DD",920,920,.03,21,0)
^^3^3^3140501^
"^DD",920,920,.03,21,1,0)
This is the status of this edition of this Vaccine Information Statement
"^DD",920,920,.03,21,2,0)
(VIS). A status of CURRENT indicates this VIS is in current use. A
"^DD",920,920,.03,21,3,0)
status of HISTORIC indicates this VIS is no longer in use.
"^DD",920,920,.03,"DT")
3140501
"^DD",920,920,.04,0)
LANGUAGE^*P.85'^DI(.85,^0;4^S DIC("S")="I $P(^(0),U,7)=""L""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
"^DD",920,920,.04,.1)
Language
"^DD",920,920,.04,3)
Enter the language translation of this VIS.
"^DD",920,920,.04,9)
^
"^DD",920,920,.04,12)
Screen allows selection of living languages only.
"^DD",920,920,.04,12.1)
S DIC("S")="I $P(^(0),U,7)=""L"""
"^DD",920,920,.04,21,0)
^.001^2^2^3140828^^^
"^DD",920,920,.04,21,1,0)
This is the language translation of this Vaccine Information Statement
"^DD",920,920,.04,21,2,0)
(VIS).
"^DD",920,920,.04,"DT")
3140828
"^DD",920,920,2,0)
VIS TEXT^920.02^^2;0
"^DD",920,920,2,9)
^
"^DD",920,920,2,21,0)
^^1^1^3140501^
"^DD",920,920,2,21,1,0)
This is the text of the Vaccine Information Statement (VIS).
"^DD",920,920,99.97,0)
REPLACED BY VHA STANDARD TERM^P920'I^AUTTIVIS(^VUID;3^Q
"^DD",920,920,99.97,1,0)
^.1
"^DD",920,920,99.97,1,1,0)
920^AREPLACETERM
"^DD",920,920,99.97,1,1,1)
S ^AUTTIVIS("AREPLACETERM",$E(X,1,30),DA)=""
"^DD",920,920,99.97,1,1,2)
K ^AUTTIVIS("AREPLACETERM",$E(X,1,30),DA)
"^DD",920,920,99.97,1,1,"%D",0)
^^2^2^3140520^
"^DD",920,920,99.97,1,1,"%D",1,0)
This cross-reference can be used to identify the replacement entries 
"^DD",920,920,99.97,1,1,"%D",2,0)
associated with a Term/Concept.
"^DD",920,920,99.97,1,1,"DT")
3140520
"^DD",920,920,99.97,3)
Enter the Term/Concept that replaces this entry.
"^DD",920,920,99.97,9)
^
"^DD",920,920,99.97,21,0)
^.001^4^4^3140520^^
"^DD",920,920,99.97,21,1,0)
This field is populated when one Term/Concept replaces another 
"^DD",920,920,99.97,21,2,0)
Term/Concept.  This field is controlled by standardization and should 
"^DD",920,920,99.97,21,3,0)
only be changed by standardization processes.  This field contains a 
"^DD",920,920,99.97,21,4,0)
pointer to a VHA standard term that replaces this entry.
"^DD",920,920,99.97,"DT")
3140527
"^DD",920,920,99.98,0)
MASTER ENTRY FOR VUID^RSI^1:YES;0:NO;^VUID;2^Q
"^DD",920,920,99.98,3)
Enter YES if this is the Master entry.
"^DD",920,920,99.98,9)
^
"^DD",920,920,99.98,21,0)
^^2^2^3140506^
"^DD",920,920,99.98,21,1,0)
This field identifies the Master entry for a VUID associated with a 
"^DD",920,920,99.98,21,2,0)
Term/Concept.
"^DD",920,920,99.98,"DT")
3140520
"^DD",920,920,99.99,0)
VUID^RFXI^^VUID;1^S X=+X K:$L(X)>20!($L(X)<1)!'(X?1.20N) X
"^DD",920,920,99.99,1,0)
^.1
"^DD",920,920,99.99,1,1,0)
920^AVUID
"^DD",920,920,99.99,1,1,1)
S ^AUTTIVIS("AVUID",$E(X,1,30),DA)=""
"^DD",920,920,99.99,1,1,2)
K ^AUTTIVIS("AVUID",$E(X,1,30),DA)
"^DD",920,920,99.99,1,1,3)
XXX--CAN'T BE ALTERED EXCEPT PROGRAMMER
"^DD",920,920,99.99,1,1,"%D",0)
^^1^1^3140506^
"^DD",920,920,99.99,1,1,"%D",1,0)
This cross-reference is by VUID.
"^DD",920,920,99.99,1,1,"DT")
3140506
"^DD",920,920,99.99,3)
Answer must be 1-20 characters in length.
"^DD",920,920,99.99,9)
^
"^DD",920,920,99.99,21,0)
^^2^2^3140506^
"^DD",920,920,99.99,21,1,0)
VHA Unique ID (VUID). A unique meaningless integer assigned to reference
"^DD",920,920,99.99,21,2,0)
terms VHA wide.
"^DD",920,920,99.99,"DT")
3140520
"^DD",920,920,99.991,0)
EFFECTIVE DATE/TIME^920.99DA^^TERMSTATUS;0
"^DD",920,920,99.991,9)
^
"^DD",920,920,99.991,21,0)
^.001^1^1^3140506^^^
"^DD",920,920,99.991,21,1,0)
Describes the pair Status and Effective Date/Time for each reference term.
"^DD",920,920,101,0)
VIS URL^F^^101;1^K:$L(X)>245!($L(X)<1) X
"^DD",920,920,101,.1)
Vaccine Information Statement URL
"^DD",920,920,101,3)
Enter the URL for this VIS (1-245 characters).
"^DD",920,920,101,9)
^
"^DD",920,920,101,21,0)
^^3^3^3140501^
"^DD",920,920,101,21,1,0)
This is the URL for this vaccine information statement. The URL may be 
"^DD",920,920,101,21,2,0)
used to access this vaccine information statement directly over the 
"^DD",920,920,101,21,3,0)
internet from the CDC website.
"^DD",920,920,101,"DT")
3140501
"^DD",920,920.02,0)
VIS TEXT SUB-FIELD^^.01^1
"^DD",920,920.02,0,"DT")
3140501
"^DD",920,920.02,0,"NM","VIS TEXT")

"^DD",920,920.02,0,"UP")
920
"^DD",920,920.02,.01,0)
VIS TEXT^Wx^^0;1^Q
"^DD",920,920.02,.01,.1)
VIS Text
"^DD",920,920.02,.01,3)
Enter the text of the vaccine information statement.
"^DD",920,920.02,.01,21,0)
^^1^1^3140501^
"^DD",920,920.02,.01,21,1,0)
This is the text of the Vaccine Information Statement (VIS).
"^DD",920,920.02,.01,"DT")
3140501
"^DD",920,920.99,0)
EFFECTIVE DATE/TIME SUB-FIELD^^.02^2
"^DD",920,920.99,0,"DT")
3140506
"^DD",920,920.99,0,"IX","B",920.99,.01)

"^DD",920,920.99,0,"NM","EFFECTIVE DATE/TIME")

"^DD",920,920.99,0,"UP")
920
"^DD",920,920.99,.01,0)
EFFECTIVE DATE/TIME^RDIX^^0;1^S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
"^DD",920,920.99,.01,.1)

"^DD",920,920.99,.01,1,0)
^.1
"^DD",920,920.99,.01,1,1,0)
920.99^B
"^DD",920,920.99,.01,1,1,1)
S ^AUTTIVIS(DA(1),"TERMSTATUS","B",$E(X,1,30),DA)=""
"^DD",920,920.99,.01,1,1,2)
K ^AUTTIVIS(DA(1),"TERMSTATUS","B",$E(X,1,30),DA)
"^DD",920,920.99,.01,1,1,"%D",0)
^^1^1^3140527^
"^DD",920,920.99,.01,1,1,"%D",1,0)
This cross-reference is by Effective Date/Time.
"^DD",920,920.99,.01,3)
Enter the date/time when the Status of the reference term was established.
"^DD",920,920.99,.01,9)
^
"^DD",920,920.99,.01,21,0)
^.001^2^2^3140506^^^
"^DD",920,920.99,.01,21,1,0)
This is the date/time when the Status of the reference term was 
"^DD",920,920.99,.01,21,2,0)
established.
"^DD",920,920.99,.01,"DT")
3140527
"^DD",920,920.99,.02,0)
STATUS^RSI^1:ACTIVE;0:INACTIVE;^0;2^Q
"^DD",920,920.99,.02,.1)

"^DD",920,920.99,.02,3)
Enter the Status of reference term, ACTIVE or INACTIVE.
"^DD",920,920.99,.02,9)
^
"^DD",920,920.99,.02,21,0)
^^4^4^3140527^
"^DD",920,920.99,.02,21,1,0)
The Status of a reference term is either 'ACTIVE' or 'INACTIVE'. If 
"^DD",920,920.99,.02,21,2,0)
'ACTIVE', then the term will be accessible by end-users to document a
"^DD",920,920.99,.02,21,3,0)
particular patient event. If 'INACTIVE', then the term will only be
"^DD",920,920.99,.02,21,4,0)
accessible by the application to display legacy data.
"^DD",920,920.99,.02,"DT")
3140527
"^DD",920.1,920.1,0)
FIELD^^.03^3
"^DD",920.1,920.1,0,"DDA")
N
"^DD",920.1,920.1,0,"DT")
3140609
"^DD",920.1,920.1,0,"ID",.02)
W "   HL7:",$P(^(0),U,2)
"^DD",920.1,920.1,0,"IX","B",920.1,.01)

"^DD",920.1,920.1,0,"IX","H",920.1,.02)

"^DD",920.1,920.1,0,"NM","IMMUNIZATION INFO SOURCE")

"^DD",920.1,920.1,0,"PT",9000010.11,1301)

"^DD",920.1,920.1,.01,0)
SOURCE^RF^^0;1^K:$S($L(X)>60:1,1:$L(X)<3) X
"^DD",920.1,920.1,.01,.1)
Source
"^DD",920.1,920.1,.01,1,0)
^.1
"^DD",920.1,920.1,.01,1,1,0)
920.1^B
"^DD",920.1,920.1,.01,1,1,1)
S ^PXV(920.1,"B",X,DA)=""
"^DD",920.1,920.1,.01,1,1,2)
K ^PXV(920.1,"B",X,DA)
"^DD",920.1,920.1,.01,3)
Answer must be 3-60 characters in length.
"^DD",920.1,920.1,.01,21,0)
^.001^2^2^3140610^^^^
"^DD",920.1,920.1,.01,21,1,0)
This is the source of the information being provided for an immunization
"^DD",920.1,920.1,.01,21,2,0)
event.
"^DD",920.1,920.1,.01,23,0)
^.001^2^2^3140610^^^^
"^DD",920.1,920.1,.01,23,1,0)
This is the descriptive (long) version of this information source.  Its
"^DD",920.1,920.1,.01,23,2,0)
main use is for determining the source of historical events.
"^DD",920.1,920.1,.01,"DT")
3140602
"^DD",920.1,920.1,.02,0)
HL7 CODE^RFX^^0;2^K:X'?2N X I $D(X),$D(^PXV(920.1,"H",X)),$O(^(X,0))'=DA K X D EN^DDIOL("Another Source is using the HL7 Code just entered.  Please choose another.")
"^DD",920.1,920.1,.02,.1)
HL7 Code
"^DD",920.1,920.1,.02,1,0)
^.1
"^DD",920.1,920.1,.02,1,1,0)
920.1^H
"^DD",920.1,920.1,.02,1,1,1)
S ^PXV(920.1,"H",$E(X,1,30),DA)=""
"^DD",920.1,920.1,.02,1,1,2)
K ^PXV(920.1,"H",$E(X,1,30),DA)
"^DD",920.1,920.1,.02,1,1,3)
Used to enforce that only one source may use an HL7 code.
"^DD",920.1,920.1,.02,1,1,"%D",0)
^.101^3^3^3140610^^^
"^DD",920.1,920.1,.02,1,1,"%D",1,0)
No two Sources can use the same HL7 code at the same time.  This
"^DD",920.1,920.1,.02,1,1,"%D",2,0)
x-ref is checked on entry/edit of an HL7 CODE to enforce that rule.
"^DD",920.1,920.1,.02,1,1,"%D",3,0)
Also allows a Source to be selected by its 2-character HL7 CODE.
"^DD",920.1,920.1,.02,1,1,"DT")
3140602
"^DD",920.1,920.1,.02,3)
Answer must be 2 characters in length, both characters numeric.
"^DD",920.1,920.1,.02,21,0)
^.001^3^3^3140610^^^^
"^DD",920.1,920.1,.02,21,1,0)
This is the HL7 code used for this SOURCE.  It is a required entry of
"^DD",920.1,920.1,.02,21,2,0)
2 numbers.  A  leading zero is acceptable.  NO TWO SOURCES MAY
"^DD",920.1,920.1,.02,21,3,0)
USE THE SAME HL7 CODE.
"^DD",920.1,920.1,.02,23,0)
^.001^3^3^3140610^^
"^DD",920.1,920.1,.02,23,1,0)
This is the corresponding HL7 code for this information source of an
"^DD",920.1,920.1,.02,23,2,0)
immunization event.  The HL7 code is for transmitting and receiving this
"^DD",920.1,920.1,.02,23,3,0)
information.
"^DD",920.1,920.1,.02,"DT")
3140609
"^DD",920.1,920.1,.03,0)
STATUS^SO^0:ACTIVE;1:INACTIVE;^0;3^Q
"^DD",920.1,920.1,.03,2)
S Y(0)=Y S:Y="" Y="ACTIVE"
"^DD",920.1,920.1,.03,2.1)
S:Y="" Y="ACTIVE"
"^DD",920.1,920.1,.03,3)
Enter a '1' or 'INACTIVE' if this Source is no longer active.
"^DD",920.1,920.1,.03,21,0)
^^2^2^3140602^
"^DD",920.1,920.1,.03,21,1,0)
This is used to show if the Source is ACTIVE OR INACTIVE.  This should be
"^DD",920.1,920.1,.03,21,2,0)
a '1' if it is INACTIVE or a '0' or no value if it is ACTIVE.
"^DD",920.1,920.1,.03,"DT")
3140714
"^DD",920.2,920.2,0)
FIELD^^99.991^8
"^DD",920.2,920.2,0,"DDA")
N
"^DD",920.2,920.2,0,"DT")
3140707
"^DD",920.2,920.2,0,"ID",.02)
W "   ",$P(^(0),U,2)
"^DD",920.2,920.2,0,"IX","AREPLACETERM",920.2,99.97)

"^DD",920.2,920.2,0,"IX","AVUID",920.2,99.98)

"^DD",920.2,920.2,0,"IX","B",920.2,.01)

"^DD",920.2,920.2,0,"IX","H",920.2,.02)

"^DD",920.2,920.2,0,"NM","IMM ADMINISTRATION ROUTE")

"^DD",920.2,920.2,0,"PT",920.2,99.97)

"^DD",920.2,920.2,0,"PT",9000010.11,1302)

"^DD",920.2,920.2,.01,0)
ROUTE^RF^^0;1^K:$L(X)>30!($L(X)<3) X
"^DD",920.2,920.2,.01,.1)
Route
"^DD",920.2,920.2,.01,1,0)
^.1
"^DD",920.2,920.2,.01,1,1,0)
920.2^B
"^DD",920.2,920.2,.01,1,1,1)
S ^PXV(920.2,"B",$E(X,1,30),DA)=""
"^DD",920.2,920.2,.01,1,1,2)
K ^PXV(920.2,"B",$E(X,1,30),DA)
"^DD",920.2,920.2,.01,3)
Answer must be 3-30 characters in length.
"^DD",920.2,920.2,.01,7.5)
I $G(DIC(0))["L",'$D(XUMF) K X D EN^DDIOL("Entries must be edited via the Master File Server (MFS).","","!?5")
"^DD",920.2,920.2,.01,9)
^
"^DD",920.2,920.2,.01,21,0)
^.001^3^3^3140701^^^^
"^DD",920.2,920.2,.01,21,1,0)
This is the route of administration for an immunization/vaccine.  The
"^DD",920.2,920.2,.01,21,2,0)
response is expected to be at least 3 characters and no more than 30
"^DD",920.2,920.2,.01,21,3,0)
characters.  Response should also be all uppercase letters.
"^DD",920.2,920.2,.01,23,0)
^.001^3^3^3140701^^^^
"^DD",920.2,920.2,.01,23,1,0)
This is the route of administration of a vaccine to a patient.  Routes
"^DD",920.2,920.2,.01,23,2,0)
entered should be 3-30 uppercase characters.  The values entered here
"^DD",920.2,920.2,.01,23,3,0)
will be pointed by the V IMMUNIZATION file and the IMMUNIZATION file.
"^DD",920.2,920.2,.01,"DEL",1,0)
D:'$D(XUMF) EN^DDIOL("Entries must be inactivated via the Master File Server(MFS).","","!?5") I '$D(XUMF)
"^DD",920.2,920.2,.01,"DT")
3140616
"^DD",920.2,920.2,.01,"LAYGO",1,0)
D:'$D(XUMF) EN^DDIOL("Entries must be added via the Master File Server(MFS).","","!?5") I $D(XUMF)
"^DD",920.2,920.2,.02,0)
HL7 CODE^F^^0;2^K:$L(X)>3!($L(X)<1)!'(X?1.3U) X
"^DD",920.2,920.2,.02,.1)
HL7 Code
"^DD",920.2,920.2,.02,1,0)
^.1
"^DD",920.2,920.2,.02,1,1,0)
920.2^H
"^DD",920.2,920.2,.02,1,1,1)
S ^PXV(920.2,"H",$E(X,1,30),DA)=""
"^DD",920.2,920.2,.02,1,1,2)
K ^PXV(920.2,"H",$E(X,1,30),DA)
"^DD",920.2,920.2,.02,1,1,3)
Used to facilitate entry selection.
"^DD",920.2,920.2,.02,1,1,"%D",0)
^^1^1^3140616^
"^DD",920.2,920.2,.02,1,1,"%D",1,0)
This is used to make selection of an entry (hopefully) easier and quicker.
"^DD",920.2,920.2,.02,1,1,"DT")
3140616
"^DD",920.2,920.2,.02,3)
Answer must be 1-3 characters in length.
"^DD",920.2,920.2,.02,9)
^
"^DD",920.2,920.2,.02,21,0)
^.001^2^2^3140616^^^
"^DD",920.2,920.2,.02,21,1,0)
This is the HL7 code associated with this route.  It is expected to be 1-3
"^DD",920.2,920.2,.02,21,2,0)
uppercase alpha characters, only.
"^DD",920.2,920.2,.02,23,0)
^.001^2^2^3140616^^
"^DD",920.2,920.2,.02,23,1,0)
This is the HL7-0162 code for this route of administration. It must one
"^DD",920.2,920.2,.02,23,2,0)
to three uppercase alpha characters - no numbers or punctuation.
"^DD",920.2,920.2,.02,"DT")
3140616
"^DD",920.2,920.2,.03,0)
FDA NCIT^F^^0;3^K:$L(X)>6!($L(X)<6)!'(X?1U5N) X
"^DD",920.2,920.2,.03,3)
Answer must be 6 characters in length, 1 uppercase alpha followed by 5 numbers.
"^DD",920.2,920.2,.03,9)
^
"^DD",920.2,920.2,.03,21,0)
^.001^2^2^3140701^^^
"^DD",920.2,920.2,.03,21,1,0)
This is the FDA NCIT code for this route.  It must be in the format of 1
"^DD",920.2,920.2,.03,21,2,0)
uppercase alpha character followed by 5 numbers.
"^DD",920.2,920.2,.03,23,0)
^.001^4^4^3140701^^^
"^DD",920.2,920.2,.03,23,1,0)
This is the NCIT - FDA NCI Thesaurus - for this route.  Healthcare
"^DD",920.2,920.2,.03,23,2,0)
Information Technology Standards (HITSP) specifies the use of FDA
"^DD",920.2,920.2,.03,23,3,0)
routes of administration.  The code in this field maps this route
"^DD",920.2,920.2,.03,23,4,0)
to the FDA route.
"^DD",920.2,920.2,.03,"DT")
3140701
"^DD",920.2,920.2,.04,0)
DEFINITION^F^^0;4^K:$L(X)>90!($L(X)<3) X
"^DD",920.2,920.2,.04,.1)
Definition
"^DD",920.2,920.2,.04,3)
Answer must be 3-90 characters in length.
"^DD",920.2,920.2,.04,9)
^
"^DD",920.2,920.2,.04,21,0)
^.001^1^1^3140701^^
"^DD",920.2,920.2,.04,21,1,0)
This is the definition of this route.  It must be 3-90 characters.
"^DD",920.2,920.2,.04,23,0)
^^2^2^3140701^
"^DD",920.2,920.2,.04,23,1,0)
This is the definition (explanation) of this route of administration, as
"^DD",920.2,920.2,.04,23,2,0)
provided by the HL7-defined Table 0162 - Route of administration.
"^DD",920.2,920.2,.04,"DT")
3140701
"^DD",920.2,920.2,99.97,0)
REPLACED BY VHA STANDARD TERM^P920.2'^PXV(920.2,^VUID;3^Q
"^DD",920.2,920.2,99.97,1,0)
^.1
"^DD",920.2,920.2,99.97,1,1,0)
920.2^AREPLACETERM
"^DD",920.2,920.2,99.97,1,1,1)
S ^PXV(920.2,"AREPLACETERM",$E(X,1,30),DA)=""
"^DD",920.2,920.2,99.97,1,1,2)
K ^PXV(920.2,"AREPLACETERM",$E(X,1,30),DA)
"^DD",920.2,920.2,99.97,1,1,"%D",0)
^^2^2^3140707^
"^DD",920.2,920.2,99.97,1,1,"%D",1,0)
This cross-reference can be used to identify the replacement entries
"^DD",920.2,920.2,99.97,1,1,"%D",2,0)
associated with a Term/Concept.
"^DD",920.2,920.2,99.97,1,1,"DT")
3140707
"^DD",920.2,920.2,99.97,3)
Enter the term that replaces this term.
"^DD",920.2,920.2,99.97,21,0)
^^4^4^3140707^
"^DD",920.2,920.2,99.97,21,1,0)
This field is populated when one Term/Concept replaces another
"^DD",920.2,920.2,99.97,21,2,0)
Term/Concept.  THe field is controlled by standardization and should
"^DD",920.2,920.2,99.97,21,3,0)
only be changed by standardization processes.  This field contains a
"^DD",920.2,920.2,99.97,21,4,0)
pointer to a VHA standard term that replaces this entry.
"^DD",920.2,920.2,99.97,"DT")
3140707
"^DD",920.2,920.2,99.98,0)
MASTER ENTRY FOR VUID^RSI^1:YES;0:NO;^VUID;2^Q
"^DD",920.2,920.2,99.98,1,0)
^.1
"^DD",920.2,920.2,99.98,1,1,0)
920.2^AVUID
"^DD",920.2,920.2,99.98,1,1,1)
S ^PXV(920.2,"AVUID",$E(X,1,30),DA)=""
"^DD",920.2,920.2,99.98,1,1,2)
K ^PXV(920.2,"AVUID",$E(X,1,30),DA)
"^DD",920.2,920.2,99.98,1,1,3)
XXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
"^DD",920.2,920.2,99.98,1,1,"%D",0)
^^1^1^3140707^
"^DD",920.2,920.2,99.98,1,1,"%D",1,0)
This cross-reference is by VUID.
"^DD",920.2,920.2,99.98,1,1,"DT")
3140707
"^DD",920.2,920.2,99.98,3)
Answer YES if this is the Master Entry for thsi VUID.
"^DD",920.2,920.2,99.98,21,0)
^.001^2^2^3140714^^
"^DD",920.2,920.2,99.98,21,1,0)
This field identifies the Master entry for a VUID associated with a
"^DD",920.2,920.2,99.98,21,2,0)
Term/Concept.
"^DD",920.2,920.2,99.98,"DT")
3140707
"^DD",920.2,920.2,99.99,0)
VUID^RFXI^^VUID;1^S X=+X K:$L(X)>20!($L(X)<1)!'(X?1.20N) X
"^DD",920.2,920.2,99.99,3)
Answer must be 1-20 characters in length.
"^DD",920.2,920.2,99.99,21,0)
^^2^2^3140707^
"^DD",920.2,920.2,99.99,21,1,0)
VHA Unique ID (VUID). A unique meaningless integer assigned to reference
"^DD",920.2,920.2,99.99,21,2,0)
terms VHA wide.
"^DD",920.2,920.2,99.99,"DT")
3140707
"^DD",920.2,920.2,99.991,0)
EFFECTIVE DATE/TIME^920.299D^^TERMSTATUS;0
"^DD",920.2,920.2,99.991,21,0)
^^2^2^3140828^
"^DD",920.2,920.2,99.991,21,1,0)
Describes the pair Status and Effective Date/Time for each
"^DD",920.2,920.2,99.991,21,2,0)
reference term.
"^DD",920.2,920.299,0)
EFFECTIVE DATE/TIME SUB-FIELD^^.02^2
"^DD",920.2,920.299,0,"DT")
3140707
"^DD",920.2,920.299,0,"IX","B",920.299,.01)

"^DD",920.2,920.299,0,"NM","EFFECTIVE DATE/TIME")

"^DD",920.2,920.299,0,"UP")
920.2
"^DD",920.2,920.299,.01,0)
EFFECTIVE DATE/TIME^D^^0;1^S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
"^DD",920.2,920.299,.01,1,0)
^.1
"^DD",920.2,920.299,.01,1,1,0)
920.299^B
"^DD",920.2,920.299,.01,1,1,1)
S ^PXV(920.2,DA(1),"TERMSTATUS","B",$E(X,1,30),DA)=""
"^DD",920.2,920.299,.01,1,1,2)
K ^PXV(920.2,DA(1),"TERMSTATUS","B",$E(X,1,30),DA)
"^DD",920.2,920.299,.01,3)
Enter the date and time when the status of this term was established.
"^DD",920.2,920.299,.01,21,0)
^.001^2^2^3140829^^^
"^DD",920.2,920.299,.01,21,1,0)
This is the date/time when the Status of the reference term was
"^DD",920.2,920.299,.01,21,2,0)
established.
"^DD",920.2,920.299,.01,"DT")
3140707
"^DD",920.2,920.299,.02,0)
STATUS^RS^1:ACTIVE;0:INACTIVE;^0;2^Q
"^DD",920.2,920.299,.02,3)
Enter the Status of this term.
"^DD",920.2,920.299,.02,21,0)
^^4^4^3140707^
"^DD",920.2,920.299,.02,21,1,0)
The Status of a reference term is either 'ACTIVE' or 'INACTIVE'. If
"^DD",920.2,920.299,.02,21,2,0)
ACTIVE', then the term will be accessible by end-users to document a
"^DD",920.2,920.299,.02,21,3,0)
particular patient event. If 'INACTIVE', then the term will only be
"^DD",920.2,920.299,.02,21,4,0)
accessible by the application to display legacy data.
"^DD",920.2,920.299,.02,"DT")
3140707
"^DD",920.3,920.3,0)
FIELD^^99.991^6
"^DD",920.3,920.3,0,"DDA")
N
"^DD",920.3,920.3,0,"DT")
3140708
"^DD",920.3,920.3,0,"ID",.02)
W "   ",$P(^(0),U,2)
"^DD",920.3,920.3,0,"IX","AREPLACETERM",920.3,99.97)

"^DD",920.3,920.3,0,"IX","AVUID",920.3,99.98)

"^DD",920.3,920.3,0,"IX","B",920.3,.01)

"^DD",920.3,920.3,0,"IX","B",920.3,.02)

"^DD",920.3,920.3,0,"NM","IMM ADMINISTRATION SITE (BODY)")

"^DD",920.3,920.3,0,"PT",920.3,99.97)

"^DD",920.3,920.3,0,"PT",9000010.11,1303)

"^DD",920.3,920.3,.01,0)
SITE^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
"^DD",920.3,920.3,.01,.1)
Site
"^DD",920.3,920.3,.01,1,0)
^.1
"^DD",920.3,920.3,.01,1,1,0)
920.3^B
"^DD",920.3,920.3,.01,1,1,1)
S ^PXV(920.3,"B",$E(X,1,30),DA)=""
"^DD",920.3,920.3,.01,1,1,2)
K ^PXV(920.3,"B",$E(X,1,30),DA)
"^DD",920.3,920.3,.01,3)
Answer must be 3-30 characters in length.
"^DD",920.3,920.3,.01,7.5)
I $G(DIC(0))["L",'$D(XUMF) K X D EN^DDIOL("Entries must be edited via the Master File Server (MFS).","","!?5")
"^DD",920.3,920.3,.01,9)
^
"^DD",920.3,920.3,.01,21,0)
^.001^3^3^3140616^^
"^DD",920.3,920.3,.01,21,1,0)
This is area on the body of the patient where the immunization/vaccine
"^DD",920.3,920.3,.01,21,2,0)
was administered.  The entry is expected to be 3-30 characters with all
"^DD",920.3,920.3,.01,21,3,0)
alpha characters being uppercase
"^DD",920.3,920.3,.01,23,0)
^.001^4^4^3140616^^
"^DD",920.3,920.3,.01,23,1,0)
This is the area of a patient's body to where a vaccine can be
"^DD",920.3,920.3,.01,23,2,0)
administered.  The entry is expected to be 3-30 characters, with the alpha
"^DD",920.3,920.3,.01,23,3,0)
characters being all uppercase.  The entry here should correspond to one
"^DD",920.3,920.3,.01,23,4,0)
of the entries the HL7 0163 Body Site Codeset table.
"^DD",920.3,920.3,.01,"DEL",1,0)
D:'$D(XUMF) EN^DDIOL("Entries must be inactivated via the Master File Server(MFS).","","!?5") I '$D(XUMF)
"^DD",920.3,920.3,.01,"DT")
3140616
"^DD",920.3,920.3,.01,"LAYGO",1,0)
D:'$D(XUMF) EN^DDIOL("Entries must be added via the Master File Server(MFS).","","!?5") I $D(XUMF)
"^DD",920.3,920.3,.02,0)
HL7 CODE^RF^^0;2^K:$L(X)>4!($L(X)<2)!'(X?2.4U) X
"^DD",920.3,920.3,.02,.1)
HL7 Code
"^DD",920.3,920.3,.02,1,0)
^.1
"^DD",920.3,920.3,.02,1,1,0)
920.3^B^MNEMONIC
"^DD",920.3,920.3,.02,1,1,1)
S:'$D(^PXV(920.3,"B",$E(X,1,30),DA)) ^(DA)=1
"^DD",920.3,920.3,.02,1,1,2)
I $D(^PXV(920.3,"B",$E(X,1,30),DA)),^(DA) K ^(DA)
"^DD",920.3,920.3,.02,1,1,"DT")
3140709
"^DD",920.3,920.3,.02,3)
Answer must be 2-4 uppercase characters in length and is required.
"^DD",920.3,920.3,.02,9)
^
"^DD",920.3,920.3,.02,21,0)
^.001^2^2^3140714^^
"^DD",920.3,920.3,.02,21,1,0)
This is the corresponding HL7 code for this site.  It must 2-4 uppercase
"^DD",920.3,920.3,.02,21,2,0)
characters and entry is required.
"^DD",920.3,920.3,.02,23,0)
^.001^3^3^3140714^^
"^DD",920.3,920.3,.02,23,1,0)
This is the HL7 code for this site, based on the HL7 0163 Body Site
"^DD",920.3,920.3,.02,23,2,0)
Codeset table.  Entry is expected to be 2-4 uppercase characters and is
"^DD",920.3,920.3,.02,23,3,0)
required.
"^DD",920.3,920.3,.02,"DT")
3140709
"^DD",920.3,920.3,99.97,0)
REPLACED BY VHA STANDARD TERM^P920.3'^PXV(920.3,^VUID;3^Q
"^DD",920.3,920.3,99.97,1,0)
^.1
"^DD",920.3,920.3,99.97,1,1,0)
920.3^AREPLACETERM
"^DD",920.3,920.3,99.97,1,1,1)
S ^PXV(920.3,"AREPLACETERM",$E(X,1,30),DA)=""
"^DD",920.3,920.3,99.97,1,1,2)
K ^PXV(920.3,"AREPLACETERM",$E(X,1,30),DA)
"^DD",920.3,920.3,99.97,1,1,"%D",0)
^^2^2^3140708^
"^DD",920.3,920.3,99.97,1,1,"%D",1,0)
This cross-reference can be used to identify the replacement entries
"^DD",920.3,920.3,99.97,1,1,"%D",2,0)
associated with a Term/Concept.
"^DD",920.3,920.3,99.97,1,1,"DT")
3140708
"^DD",920.3,920.3,99.97,3)
Enter the term that replaces this term.
"^DD",920.3,920.3,99.97,21,0)
^.001^4^4^3140829^^
"^DD",920.3,920.3,99.97,21,1,0)
This field is populated when one Term/Concept replaces another
"^DD",920.3,920.3,99.97,21,2,0)
Term/Concept.  The field is controlled by standardization and should
"^DD",920.3,920.3,99.97,21,3,0)
only be changed by standardization processes.  This field contains a
"^DD",920.3,920.3,99.97,21,4,0)
pointer to a VHA standard term that replaces this entry.
"^DD",920.3,920.3,99.97,"DT")
3140708
"^DD",920.3,920.3,99.98,0)
MASTER ENTRY FOR VUID^RS^1:ACTIVE;0:INACTIVE;^VUID;2^Q
"^DD",920.3,920.3,99.98,1,0)
^.1
"^DD",920.3,920.3,99.98,1,1,0)
920.3^AVUID
"^DD",920.3,920.3,99.98,1,1,1)
S ^PXV(920.3,"AVUID",$E(X,1,30),DA)=""
"^DD",920.3,920.3,99.98,1,1,2)
K ^PXV(920.3,"AVUID",$E(X,1,30),DA)
"^DD",920.3,920.3,99.98,1,1,3)
XXX--CAN'T BE ALTERED BY A PROGRAMMER
"^DD",920.3,920.3,99.98,1,1,"%D",0)
^^1^1^3140708^
"^DD",920.3,920.3,99.98,1,1,"%D",1,0)
This cross-reference is by VUID.
"^DD",920.3,920.3,99.98,1,1,"DT")
3140708
"^DD",920.3,920.3,99.98,3)
Answer YES if this is the Master Entry for this VUID.
"^DD",920.3,920.3,99.98,21,0)
2
"^DD",920.3,920.3,99.98,21,1,0)
This field identifies the Master entry for a VUID associated with a
"^DD",920.3,920.3,99.98,21,2,0)
Term/Concept.
"^DD",920.3,920.3,99.98,"DT")
3140708
"^DD",920.3,920.3,99.99,0)
VUID^RF^^VUID;1^K:$L(X)>20!($L(X)<1)!'(X?1.20N) X
"^DD",920.3,920.3,99.99,3)
Answer must be 1-20 characters in length.
"^DD",920.3,920.3,99.99,21,0)
^^2^2^3140707^
"^DD",920.3,920.3,99.99,21,1,0)
VHA Unique ID (VUID). A unique meaningless integer assigned to reference
"^DD",920.3,920.3,99.99,21,2,0)
terms VHA wide.
"^DD",920.3,920.3,99.99,"DT")
3140708
"^DD",920.3,920.3,99.991,0)
EFFECTIVE DATE/TIME^920.399D^^TERMSTATUS;0
"^DD",920.3,920.3,99.991,21,0)
^^2^2^3140828^
"^DD",920.3,920.3,99.991,21,1,0)
Describes the pair Status and Effective Date/Time for each
"^DD",920.3,920.3,99.991,21,2,0)
reference term.
"^DD",920.3,920.399,0)
EFFECTIVE DATE/TIME SUB-FIELD^^.02^2
"^DD",920.3,920.399,0,"DT")
3140708
"^DD",920.3,920.399,0,"IX","B",920.399,.01)

"^DD",920.3,920.399,0,"NM","EFFECTIVE DATE/TIME")

"^DD",920.3,920.399,0,"UP")
920.3
"^DD",920.3,920.399,.01,0)
EFFECTIVE DATE/TIME^RD^^0;1^S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
"^DD",920.3,920.399,.01,1,0)
^.1
"^DD",920.3,920.399,.01,1,1,0)
920.399^B
"^DD",920.3,920.399,.01,1,1,1)
S ^PXV(920.3,DA(1),"TERMSTATUS","B",$E(X,1,30),DA)=""
"^DD",920.3,920.399,.01,1,1,2)
K ^PXV(920.3,DA(1),"TERMSTATUS","B",$E(X,1,30),DA)
"^DD",920.3,920.399,.01,3)
Enter the date and time when the status of this term was established.
"^DD",920.3,920.399,.01,21,0)
^.001^2^2^3140829^^
"^DD",920.3,920.399,.01,21,1,0)
This is the date/time when the Status of the reference term was
"^DD",920.3,920.399,.01,21,2,0)
established.
"^DD",920.3,920.399,.01,"DT")
3140708
"^DD",920.3,920.399,.02,0)
STATUS^RS^1:ACTIVE;0:INACTIVE;^0;2^Q
"^DD",920.3,920.399,.02,3)
Enter the Status of this term.
"^DD",920.3,920.399,.02,21,0)
^^4^4^3140708^
"^DD",920.3,920.399,.02,21,1,0)
The Status of a reference term is either 'ACTIVE' or 'INACTIVE'.  If
"^DD",920.3,920.399,.02,21,2,0)
'ACTIVE', then the term will be accessible by end users to document a
"^DD",920.3,920.399,.02,21,3,0)
particular patient event.  If 'INACTIVE', then the term will only be
"^DD",920.3,920.399,.02,21,4,0)
accessible by the application to display legacy data.
"^DD",920.3,920.399,.02,"DT")
3140708
"^DD",9000010.11,9000010.11,0)
FIELD^^1304^26
"^DD",9000010.11,9000010.11,0,"DDA")
N
"^DD",9000010.11,9000010.11,0,"DT")
3140829
"^DD",9000010.11,9000010.11,0,"ID",.02)
W "   ",$S($D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""),@("$E("_DIC_"Y,0),0)")
"^DD",9000010.11,9000010.11,0,"ID",.03)
W "   " S AIHSY=Y,Y=$S($D(^AUPNVSIT(+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:"") X:Y ^DD("DD") W Y S Y=AIHSY K AIHSY W @("$E("_DIC_"Y,0),0)")
"^DD",9000010.11,9000010.11,0,"IX","AA",9000010.11,.03)

"^DD",9000010.11,9000010.11,0,"IX","AATOO",9000010.11,.01)

"^DD",9000010.11,9000010.11,0,"IX","AATOO2",9000010.11,.02)

"^DD",9000010.11,9000010.11,0,"IX","AD",9000010.11,.03)

"^DD",9000010.11,9000010.11,0,"IX","AV10",9000010.11,.03)

"^DD",9000010.11,9000010.11,0,"IX","B",9000010.11,.01)

"^DD",9000010.11,9000010.11,0,"IX","C",9000010.11,.02)

"^DD",9000010.11,9000010.11,0,"IX","LN",9000010.11,1207)

"^DD",9000010.11,9000010.11,0,"NM","V IMMUNIZATION")

"^DD",9000010.11,9000010.11,0,"PT",9000010.11,1208)

"^DD",9000010.11,9000010.11,.01,0)
IMMUNIZATION^R*P9999999.14'a^AUTTIMM(^0;1^S DIC("S")="I $P(^(0),U,7)'=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
"^DD",9000010.11,9000010.11,.01,1,0)
^.1
"^DD",9000010.11,9000010.11,.01,1,1,0)
9000010.11^B
"^DD",9000010.11,9000010.11,.01,1,1,1)
S ^AUPNVIMM("B",$E(X,1,30),DA)=""
"^DD",9000010.11,9000010.11,.01,1,1,2)
K ^AUPNVIMM("B",$E(X,1,30),DA)
"^DD",9000010.11,9000010.11,.01,1,2,0)
^^TRIGGER^9000010.11^1206
"^DD",9000010.11,9000010.11,.01,1,2,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVIMM(D0,12)):^(12),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) S DIH=$G(^AUPNVIMM(DIV(0),12)),DIV=X S $P(^(12),U,6)=DIV,DIH=9000010.11,DIG=1206 D ^DICR
"^DD",9000010.11,9000010.11,.01,1,2,2)
Q
"^DD",9000010.11,9000010.11,.01,1,2,"%D",0)
^^3^3^3140422^
"^DD",9000010.11,9000010.11,.01,1,2,"%D",1,0)
The IMMUNIZATION DOCUMENTER field (#1206) will be triggered whenever the
"^DD",9000010.11,9000010.11,.01,1,2,"%D",2,0)
IMMUNIZATION field (#.01) is entered or updated.  The triggered value 
"^DD",9000010.11,9000010.11,.01,1,2,"%D",3,0)
will be the DUZ of the user.
"^DD",9000010.11,9000010.11,.01,1,2,"CREATE VALUE")
S X=$G(DUZ)
"^DD",9000010.11,9000010.11,.01,1,2,"DELETE VALUE")
NO EFFECT
"^DD",9000010.11,9000010.11,.01,1,2,"DT")
3140422
"^DD",9000010.11,9000010.11,.01,1,2,"FIELD")
IMMUNIZATION DOCUMENTER
"^DD",9000010.11,9000010.11,.01,1,3,0)
9000010.11^AATOO^MUMPS
"^DD",9000010.11,9000010.11,.01,1,3,1)
I $P(^AUPNVIMM(DA,0),U,2)]"",$P(^(0),U,3)]"" S ^AUPNVIMM("AA",$P(^AUPNVIMM(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVIMM(DA,0),U,3),0),".",1)),DA)=""
"^DD",9000010.11,9000010.11,.01,1,3,2)
I $P(^AUPNVIMM(DA,0),U,2)]"",$P(^(0),U,3)]"" K ^AUPNVIMM("AA",$P(^AUPNVIMM(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVIMM(DA,0),U,3),0),".",1)),DA)
"^DD",9000010.11,9000010.11,.01,1,3,"%D",0)
^^5^5^2950901^^
"^DD",9000010.11,9000010.11,.01,1,3,"%D",1,0)
This cross reference is used for searches in sequence by patient,
"^DD",9000010.11,9000010.11,.01,1,3,"%D",2,0)
immunization internal entry, inverted visit date, and internal
"^DD",9000010.11,9000010.11,.01,1,3,"%D",3,0)
entry number.
"^DD",9000010.11,9000010.11,.01,1,3,"%D",4,0)
 
"^DD",9000010.11,9000010.11,.01,1,3,"%D",5,0)
   "AA",PATIENT,IMMUNIZATION,VISIT,DA
"^DD",9000010.11,9000010.11,.01,3)
Enter the name of the immunization given to the patient.
"^DD",9000010.11,9000010.11,.01,12)
Allow only active Immunization types to be selected.
"^DD",9000010.11,9000010.11,.01,12.1)
S DIC("S")="I $P(^(0),U,7)'=1"
"^DD",9000010.11,9000010.11,.01,21,0)
^^2^2^2950901^
"^DD",9000010.11,9000010.11,.01,21,1,0)
This is the type of immunization that was given to the patient at the
"^DD",9000010.11,9000010.11,.01,21,2,0)
encounter.
"^DD",9000010.11,9000010.11,.01,23,0)
^^2^2^2950901^
"^DD",9000010.11,9000010.11,.01,23,1,0)
Entries in the Immunization File (#9999999.14) may be made inactive.
"^DD",9000010.11,9000010.11,.01,23,2,0)
Inactive entries cannot be selected.
"^DD",9000010.11,9000010.11,.01,"AUDIT")
e
"^DD",9000010.11,9000010.11,.01,"DT")
3140625
"^DD",9000010.11,9000010.11,.02,0)
PATIENT NAME^RP9000001'Ia^AUPNPAT(^0;2^Q
"^DD",9000010.11,9000010.11,.02,1,0)
^.1
"^DD",9000010.11,9000010.11,.02,1,2,0)
9000010.11^AATOO2^MUMPS
"^DD",9000010.11,9000010.11,.02,1,2,1)
I $P(^AUPNVIMM(DA,0),U,3)]"" S ^AUPNVIMM("AA",X,+^AUPNVIMM(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVIMM(DA,0),U,3),0),".",1)),DA)=""
"^DD",9000010.11,9000010.11,.02,1,2,2)
I $P(^AUPNVIMM(DA,0),U,3)]"" K ^AUPNVIMM("AA",X,+^AUPNVIMM(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVIMM(DA,0),U,3),0),".",1)),DA)
"^DD",9000010.11,9000010.11,.02,1,2,"%D",0)
^^2^2^2940127^
"^DD",9000010.11,9000010.11,.02,1,2,"%D",1,0)
This is a Health Summary cross-reference.
"^DD",9000010.11,9000010.11,.02,1,2,"%D",2,0)
"AA",PATIENT,IMMUNIZATION,VISIT,DA
"^DD",9000010.11,9000010.11,.02,1,3,0)
9000010.11^C
"^DD",9000010.11,9000010.11,.02,1,3,1)
S ^AUPNVIMM("C",$E(X,1,30),DA)=""
"^DD",9000010.11,9000010.11,.02,1,3,2)
K ^AUPNVIMM("C",$E(X,1,30),DA)
"^DD",9000010.11,9000010.11,.02,1,3,"%D",0)
^^1^1^2950901^
"^DD",9000010.11,9000010.11,.02,1,3,"%D",1,0)
This cross reference provides a look-up of immunizations by patient name.
"^DD",9000010.11,9000010.11,.02,1,3,"DT")
2950901
"^DD",9000010.11,9000010.11,.02,3)
Enter the patient who was given the immunization.
"^DD",9000010.11,9000010.11,.02,21,0)
^.001^1^1^3140701^^^
"^DD",9000010.11,9000010.11,.02,21,1,0)
This is the patient who was given the immunization.
"^DD",9000010.11,9000010.11,.02,23,0)
^^3^3^3140701^
"^DD",9000010.11,9000010.11,.02,23,1,0)
This is a pointer the Patient/IHS file (#9000001), which is dinumed to 
"^DD",9000010.11,9000010.11,.02,23,2,0)
the PATIENT file (#2).  This field is always stuffed by the application. 
"^DD",9000010.11,9000010.11,.02,23,3,0)
No editing is allowed.
"^DD",9000010.11,9000010.11,.02,"AUDIT")
e
"^DD",9000010.11,9000010.11,.02,"DT")
3140701
"^DD",9000010.11,9000010.11,.03,0)
VISIT^R*P9000010'Ia^AUPNVSIT(^0;3^S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVIMM(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
"^DD",9000010.11,9000010.11,.03,1,0)
^.1
"^DD",9000010.11,9000010.11,.03,1,1,0)
9000010.11^AD
"^DD",9000010.11,9000010.11,.03,1,1,1)
S ^AUPNVIMM("AD",$E(X,1,30),DA)=""
"^DD",9000010.11,9000010.11,.03,1,1,2)
K ^AUPNVIMM("AD",$E(X,1,30),DA)
"^DD",9000010.11,9000010.11,.03,1,1,"%D",0)
^^4^4^2950901^
"^DD",9000010.11,9000010.11,.03,1,1,"%D",1,0)
This cross reference is used for searches by the visit pointer and
"^DD",9000010.11,9000010.11,.03,1,1,"%D",2,0)
internal entry number.
"^DD",9000010.11,9000010.11,.03,1,1,"%D",3,0)
 
"^DD",9000010.11,9000010.11,.03,1,1,"%D",4,0)
  "AD",VISIT pointer, DA
"^DD",9000010.11,9000010.11,.03,1,2,0)
9000010.11^AA^MUMPS
"^DD",9000010.11,9000010.11,.03,1,2,1)
Q:$P(^AUPNVIMM(DA,0),U,2)=""  S ^AUPNVIMM("AA",$P(^AUPNVIMM(DA,0),U,2),+^AUPNVIMM(DA,0),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)=""
"^DD",9000010.11,9000010.11,.03,1,2,2)
Q:$P(^AUPNVIMM(DA,0),U,2)=""  K ^AUPNVIMM("AA",$P(^AUPNVIMM(DA,0),U,2),+^AUPNVIMM(DA,0),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)
"^DD",9000010.11,9000010.11,.03,1,2,"%D",0)
^.101^4^4^3140626^^
"^DD",9000010.11,9000010.11,.03,1,2,"%D",1,0)
This cross-reference is used for searches in sequence by patient,
"^DD",9000010.11,9000010.11,.03,1,2,"%D",2,0)
Immunization pointer, inverted visit date, and internal entry number.
"^DD",9000010.11,9000010.11,.03,1,2,"%D",3,0)
 
"^DD",9000010.11,9000010.11,.03,1,2,"%D",4,0)
    "AA",PATIENT,IMMUNIZATION,VISIT,DA
"^DD",9000010.11,9000010.11,.03,1,3,0)
9000010.11^AV10^MUMPS
"^DD",9000010.11,9000010.11,.03,1,3,1)
D ADD^AUPNVSIT
"^DD",9000010.11,9000010.11,.03,1,3,2)
D SUB^AUPNVSIT
"^DD",9000010.11,9000010.11,.03,1,3,"%D",0)
^^2^2^2940127^^
"^DD",9000010.11,9000010.11,.03,1,3,"%D",1,0)
This cross-reference adds and subtracts from the dependent entry count in
"^DD",9000010.11,9000010.11,.03,1,3,"%D",2,0)
the VISIT file.
"^DD",9000010.11,9000010.11,.03,3)
Enter the visit date/time for the encounter where the immunization was given.
"^DD",9000010.11,9000010.11,.03,12)
VISIT MUST BE FOR CURRENT PATIENT
"^DD",9000010.11,9000010.11,.03,12.1)
S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVIMM(DA,0),U,2)"
"^DD",9000010.11,9000010.11,.03,21,0)
^.001^2^2^3140422^^
"^DD",9000010.11,9000010.11,.03,21,1,0)
This is the encounter defined in the Visit file that represents when and
"^DD",9000010.11,9000010.11,.03,21,2,0)
where the immunization was given.
"^DD",9000010.11,9000010.11,.03,23,0)
^.001^2^2^3140422^^
"^DD",9000010.11,9000010.11,.03,23,1,0)
This is a pointer to the Visit File (#9000010).  This field is stuffed by
"^DD",9000010.11,9000010.11,.03,23,2,0)
the applications. No editing is allowed.
"^DD",9000010.11,9000010.11,.03,"AUDIT")
e
"^DD",9000010.11,9000010.11,.03,"DT")
3140625
"^DD",9000010.11,9000010.11,.04,0)
SERIES^*Sa^P:PARTIALLY COMPLETE;C:COMPLETE;B:BOOSTER;1:SERIES 1;2:SERIES 2;3:SERIES 3;4:SERIES 4;5:SERIES 5;6:SERIES 6;7:SERIES 7;8:SERIES 8;^0;4^Q
"^DD",9000010.11,9000010.11,.04,.1)
Series
"^DD",9000010.11,9000010.11,.04,1,0)
^.1^^0
"^DD",9000010.11,9000010.11,.04,3)
Enter the series number, booster, partial or complete.
"^DD",9000010.11,9000010.11,.04,12)
Screen prevents selection of inappropriate series of immunization type.
"^DD",9000010.11,9000010.11,.04,12.1)
S DIC("S")="I Y'>$S($G(DA):$P($G(^AUTTIMM($P(^AUPNVIMM(DA,0),""^""),0)),""^"",5),1:8)"
"^DD",9000010.11,9000010.11,.04,21,0)
^.001^2^2^3140509^^
"^DD",9000010.11,9000010.11,.04,21,1,0)
This field allows the provider to specify which series of immunization
"^DD",9000010.11,9000010.11,.04,21,2,0)
type was given to the patient.
"^DD",9000010.11,9000010.11,.04,"AUDIT")
e
"^DD",9000010.11,9000010.11,.04,"DT")
3140709
"^DD",9000010.11,9000010.11,.05,0)
LOT^*P9999999.41'a^AUTTIML(^0;5^S DIC("S")="I $P(^(0),U,3)=0,$D(^AUTTIML(""C"",$P(^AUPNVIMM(DA,0),U,1),Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
"^DD",9000010.11,9000010.11,.05,3)
Select the lot of the immunization being administered.
"^DD",9000010.11,9000010.11,.05,12)
LOT MUST BE AVAILABLE AND MUST BE A VALID LOT FOR THE IMMUNIZATION BEING ENTERED.
"^DD",9000010.11,9000010.11,.05,12.1)
S DIC("S")="I $P(^(0),U,3)=0,$D(^AUTTIML(""C"",$P(^AUPNVIMM(DA,0),U,1),Y))"
"^DD",9000010.11,9000010.11,.05,21,0)
^^2^2^3140701^
"^DD",9000010.11,9000010.11,.05,21,1,0)
This Indian Health Service field indicates the lot number associated 
"^DD",9000010.11,9000010.11,.05,21,2,0)
with this immunization.
"^DD",9000010.11,9000010.11,.05,23,0)
^.001^5^5^3140625^^^
"^DD",9000010.11,9000010.11,.05,23,1,0)
This field is not used by the Department of Veterans Affairs.   It is
"^DD",9000010.11,9000010.11,.05,23,2,0)
included for backward compatibility with the Indian Health Service version
"^DD",9000010.11,9000010.11,.05,23,3,0)
of the file.
"^DD",9000010.11,9000010.11,.05,23,4,0)
 
"^DD",9000010.11,9000010.11,.05,23,5,0)
APCDALVR Variable = APCDALVR("APCDTLOT")
"^DD",9000010.11,9000010.11,.05,"AUDIT")
e
"^DD",9000010.11,9000010.11,.05,"DT")
3140829
"^DD",9000010.11,9000010.11,.06,0)
REACTION^Sa^1:FEVER;2:IRRITABILITY;3:LOCAL REACTION OR SWELLING;4:VOMITING;5:RASH OR ITCHING;6:LETHARGY;7:CONVULSIONS;8:ARTHRITIS OR ARTHRALGIAS;9:ANAPHYLAXIS OR COLLAPSE;10:RESPIRATORY DISTRESS;11:OTHER;0:NONE;^0;6^Q
"^DD",9000010.11,9000010.11,.06,3)
Enter the number representing the patients reaction to the immunization.
"^DD",9000010.11,9000010.11,.06,21,0)
^^2^2^2950901^
"^DD",9000010.11,9000010.11,.06,21,1,0)
This is the reaction that may have been observed by the provider as a
"^DD",9000010.11,9000010.11,.06,21,2,0)
result of the immunization given.
"^DD",9000010.11,9000010.11,.06,"AUDIT")
e
"^DD",9000010.11,9000010.11,.06,"DT")
3140625
"^DD",9000010.11,9000010.11,.07,0)
CONTRAINDICATED^Sa^1:YES (DO NOT REPEAT THIS VACCINE).;0:NO (OK TO USE IN THE FUTURE);^0;7^Q
"^DD",9000010.11,9000010.11,.07,3)
Enter 1 if this immunization should not be given to the patient in the future.
"^DD",9000010.11,9000010.11,.07,21,0)
^^3^3^2950901^
"^DD",9000010.11,9000010.11,.07,21,1,0)
This field allows the immunization to be recorded as contraindicated.
"^DD",9000010.11,9000010.11,.07,21,2,0)
Reminders will include a check to see if the previous immunization was 
"^DD",9000010.11,9000010.11,.07,21,3,0)
contraindicated before creating reminders.
"^DD",9000010.11,9000010.11,.07,"AUDIT")
e
"^DD",9000010.11,9000010.11,.07,"DT")
3140625
"^DD",9000010.11,9000010.11,.08,0)
DOSE OVERRIDE^Sa^0:@;1:INVALID--BAD STORAGE;2:INVALID--DEFECTIVE;3:INVALID--EXPIRED;4:INVALID--ADMIN ERROR;9:FORCED VALID;^0;8^Q
"^DD",9000010.11,9000010.11,.08,3)
Select the reason for this dose override.
"^DD",9000010.11,9000010.11,.08,21,0)
^^2^2^3140701^
"^DD",9000010.11,9000010.11,.08,21,1,0)
This Indian Health Service field indicates the dose override status of 
"^DD",9000010.11,9000010.11,.08,21,2,0)
this immunization.
"^DD",9000010.11,9000010.11,.08,23,0)
^.001^3^3^3140625^^
"^DD",9000010.11,9000010.11,.08,23,1,0)
This field is not used by the Department of Veterans Affairs.   It is
"^DD",9000010.11,9000010.11,.08,23,2,0)
included for backward compatibility with the Indian Health Service version
"^DD",9000010.11,9000010.11,.08,23,3,0)
of the file.
"^DD",9000010.11,9000010.11,.08,"AUDIT")
e
"^DD",9000010.11,9000010.11,.08,"DT")
3140701
"^DD",9000010.11,9000010.11,.09,0)
INJECTION SITE^Sa^LTI:Left Thigh IM;LTS:Left Thigh SQ;RTI:Right Thigh IM;RTS:Right Thigh SQ;BTI:Both Thighs IM;LDI:Left Delt IM;LAS:Left Arm SQ;RDI:Right Delt IM;RAS:Right Arm SQ;O:Oral;IN:Nasal;LID:Left Arm Intradermal;RID:Right Arm Intradermal;^0;9^Q
"^DD",9000010.11,9000010.11,.09,3)
Enter the body site where the injection was given.
"^DD",9000010.11,9000010.11,.09,21,0)
^^2^2^3140701^
"^DD",9000010.11,9000010.11,.09,21,1,0)
This Indian Health Service field identifies the body site where the 
"^DD",9000010.11,9000010.11,.09,21,2,0)
immunization was administered.
"^DD",9000010.11,9000010.11,.09,23,0)
^.001^3^3^3140626^^^
"^DD",9000010.11,9000010.11,.09,23,1,0)
This field is not used by the Department of Veterans Affairs.   It is
"^DD",9000010.11,9000010.11,.09,23,2,0)
included for backward compatibility with the Indian Health Service version
"^DD",9000010.11,9000010.11,.09,23,3,0)
of the file.
"^DD",9000010.11,9000010.11,.09,"AUDIT")
e
"^DD",9000010.11,9000010.11,.09,"DT")
3140625
"^DD",9000010.11,9000010.11,.11,0)
VOLUME^NJ4,2a^^0;11^K:+X'=X!(X>5)!(X<0)!(X?.E1"."3N.N) X
"^DD",9000010.11,9000010.11,.11,3)
Type a Number between 0 and 5, 2 Decimal Digits
"^DD",9000010.11,9000010.11,.11,21,0)
^^2^2^3140701^
"^DD",9000010.11,9000010.11,.11,21,1,0)
This Indian Health Service field indicates the volume of vaccine 
"^DD",9000010.11,9000010.11,.11,21,2,0)
administered for this immunization.
"^DD",9000010.11,9000010.11,.11,23,0)
^.001^3^3^3140626^^^
"^DD",9000010.11,9000010.11,.11,23,1,0)
This field is not used by the Department of Veterans Affairs.   It is
"^DD",9000010.11,9000010.11,.11,23,2,0)
included for backward compatibility with the Indian Health Service version
"^DD",9000010.11,9000010.11,.11,23,3,0)
of the file.
"^DD",9000010.11,9000010.11,.11,"AUDIT")
e
"^DD",9000010.11,9000010.11,.11,"DT")
3140701
"^DD",9000010.11,9000010.11,.12,0)
DATE OF VAC INFO STATEMENT^Da^^0;12^S %DT="EX" D ^%DT S X=Y K:Y<1 X
"^DD",9000010.11,9000010.11,.12,3)
Enter the date the vaccine information statement for this vaccine was offered to the patient.
"^DD",9000010.11,9000010.11,.12,21,0)
^^3^3^3140701^
"^DD",9000010.11,9000010.11,.12,21,1,0)
This Indian Health Service field indicates the date the vaccine 
"^DD",9000010.11,9000010.11,.12,21,2,0)
information statement associated with this immunization was 
"^DD",9000010.11,9000010.11,.12,21,3,0)
offered/given to the patient.
"^DD",9000010.11,9000010.11,.12,23,0)
^.001^3^3^3140625^^
"^DD",9000010.11,9000010.11,.12,23,1,0)
This field is not used by the Department of Veterans Affairs.   It is
"^DD",9000010.11,9000010.11,.12,23,2,0)
included for backward compatibility with the Indian Health Service version
"^DD",9000010.11,9000010.11,.12,23,3,0)
of the file.
"^DD",9000010.11,9000010.11,.12,"AUDIT")
e
"^DD",9000010.11,9000010.11,.12,"DT")
3140701
"^DD",9000010.11,9000010.11,.13,0)
CREATED BY V CPT ENTRY^NJ9,0a^^0;13^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
"^DD",9000010.11,9000010.11,.13,3)
Enter the IEN of the V CPT entry that created this V Immunization.
"^DD",9000010.11,9000010.11,.13,21,0)
^^2^2^3140701^
"^DD",9000010.11,9000010.11,.13,21,1,0)
This Indian Health Service field identifies the V CPT entry, if any,
"^DD",9000010.11,9000010.11,.13,21,2,0)
that created this V Immunization entry.
"^DD",9000010.11,9000010.11,.13,23,0)
^.001^3^3^3140625^^
"^DD",9000010.11,9000010.11,.13,23,1,0)
This field is not used by the Department of Veterans Affairs.   It is
"^DD",9000010.11,9000010.11,.13,23,2,0)
included for backward compatibility with the Indian Health Service version
"^DD",9000010.11,9000010.11,.13,23,3,0)
of the file.
"^DD",9000010.11,9000010.11,.13,"AUDIT")
e
"^DD",9000010.11,9000010.11,.13,"DT")
3140701
"^DD",9000010.11,9000010.11,.14,0)
VAC ELIGIBILITY^P9002084.83'a^BIELIG(^0;14^Q
"^DD",9000010.11,9000010.11,.14,3)
Enter the patient's VFC Eligibility on this visit.
"^DD",9000010.11,9000010.11,.14,21,0)
^^2^2^3140701^
"^DD",9000010.11,9000010.11,.14,21,1,0)
This Indian Health Service field indicates the Vaccine for Children 
"^DD",9000010.11,9000010.11,.14,21,2,0)
(VFC) Program eligibility for this patient on this visit.
"^DD",9000010.11,9000010.11,.14,23,0)
^.001^6^6^3140829^^^
"^DD",9000010.11,9000010.11,.14,23,1,0)
This field is not used by the Department of Veterans Affairs.   It is
"^DD",9000010.11,9000010.11,.14,23,2,0)
included for backward compatibility with the Indian Health Service version
"^DD",9000010.11,9000010.11,.14,23,3,0)
of the file.
"^DD",9000010.11,9000010.11,.14,23,4,0)
 
"^DD",9000010.11,9000010.11,.14,23,5,0)
This field points to Indian Health Service's BI TABLE ELIGIBILITY CODES file
"^DD",9000010.11,9000010.11,.14,23,6,0)
(#9002084.83) which is not used by the Department of Veterans Affairs.
"^DD",9000010.11,9000010.11,.14,"AUDIT")
e
"^DD",9000010.11,9000010.11,.14,"DT")
3140701
"^DD",9000010.11,9000010.11,.15,0)
IMPORT FROM OUTSIDE REGISTRY^Sa^1:IMPORTED;0:NOT IMPORTED;2:EDITED AFTER IMPORT;^0;15^Q
"^DD",9000010.11,9000010.11,.15,3)
Enter 1 if this immunization was imported from an outside registry.
"^DD",9000010.11,9000010.11,.15,21,0)
^^2^2^3140701^
"^DD",9000010.11,9000010.11,.15,21,1,0)
This Indian Health Service field indicated the import status of this 
"^DD",9000010.11,9000010.11,.15,21,2,0)
immunization from an outside registry.
"^DD",9000010.11,9000010.11,.15,23,0)
^.001^3^3^3140625^^
"^DD",9000010.11,9000010.11,.15,23,1,0)
This field is not used by the Department of Veterans Affairs.   It is
"^DD",9000010.11,9000010.11,.15,23,2,0)
included for backward compatibility with the Indian Health Service version
"^DD",9000010.11,9000010.11,.15,23,3,0)
of the file.
"^DD",9000010.11,9000010.11,.15,"AUDIT")
e
"^DD",9000010.11,9000010.11,.15,"DT")
3140701
"^DD",9000010.11,9000010.11,.16,0)
NDC^P9002084.95'^BINDC(^0;16^Q
"^DD",9000010.11,9000010.11,.16,3)
Select the NDC Code for this immunization. Enter
"^DD",9000010.11,9000010.11,.16,21,0)
^.001^2^2^3140829^^^
"^DD",9000010.11,9000010.11,.16,21,1,0)
This Indian Health Service field identifies the National Drug Code 
"^DD",9000010.11,9000010.11,.16,21,2,0)
(NDC) for this vaccine.
"^DD",9000010.11,9000010.11,.16,23,0)
^.001^6^6^3140829^^^^
"^DD",9000010.11,9000010.11,.16,23,1,0)
This field is not used by the Department of Veterans Affairs.   It is
"^DD",9000010.11,9000010.11,.16,23,2,0)
included for backward compatibility with the Indian Health Service version
"^DD",9000010.11,9000010.11,.16,23,3,0)
of the file.
"^DD",9000010.11,9000010.11,.16,23,4,0)
 
"^DD",9000010.11,9000010.11,.16,23,5,0)
This field points to Indian Health Service's BI TABLE NDC CODES file
"^DD",9000010.11,9000010.11,.16,23,6,0)
(#9002084.95) which is not used by the Department of Veterans Affairs.
"^DD",9000010.11,9000010.11,.16,"AUDIT")
e
"^DD",9000010.11,9000010.11,.16,"DT")
3140701
"^DD",9000010.11,9000010.11,1,0)
ADMINISTRATIVE NOTES^Fa^^1;1^K:$L(X)>160!($L(X)<1) X
"^DD",9000010.11,9000010.11,1,3)
Answer must be 1-160 characters in length
"^DD",9000010.11,9000010.11,1,21,0)
^^2^2^3140701^
"^DD",9000010.11,9000010.11,1,21,1,0)
This Indian Health Service field is a free text field used to document
"^DD",9000010.11,9000010.11,1,21,2,0)
administrative information about this immunization.
"^DD",9000010.11,9000010.11,1,23,0)
^^3^3^3140625^
"^DD",9000010.11,9000010.11,1,23,1,0)
This field is not used by the Department of Veterans Affairs.   It is
"^DD",9000010.11,9000010.11,1,23,2,0)
included for backward compatibility with the Indian Health Service version
"^DD",9000010.11,9000010.11,1,23,3,0)
of the file.
"^DD",9000010.11,9000010.11,1,"AUDIT")
e
"^DD",9000010.11,9000010.11,1,"DT")
3140701
"^DD",9000010.11,9000010.11,2,0)
VIS OFFERED/GIVEN TO PATIENT^9000010.112PA^^2;0
"^DD",9000010.11,9000010.11,2,21,0)
^^3^3^3140828^
"^DD",9000010.11,9000010.11,2,21,1,0)
This is the Vaccine Information Statement (VIS) that was offered to the 
"^DD",9000010.11,9000010.11,2,21,2,0)
patient prior to the administration of the immunization, along with the
"^DD",9000010.11,9000010.11,2,21,3,0)
date/time it was offered.
"^DD",9000010.11,9000010.11,3,0)
OTHER DIAGNOSIS^9000010.113P^^3;0
"^DD",9000010.11,9000010.11,3,21,0)
^.001^2^2^3140626^^
"^DD",9000010.11,9000010.11,3,21,1,0)
This is a list of diagnoses for this immunization event, in addition to
"^DD",9000010.11,9000010.11,3,21,2,0)
the Primary Diagnosis selected for this event.
"^DD",9000010.11,9000010.11,3,23,0)
^.001^3^3^3140626^^
"^DD",9000010.11,9000010.11,3,23,1,0)
This is a multiple of diagnoses for this immunization event.  They are in
"^DD",9000010.11,9000010.11,3,23,2,0)
addition to the PRIMARY DIAGNOSIS.  They are selected from the ICD
"^DD",9000010.11,9000010.11,3,23,3,0)
DIAGNOSIS file (#80).
"^DD",9000010.11,9000010.11,1101,0)
REMARKS^9000010.1111^^11;0
"^DD",9000010.11,9000010.11,1101,21,0)
^^2^2^2950901^
"^DD",9000010.11,9000010.11,1101,21,1,0)
This is additional comments or remarks related to the immunization given
"^DD",9000010.11,9000010.11,1101,21,2,0)
to the patient.
"^DD",9000010.11,9000010.11,1201,0)
EVENT DATE AND TIME^Da^^12;1^S %DT="EST" D ^%DT S X=Y K:Y<1 X
"^DD",9000010.11,9000010.11,1201,1,0)
^.1
"^DD",9000010.11,9000010.11,1201,1,1,0)
^^TRIGGER^9000010.11^1205
"^DD",9000010.11,9000010.11,1201,1,1,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVIMM(D0,12)):^(12),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(9000010.11,1201,1,1,1.4)
"^DD",9000010.11,9000010.11,1201,1,1,1.4)
S DIH=$G(^AUPNVIMM(DIV(0),12)),DIV=X S $P(^(12),U,5)=DIV,DIH=9000010.11,DIG=1205 D ^DICR
"^DD",9000010.11,9000010.11,1201,1,1,2)
Q
"^DD",9000010.11,9000010.11,1201,1,1,"%D",0)
^^3^3^3140422^
"^DD",9000010.11,9000010.11,1201,1,1,"%D",1,0)
The DATE/TIME RECORDED field (#1205) will be triggered whenever the 
"^DD",9000010.11,9000010.11,1201,1,1,"%D",2,0)
EVENT DATE AND TIME field (#1201) is entered or updated.  The triggered
"^DD",9000010.11,9000010.11,1201,1,1,"%D",3,0)
value will be NOW.
"^DD",9000010.11,9000010.11,1201,1,1,"CREATE VALUE")
NOW
"^DD",9000010.11,9000010.11,1201,1,1,"DELETE VALUE")
NO EFFECT
"^DD",9000010.11,9000010.11,1201,1,1,"FIELD")
DATE/TIME RECORDED
"^DD",9000010.11,9000010.11,1201,3)
Enter the date and time the immunization was given.
"^DD",9000010.11,9000010.11,1201,21,0)
^.001^9^9^3140415^^^
"^DD",9000010.11,9000010.11,1201,21,1,0)
This is the date and time the immunization was given.  This date and time
"^DD",9000010.11,9000010.11,1201,21,2,0)
may be different from the visit date and time.  For example, for clinic
"^DD",9000010.11,9000010.11,1201,21,3,0)
appointment visits, the visit date and time is the date and time of the
"^DD",9000010.11,9000010.11,1201,21,4,0)
appointment, not the time the provider performed the clinical event.
"^DD",9000010.11,9000010.11,1201,21,5,0)
 
"^DD",9000010.11,9000010.11,1201,21,6,0)
The date may be an imprecise date.
"^DD",9000010.11,9000010.11,1201,21,7,0)
 
"^DD",9000010.11,9000010.11,1201,21,8,0)
Date and time may be within 30 days before or after the visit date, with the
"^DD",9000010.11,9000010.11,1201,21,9,0)
restriction the date cannot be a future date.
"^DD",9000010.11,9000010.11,1201,23,0)
^^13^13^2960403^^^^
"^DD",9000010.11,9000010.11,1201,23,1,0)
The PCE User Interface, which allows manual entry of data, will be the primary
"^DD",9000010.11,9000010.11,1201,23,2,0)
source of the immunization date and time.  The immunization date prompt defaults
"^DD",9000010.11,9000010.11,1201,23,3,0)
to the visit date and the time is entered to reflect the actual time the
"^DD",9000010.11,9000010.11,1201,23,4,0)
immunization was given.  The immunization date does not have to be the visit
"^DD",9000010.11,9000010.11,1201,23,5,0)
date, but it must be within 30 days before or after the visit, and not be a
"^DD",9000010.11,9000010.11,1201,23,6,0)
future date.
"^DD",9000010.11,9000010.11,1201,23,7,0)
 
"^DD",9000010.11,9000010.11,1201,23,8,0)
If the user wants to enter an historical immunization, the user should use the
"^DD",9000010.11,9000010.11,1201,23,9,0)
Historical Encounter entry action to document the historical immunization. 
"^DD",9000010.11,9000010.11,1201,23,10,0)
Historical entries will not be eligible for credit.
"^DD",9000010.11,9000010.11,1201,23,11,0)
 
"^DD",9000010.11,9000010.11,1201,23,12,0)
PCE data sources for automatic (scanning) data capture will be blank unless the
"^DD",9000010.11,9000010.11,1201,23,13,0)
immunization date and time are passed to PCE for filing.
"^DD",9000010.11,9000010.11,1201,"AUDIT")
e
"^DD",9000010.11,9000010.11,1201,"DT")
3140828
"^DD",9000010.11,9000010.11,1202,0)
ORDERING PROVIDER^P200'a^VA(200,^12;2^Q
"^DD",9000010.11,9000010.11,1202,3)
Enter the provider who ordered this immunization.
"^DD",9000010.11,9000010.11,1202,21,0)
^^2^2^2960513^
"^DD",9000010.11,9000010.11,1202,21,1,0)
The field can be used to document the provider who ordered the
"^DD",9000010.11,9000010.11,1202,21,2,0)
immunization.
"^DD",9000010.11,9000010.11,1202,"AUDIT")
e
"^DD",9000010.11,9000010.11,1202,"DT")
3140625
"^DD",9000010.11,9000010.11,1203,0)
CLINIC^P40.7'a^DIC(40.7,^12;3^Q
"^DD",9000010.11,9000010.11,1203,3)
Select a clinic stop for this Immunization event.
"^DD",9000010.11,9000010.11,1203,21,0)
^^2^2^3140702^
"^DD",9000010.11,9000010.11,1203,21,1,0)
This Indian Health Service field indicates the clinic stop associated 
"^DD",9000010.11,9000010.11,1203,21,2,0)
with this visit.
"^DD",9000010.11,9000010.11,1203,23,0)
^.001^5^5^3140702^^^
"^DD",9000010.11,9000010.11,1203,23,1,0)
This field is not used by the Department of Veterans Affairs.   It is
"^DD",9000010.11,9000010.11,1203,23,2,0)
included for backward compatibility with the Indian Health Service version
"^DD",9000010.11,9000010.11,1203,23,3,0)
of the file.
"^DD",9000010.11,9000010.11,1203,23,4,0)
 
"^DD",9000010.11,9000010.11,1203,23,5,0)
APCDALVR Variable = APCDALVR("APCDTCLN")
"^DD",9000010.11,9000010.11,1203,"AUDIT")
e
"^DD",9000010.11,9000010.11,1203,"DT")
3140702
"^DD",9000010.11,9000010.11,1204,0)
ENCOUNTER PROVIDER^P200'a^VA(200,^12;4^Q
"^DD",9000010.11,9000010.11,1204,3)
Enter the provider who gave this immunization.
"^DD",9000010.11,9000010.11,1204,21,0)
^.001^2^2^3140829^^^^
"^DD",9000010.11,9000010.11,1204,21,1,0)
This is the provider who gave this
"^DD",9000010.11,9000010.11,1204,21,2,0)
immunization.
"^DD",9000010.11,9000010.11,1204,23,0)
^.001^1^1^3140829^^^
"^DD",9000010.11,9000010.11,1204,23,1,0)
This person can be any person in the new person file.
"^DD",9000010.11,9000010.11,1204,"AUDIT")
e
"^DD",9000010.11,9000010.11,1204,"DT")
3140625
"^DD",9000010.11,9000010.11,1205,0)
DATE/TIME RECORDED^Da^^12;5^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
"^DD",9000010.11,9000010.11,1205,.1)
Date/Time Recorded
"^DD",9000010.11,9000010.11,1205,3)
Enter the date and time of documentation of the administration of the immunization.
"^DD",9000010.11,9000010.11,1205,5,1,0)
9000010.11^1201^1
"^DD",9000010.11,9000010.11,1205,9)
^
"^DD",9000010.11,9000010.11,1205,21,0)
^.001^3^3^3140416^^
"^DD",9000010.11,9000010.11,1205,21,1,0)
This timestamp field is the date and time of documentation of
"^DD",9000010.11,9000010.11,1205,21,2,0)
administration of the immunization. This field is set automatically 
"^DD",9000010.11,9000010.11,1205,21,3,0)
when the EVENT DATE AND TIME is entered.
"^DD",9000010.11,9000010.11,1205,"AUDIT")
e
"^DD",9000010.11,9000010.11,1205,"DT")
3140625
"^DD",9000010.11,9000010.11,1206,0)
IMMUNIZATION DOCUMENTER^P200'a^VA(200,^12;6^Q
"^DD",9000010.11,9000010.11,1206,.1)
Immunization Documenter
"^DD",9000010.11,9000010.11,1206,3)
Enter the person who documented this immunization in the system.
"^DD",9000010.11,9000010.11,1206,5,1,0)
9000010.11^.01^2
"^DD",9000010.11,9000010.11,1206,21,0)
^^2^2^3140422^
"^DD",9000010.11,9000010.11,1206,21,1,0)
This is the person/provider who documented this immunization by entering
"^DD",9000010.11,9000010.11,1206,21,2,0)
the data into the system by whatever means.
"^DD",9000010.11,9000010.11,1206,"AUDIT")
e
"^DD",9000010.11,9000010.11,1206,"DT")
3140625
"^DD",9000010.11,9000010.11,1207,0)
LOT NUMBER^RP9999999.41'a^AUTTIML(^12;7^Q
"^DD",9000010.11,9000010.11,1207,.1)
Lot Number
"^DD",9000010.11,9000010.11,1207,1,0)
^.1
"^DD",9000010.11,9000010.11,1207,1,1,0)
9000010.11^LN
"^DD",9000010.11,9000010.11,1207,1,1,1)
S ^AUPNVIMM("LN",$E(X,1,30),DA)=""
"^DD",9000010.11,9000010.11,1207,1,1,2)
K ^AUPNVIMM("LN",$E(X,1,30),DA)
"^DD",9000010.11,9000010.11,1207,1,1,3)
Used for look-up and imperatively to determine if a Lot Number entry is being used.
"^DD",9000010.11,9000010.11,1207,1,1,"%D",0)
^^4^4^3140609^
"^DD",9000010.11,9000010.11,1207,1,1,"%D",1,0)
Used to determine if an entry in the IMMUNIZATION LOT file is being used
"^DD",9000010.11,9000010.11,1207,1,1,"%D",2,0)
by an entry in the V IMMUNIZATION file.  That check is used to determine
"^DD",9000010.11,9000010.11,1207,1,1,"%D",3,0)
what fields (if any) of an IMMUNIZATION LOT entry can be edited.
"^DD",9000010.11,9000010.11,1207,1,1,"%D",4,0)
Can also be used for V IMMUNIZATION look-ups.
"^DD",9000010.11,9000010.11,1207,1,1,"DT")
3140609
"^DD",9000010.11,9000010.11,1207,3)
This field is not designed to be edited manually.
"^DD",9000010.11,9000010.11,1207,21,0)
^.001^3^3^3140521^^^^
"^DD",9000010.11,9000010.11,1207,21,1,0)
This is the lot number of the Immunization entered for this event.  It is
"^DD",9000010.11,9000010.11,1207,21,2,0)
not designed to be edited manually, but automatically set when an
"^DD",9000010.11,9000010.11,1207,21,3,0)
Immunization is selected.
"^DD",9000010.11,9000010.11,1207,23,0)
^.001^6^6^3140521^^^
"^DD",9000010.11,9000010.11,1207,23,1,0)
This field is set automatically whenever the Immunization field (.01)
"^DD",9000010.11,9000010.11,1207,23,2,0)
is set.  This is done via a trigger under the Immunization field.  This
"^DD",9000010.11,9000010.11,1207,23,3,0)
field is also used to derive the Manufacturer and the Expiration Date
"^DD",9000010.11,9000010.11,1207,23,4,0)
of the Immunization selected.  Storing the Lot Number separately ensures
"^DD",9000010.11,9000010.11,1207,23,5,0)
historical integrity in case the Lot Number and/or Manufacturer changes
"^DD",9000010.11,9000010.11,1207,23,6,0)
for an Immunization.
"^DD",9000010.11,9000010.11,1207,"AUDIT")
e
"^DD",9000010.11,9000010.11,1207,"DT")
3140625
"^DD",9000010.11,9000010.11,1208,0)
PARENT^P9000010.11'a^AUPNVIMM(^12;8^Q
"^DD",9000010.11,9000010.11,1208,3)
Select the parent event to this one.
"^DD",9000010.11,9000010.11,1208,21,0)
^^3^3^3140702^
"^DD",9000010.11,9000010.11,1208,21,1,0)
This Indian Health Service field indicates the parent immunization, if 
"^DD",9000010.11,9000010.11,1208,21,2,0)
any, associated with this immunization, such as for immunizations given 
"^DD",9000010.11,9000010.11,1208,21,3,0)
in series.
"^DD",9000010.11,9000010.11,1208,23,0)
^.001^5^5^3140626^^^
"^DD",9000010.11,9000010.11,1208,23,1,0)
This field is not used by the Department of Veterans Affairs.   It is
"^DD",9000010.11,9000010.11,1208,23,2,0)
included for backward compatibility with the Indian Health Service version
"^DD",9000010.11,9000010.11,1208,23,3,0)
of the file.
"^DD",9000010.11,9000010.11,1208,23,4,0)
 
"^DD",9000010.11,9000010.11,1208,23,5,0)
APCDALVR Variable = APCDALVR("APCDTPNT")
"^DD",9000010.11,9000010.11,1208,"AUDIT")
e
"^DD",9000010.11,9000010.11,1208,"DT")
3140702
"^DD",9000010.11,9000010.11,1209,0)
EXTERNAL KEY^Fa^^12;9^K:$L(X)>20!($L(X)<1) X
"^DD",9000010.11,9000010.11,1209,3)
Answer must be 1-20 characters in length.
"^DD",9000010.11,9000010.11,1209,21,0)
^^2^2^3140702^
"^DD",9000010.11,9000010.11,1209,21,1,0)
This Indian Health Service free text field identifies the external key 
"^DD",9000010.11,9000010.11,1209,21,2,0)
associated with this immunization.
"^DD",9000010.11,9000010.11,1209,23,0)
^.001^5^5^3140625^^
"^DD",9000010.11,9000010.11,1209,23,1,0)
This field is not used by the Department of Veterans Affairs.   It is
"^DD",9000010.11,9000010.11,1209,23,2,0)
included for backward compatibility with the Indian Health Service version
"^DD",9000010.11,9000010.11,1209,23,3,0)
of the file.
"^DD",9000010.11,9000010.11,1209,23,4,0)
 
"^DD",9000010.11,9000010.11,1209,23,5,0)
APCDALVR Variable = APCDALVR("APCDTEXK")
"^DD",9000010.11,9000010.11,1209,"AUDIT")
e
"^DD",9000010.11,9000010.11,1209,"DT")
3140702
"^DD",9000010.11,9000010.11,1210,0)
OUTSIDE PROVIDER NAME^Fa^^12;10^K:$L(X)>30!($L(X)<1) X
"^DD",9000010.11,9000010.11,1210,3)
Answer must be 1-30 characters in length.
"^DD",9000010.11,9000010.11,1210,21,0)
^^2^2^3140702^
"^DD",9000010.11,9000010.11,1210,21,1,0)
This Indian Health Service field contains the name of the outside 
"^DD",9000010.11,9000010.11,1210,21,2,0)
provider associated with this immunization.
"^DD",9000010.11,9000010.11,1210,23,0)
^.001^5^5^3140626^^^
"^DD",9000010.11,9000010.11,1210,23,1,0)
This field is not used by the Department of Veterans Affairs.   It is
"^DD",9000010.11,9000010.11,1210,23,2,0)
included for backward compatibility with the Indian Health Service version
"^DD",9000010.11,9000010.11,1210,23,3,0)
of the file.
"^DD",9000010.11,9000010.11,1210,23,4,0)
  
"^DD",9000010.11,9000010.11,1210,23,5,0)
APCDALVR Variable = APCDALVR("APCDTOPR")
"^DD",9000010.11,9000010.11,1210,"AUDIT")
e
"^DD",9000010.11,9000010.11,1210,"DT")
3140702
"^DD",9000010.11,9000010.11,1213,0)
ANCILLARY POV^P80'a^ICD9(^12;13^Q
"^DD",9000010.11,9000010.11,1213,3)
Select an ancillary diagnosis for this event.
"^DD",9000010.11,9000010.11,1213,21,0)
^^2^2^3140702^
"^DD",9000010.11,9000010.11,1213,21,1,0)
This Indian Health Service field indicated the ancillary diagnosis 
"^DD",9000010.11,9000010.11,1213,21,2,0)
related to this immunization.
"^DD",9000010.11,9000010.11,1213,23,0)
^^3^3^3140625^
"^DD",9000010.11,9000010.11,1213,23,1,0)
This field is not used by the Department of Veterans Affairs.   It is
"^DD",9000010.11,9000010.11,1213,23,2,0)
included for backward compatibility with the Indian Health Service version
"^DD",9000010.11,9000010.11,1213,23,3,0)
of the file.
"^DD",9000010.11,9000010.11,1213,"AUDIT")
e
"^DD",9000010.11,9000010.11,1213,"DT")
3140702
"^DD",9000010.11,9000010.11,1214,0)
USER LAST UPDATE^P200'a^VA(200,^12;14^Q
"^DD",9000010.11,9000010.11,1214,3)
Enter the user who last updated this immunization event.
"^DD",9000010.11,9000010.11,1214,21,0)
^.001^2^2^3140819^^
"^DD",9000010.11,9000010.11,1214,21,1,0)
This Indian Health Service field indicates the user who last updated 
"^DD",9000010.11,9000010.11,1214,21,2,0)
information for this immunization.
"^DD",9000010.11,9000010.11,1214,23,0)
^.001^3^3^3140819^^
"^DD",9000010.11,9000010.11,1214,23,1,0)
This field is not used by the Department of Veterans Affairs.   It is
"^DD",9000010.11,9000010.11,1214,23,2,0)
included for backward compatibility with the Indian Health Service version
"^DD",9000010.11,9000010.11,1214,23,3,0)
of the file.
"^DD",9000010.11,9000010.11,1214,"AUDIT")
e
"^DD",9000010.11,9000010.11,1214,"DT")
3140702
"^DD",9000010.11,9000010.11,1215,0)
ORDERING LOCATION^P44'a^SC(^12;15^Q
"^DD",9000010.11,9000010.11,1215,3)
Select the location within this medical center where this Immunization was ordered.
"^DD",9000010.11,9000010.11,1215,21,0)
^^2^2^3140702^
"^DD",9000010.11,9000010.11,1215,21,1,0)
This Indian Health Service field indicated the hospital location ordering 
"^DD",9000010.11,9000010.11,1215,21,2,0)
this immunization.
"^DD",9000010.11,9000010.11,1215,23,0)
^^3^3^3140625^
"^DD",9000010.11,9000010.11,1215,23,1,0)
This field is not used by the Department of Veterans Affairs.   It is
"^DD",9000010.11,9000010.11,1215,23,2,0)
included for backward compatibility with the Indian Health Service version
"^DD",9000010.11,9000010.11,1215,23,3,0)
of the file.
"^DD",9000010.11,9000010.11,1215,"AUDIT")
e
"^DD",9000010.11,9000010.11,1215,"DT")
3140702
"^DD",9000010.11,9000010.11,1216,0)
DATE/TIME ENTERED^Da^^12;16^S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
"^DD",9000010.11,9000010.11,1216,1,0)
^.1
"^DD",9000010.11,9000010.11,1216,1,1,0)
^^TRIGGER^9000010.11^1217
"^DD",9000010.11,9000010.11,1216,1,1,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVIMM(D0,12)):^(12),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV I '$G(APCDVMUX) S X=DUZ X ^DD(9000010.11,1216,1,1,1.4)
"^DD",9000010.11,9000010.11,1216,1,1,1.4)
S DIH=$G(^AUPNVIMM(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.11,DIG=1217 D ^DICR
"^DD",9000010.11,9000010.11,1216,1,1,2)
Q
"^DD",9000010.11,9000010.11,1216,1,1,"CREATE VALUE")
I '$G(APCDVMUX) S X=DUZ
"^DD",9000010.11,9000010.11,1216,1,1,"DELETE VALUE")
NO EFFECT
"^DD",9000010.11,9000010.11,1216,1,1,"DT")
3120423
"^DD",9000010.11,9000010.11,1216,1,1,"FIELD")
#1217
"^DD",9000010.11,9000010.11,1216,1,2,0)
^^TRIGGER^9000010.11^1218
"^DD",9000010.11,9000010.11,1216,1,2,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVIMM(D0,12)):^(12),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X=DIV I '$G(APCDVMUX) S X=$$NOW^XLFDT X ^DD(9000010.11,1216,1,2,1.4)
"^DD",9000010.11,9000010.11,1216,1,2,1.4)
S DIH=$G(^AUPNVIMM(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.11,DIG=1218 D ^DICR
"^DD",9000010.11,9000010.11,1216,1,2,2)
Q
"^DD",9000010.11,9000010.11,1216,1,2,"CREATE VALUE")
I '$G(APCDVMUX) S X=$$NOW^XLFDT
"^DD",9000010.11,9000010.11,1216,1,2,"DELETE VALUE")
NO EFFECT
"^DD",9000010.11,9000010.11,1216,1,2,"DT")
3120423
"^DD",9000010.11,9000010.11,1216,1,2,"FIELD")
#1218
"^DD",9000010.11,9000010.11,1216,3)
Enter the date and time this event was entered here.
"^DD",9000010.11,9000010.11,1216,21,0)
^^2^2^3140702^
"^DD",9000010.11,9000010.11,1216,21,1,0)
This Indian Health Service field indicates the date and time that this 
"^DD",9000010.11,9000010.11,1216,21,2,0)
immunization information was entered into this record.
"^DD",9000010.11,9000010.11,1216,23,0)
^^3^3^3140625^
"^DD",9000010.11,9000010.11,1216,23,1,0)
This field is not used by the Department of Veterans Affairs.   It is
"^DD",9000010.11,9000010.11,1216,23,2,0)
included for backward compatibility with the Indian Health Service version
"^DD",9000010.11,9000010.11,1216,23,3,0)
of the file.
"^DD",9000010.11,9000010.11,1216,"AUDIT")
e
"^DD",9000010.11,9000010.11,1216,"DT")
3140702
"^DD",9000010.11,9000010.11,1217,0)
ENTERED BY^P200'a^VA(200,^12;17^Q
"^DD",9000010.11,9000010.11,1217,3)
Select the user who first entered this event.
"^DD",9000010.11,9000010.11,1217,5,1,0)
9000010.11^1216^1
"^DD",9000010.11,9000010.11,1217,21,0)
^^2^2^3140702^
"^DD",9000010.11,9000010.11,1217,21,1,0)
This Indian Health Service field indicates the user who entered this 
"^DD",9000010.11,9000010.11,1217,21,2,0)
immunization record.
"^DD",9000010.11,9000010.11,1217,23,0)
^^3^3^3140625^
"^DD",9000010.11,9000010.11,1217,23,1,0)
This field is not used by the Department of Veterans Affairs.   It is
"^DD",9000010.11,9000010.11,1217,23,2,0)
included for backward compatibility with the Indian Health Service version
"^DD",9000010.11,9000010.11,1217,23,3,0)
of the file.
"^DD",9000010.11,9000010.11,1217,"AUDIT")
e
"^DD",9000010.11,9000010.11,1217,"DT")
3140702
"^DD",9000010.11,9000010.11,1218,0)
DATE/TIME LAST MODIFIED^Da^^12;18^S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
"^DD",9000010.11,9000010.11,1218,1,0)
^.1
"^DD",9000010.11,9000010.11,1218,1,1,0)
^^TRIGGER^9000010.11^1219
"^DD",9000010.11,9000010.11,1218,1,1,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVIMM(D0,12)):^(12),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X=DIV I '$G(APCDVMUX) S X=DUZ X ^DD(9000010.11,1218,1,1,1.4)
"^DD",9000010.11,9000010.11,1218,1,1,1.4)
S DIH=$G(^AUPNVIMM(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.11,DIG=1219 D ^DICR
"^DD",9000010.11,9000010.11,1218,1,1,2)
Q
"^DD",9000010.11,9000010.11,1218,1,1,"CREATE VALUE")
I '$G(APCDVMUX) S X=DUZ
"^DD",9000010.11,9000010.11,1218,1,1,"DELETE VALUE")
NO EFFECT
"^DD",9000010.11,9000010.11,1218,1,1,"DT")
3120423
"^DD",9000010.11,9000010.11,1218,1,1,"FIELD")
#1219
"^DD",9000010.11,9000010.11,1218,3)
Enter the date and time this event was last modified.
"^DD",9000010.11,9000010.11,1218,5,1,0)
9000010.11^1216^2
"^DD",9000010.11,9000010.11,1218,21,0)
^^2^2^3140702^
"^DD",9000010.11,9000010.11,1218,21,1,0)
This Indian Health Service field indicates the date and time this 
"^DD",9000010.11,9000010.11,1218,21,2,0)
immunization record was last modified.
"^DD",9000010.11,9000010.11,1218,23,0)
^.001^3^3^3140626^^^
"^DD",9000010.11,9000010.11,1218,23,1,0)
This field is not used by the Department of Veterans Affairs.   It is
"^DD",9000010.11,9000010.11,1218,23,2,0)
included for backward compatibility with the Indian Health Service version
"^DD",9000010.11,9000010.11,1218,23,3,0)
of the file.
"^DD",9000010.11,9000010.11,1218,"AUDIT")
e
"^DD",9000010.11,9000010.11,1218,"DT")
3140702
"^DD",9000010.11,9000010.11,1219,0)
LAST MODIFIED BY^P200'a^VA(200,^12;19^Q
"^DD",9000010.11,9000010.11,1219,3)
Select the user who last modified this event.
"^DD",9000010.11,9000010.11,1219,5,1,0)
9000010.11^1218^1
"^DD",9000010.11,9000010.11,1219,21,0)
^^2^2^3140702^
"^DD",9000010.11,9000010.11,1219,21,1,0)
This Indian Health Service field indicates the user who last modified 
"^DD",9000010.11,9000010.11,1219,21,2,0)
this immunization record.
"^DD",9000010.11,9000010.11,1219,23,0)
^.001^3^3^3140625^^
"^DD",9000010.11,9000010.11,1219,23,1,0)
This field is not used by the Department of Veterans Affairs.   It is
"^DD",9000010.11,9000010.11,1219,23,2,0)
included for backward compatibility with the Indian Health Service version
"^DD",9000010.11,9000010.11,1219,23,3,0)
of the file.
"^DD",9000010.11,9000010.11,1219,"AUDIT")
e
"^DD",9000010.11,9000010.11,1219,"DT")
3140702
"^DD",9000010.11,9000010.11,1301,0)
EVENT INFORMATION SOURCE^R*P920.1'a^PXV(920.1,^13;1^S DIC("S")="I '$P(^(0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
"^DD",9000010.11,9000010.11,1301,.1)
Information Source
"^DD",9000010.11,9000010.11,1301,3)
Select the source of this event's information.
"^DD",9000010.11,9000010.11,1301,12)
SOURCE selected must have a STATUS of ACTIVE
"^DD",9000010.11,9000010.11,1301,12.1)
S DIC("S")="I '$P(^(0),U,3)"
"^DD",9000010.11,9000010.11,1301,21,0)
^.001^2^2^3140626^^^^
"^DD",9000010.11,9000010.11,1301,21,1,0)
This is the source of the information obtained for this immunization
"^DD",9000010.11,9000010.11,1301,21,2,0)
event.  If this is a new event for this patient, no entry is required.
"^DD",9000010.11,9000010.11,1301,23,0)
^.001^3^3^3140626^^^
"^DD",9000010.11,9000010.11,1301,23,1,0)
This field is used to note the source of this immunization event.  If the
"^DD",9000010.11,9000010.11,1301,23,2,0)
event is a new record, no entry is necessary.  The options available for 
"^DD",9000010.11,9000010.11,1301,23,3,0)
this field come from the IMMUNIZATION INFO SOURCE file.
"^DD",9000010.11,9000010.11,1301,"AUDIT")
e
"^DD",9000010.11,9000010.11,1301,"DT")
3140626
"^DD",9000010.11,9000010.11,1302,0)
ROUTE OF ADMINISTRATION^P920.2'a^PXV(920.2,^13;2^Q
"^DD",9000010.11,9000010.11,1302,.1)
Route of Administration
"^DD",9000010.11,9000010.11,1302,3)
Select the route of administration for this event.
"^DD",9000010.11,9000010.11,1302,21,0)
^.001^2^2^3140625^^^
"^DD",9000010.11,9000010.11,1302,21,1,0)
This is the method this vaccine was administered.  Select from the list
"^DD",9000010.11,9000010.11,1302,21,2,0)
provided.
"^DD",9000010.11,9000010.11,1302,23,0)
^.001^3^3^3140625^^
"^DD",9000010.11,9000010.11,1302,23,1,0)
This is the method by which the vaccine was administered. This is
"^DD",9000010.11,9000010.11,1302,23,2,0)
selected from a set of values in the IMM ROUTE OF ADMINISTRATION
"^DD",9000010.11,9000010.11,1302,23,3,0)
file (#920.2).
"^DD",9000010.11,9000010.11,1302,"AUDIT")
e
"^DD",9000010.11,9000010.11,1302,"DT")
3140626
"^DD",9000010.11,9000010.11,1303,0)
SITE OF ADMINISTRATION (BODY)^P920.3'a^PXV(920.3,^13;3^Q
"^DD",9000010.11,9000010.11,1303,.1)
Site of Administration (Body)
"^DD",9000010.11,9000010.11,1303,3)
Select the site the vaccine was administered.
"^DD",9000010.11,9000010.11,1303,21,0)
^.001^2^2^3140625^^^
"^DD",9000010.11,9000010.11,1303,21,1,0)
This is the area of the patient's body through which the vaccine was
"^DD",9000010.11,9000010.11,1303,21,2,0)
administered.
"^DD",9000010.11,9000010.11,1303,23,0)
^^3^3^3140701^
"^DD",9000010.11,9000010.11,1303,23,1,0)
This is the area of the patient's body through which the vaccine was 
"^DD",9000010.11,9000010.11,1303,23,2,0)
administered.  It is selected from a list provided by the IMM 
"^DD",9000010.11,9000010.11,1303,23,3,0)
ADMINISTRATION SITE (BODY) file (#920.3).
"^DD",9000010.11,9000010.11,1303,"AUDIT")
e
"^DD",9000010.11,9000010.11,1303,"DT")
3140701
"^DD",9000010.11,9000010.11,1304,0)
PRIMARY DIAGNOSIS^*P80'aX^ICD9(^13;4^S DIC("S")="D ^AUPNSICD" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X),$$DUPDX^PXVUTIL(D0,X) K X
"^DD",9000010.11,9000010.11,1304,.1)
Primary Diagnosis
"^DD",9000010.11,9000010.11,1304,3)
Select the primary (or initial) diagnosis for this immunization.
"^DD",9000010.11,9000010.11,1304,12)
Diagnosis must be appropriate and active.
"^DD",9000010.11,9000010.11,1304,12.1)
S DIC("S")="D ^AUPNSICD"
"^DD",9000010.11,9000010.11,1304,21,0)
^.001^2^2^3140620^^^
"^DD",9000010.11,9000010.11,1304,21,1,0)
This is the primary (or initial) diagnosis for this immunization event. It
"^DD",9000010.11,9000010.11,1304,21,2,0)
is selected from the ISC DIAGNOSIS file.
"^DD",9000010.11,9000010.11,1304,23,0)
^.001^4^4^3140620^^
"^DD",9000010.11,9000010.11,1304,23,1,0)
This is the primary diagnosis for this immunization.  This field is a
"^DD",9000010.11,9000010.11,1304,23,2,0)
pointer to the ICD DIAGNOSIS file (#80).  Selection is screened to make sure
"^DD",9000010.11,9000010.11,1304,23,3,0)
it's appropriate and active.  An immunization event can have more than
"^DD",9000010.11,9000010.11,1304,23,4,0)
one diagnosis - see the OTHER DIAGNOSIS field (#2).
"^DD",9000010.11,9000010.11,1304,"AUDIT")
e
"^DD",9000010.11,9000010.11,1304,"DT")
3140819
"^DD",9000010.11,9000010.11,1312,0)
DOSAGE^F^^13;12^K:$L(X)>30!($L(X)<3) X
"^DD",9000010.11,9000010.11,1312,3)
Answer must be 3-30 characters in length.
"^DD",9000010.11,9000010.11,1312,21,0)
^^3^3^3140805^
"^DD",9000010.11,9000010.11,1312,21,1,0)
This is the amount of this vaccine to be administered for this event.
"^DD",9000010.11,9000010.11,1312,21,2,0)
It is free text, 3 to 30 characters, and should be in the format of an
"^DD",9000010.11,9000010.11,1312,21,3,0)
amount followed by units of measure, such as "30 cc".
"^DD",9000010.11,9000010.11,1312,"DT")
3140805
"^DD",9000010.11,9000010.11,2601,0)
SNOMED CT^9000010.1126A^^26;0
"^DD",9000010.11,9000010.11,2601,21,0)
^.001^2^2^3140829^^^
"^DD",9000010.11,9000010.11,2601,21,1,0)
This Indian Health Service field indicates the SNOMED Clinical Terms (CT)
"^DD",9000010.11,9000010.11,2601,21,2,0)
that describe this immunization and their preferred terms.
"^DD",9000010.11,9000010.11,2601,23,0)
^.001^3^3^3140829^^
"^DD",9000010.11,9000010.11,2601,23,1,0)
This field is not used by the Department of Veterans Affairs.   It is
"^DD",9000010.11,9000010.11,2601,23,2,0)
included for backward compatibility with the Indian Health Service version
"^DD",9000010.11,9000010.11,2601,23,3,0)
of the file.
"^DD",9000010.11,9000010.11,2701,0)
LOINC CODES^9000010.1127A^^27;0
"^DD",9000010.11,9000010.11,2701,21,0)
^.001^2^2^3140829^^
"^DD",9000010.11,9000010.11,2701,21,1,0)
This Indian Health Service field is the LOINC codes that identifies this
"^DD",9000010.11,9000010.11,2701,21,2,0)
immunization, along with their descriptions.
"^DD",9000010.11,9000010.11,2701,23,0)
^.001^3^3^3140829^^
"^DD",9000010.11,9000010.11,2701,23,1,0)
This field is not used by the Department of Veterans Affairs.   It is
"^DD",9000010.11,9000010.11,2701,23,2,0)
included for backward compatibility with the Indian Health Service version
"^DD",9000010.11,9000010.11,2701,23,3,0)
of the file.
"^DD",9000010.11,9000010.11,80101,0)
EDITED FLAG^Sa^1:EDITED;^801;1^Q
"^DD",9000010.11,9000010.11,80101,3)
Answer is automatically entered by PCE filing logic.
"^DD",9000010.11,9000010.11,80101,21,0)
^^2^2^2950901^^
"^DD",9000010.11,9000010.11,80101,21,1,0)
This field is automatically set to 1 if PCE detects that any original
"^DD",9000010.11,9000010.11,80101,21,2,0)
immunization data is being edited.
"^DD",9000010.11,9000010.11,80101,23,0)
^^2^2^2950901^^
"^DD",9000010.11,9000010.11,80101,23,1,0)
PCE filing logic automatically compares the before and after pictures of the
"^DD",9000010.11,9000010.11,80101,23,2,0)
record to determine if the edited flag should be set to "1".
"^DD",9000010.11,9000010.11,80101,"AUDIT")
e
"^DD",9000010.11,9000010.11,80101,"DT")
3140625
"^DD",9000010.11,9000010.11,80102,0)
AUDIT TRAIL^Fa^^801;2^K:$L(X)>85!($L(X)<2) X
"^DD",9000010.11,9000010.11,80102,.1)
Audit Trail
"^DD",9000010.11,9000010.11,80102,3)
Answer is automatically entered by the PCE filing logic.
"^DD",9000010.11,9000010.11,80102,21,0)
^.001^3^3^3140626^^^
"^DD",9000010.11,9000010.11,80102,21,1,0)
This field is populated automatically by the PCE filing logic.  The format
"^DD",9000010.11,9000010.11,80102,21,2,0)
of the field is as follows:  Pointer to PCE data source file_"-"_A for Add
"^DD",9000010.11,9000010.11,80102,21,3,0)
or E for Edit_" "_DUZ of the person who entered the data_";"...
"^DD",9000010.11,9000010.11,80102,23,0)
^.001^14^14^3140626^^^
"^DD",9000010.11,9000010.11,80102,23,1,0)
The PCE filing logic requires a pointer to the PCE data source file.  If this
"^DD",9000010.11,9000010.11,80102,23,2,0)
is not passed, the PCE filing logic will not process the data.
"^DD",9000010.11,9000010.11,80102,23,3,0)
 
"^DD",9000010.11,9000010.11,80102,23,4,0)
If the record is a new record, then an "A" is used to specify the source that
"^DD",9000010.11,9000010.11,80102,23,5,0)
added the data.  If the record existed previously, PCE filing logic compares
"^DD",9000010.11,9000010.11,80102,23,6,0)
the old and new records of information.  An "E" will be automatically used if
"^DD",9000010.11,9000010.11,80102,23,7,0)
the filing logic finds the data has been edited.  If "E" is used, then the
"^DD",9000010.11,9000010.11,80102,23,8,0)
Edited Flag field is automatically set to 1.
"^DD",9000010.11,9000010.11,80102,23,9,0)
 
"^DD",9000010.11,9000010.11,80102,23,10,0)
The DUZ is stored in its internal format to represent the user who performed
"^DD",9000010.11,9000010.11,80102,23,11,0)
the adding or editing of data for this record.
"^DD",9000010.11,9000010.11,80102,23,12,0)
 
"^DD",9000010.11,9000010.11,80102,23,13,0)
Iterations of editing will be concatenated to the previous data source
"^DD",9000010.11,9000010.11,80102,23,14,0)
value, up to 85 characters.
"^DD",9000010.11,9000010.11,80102,"AUDIT")
e
"^DD",9000010.11,9000010.11,80102,"DT")
3140626
"^DD",9000010.11,9000010.11,81101,0)
COMMENTS^Fa^^811;1^K:$L(X)>245!($L(X)<1) X
"^DD",9000010.11,9000010.11,81101,3)
Enter a comment 1-245 characters in length.
"^DD",9000010.11,9000010.11,81101,21,0)
^^2^2^2950901^^
"^DD",9000010.11,9000010.11,81101,21,1,0)
This is a comment related to the patient's immunization.  The provider may enter
"^DD",9000010.11,9000010.11,81101,21,2,0)
this manually via the PCE User Interface.
"^DD",9000010.11,9000010.11,81101,"AUDIT")
e
"^DD",9000010.11,9000010.11,81101,"DT")
3140625
"^DD",9000010.11,9000010.11,81201,0)
VERIFIED^SIa^1:ELECTRONICALLY SIGNED;2:VERIFIED BY PACKAGE;^812;1^Q
"^DD",9000010.11,9000010.11,81201,3)
This is automatically entered by the software and is uneditable.
"^DD",9000010.11,9000010.11,81201,21,0)
^^2^2^3140903^
"^DD",9000010.11,9000010.11,81201,21,1,0)
This is used to note how the event was verified and is automatically
"^DD",9000010.11,9000010.11,81201,21,2,0)
entered by the software.
"^DD",9000010.11,9000010.11,81201,23,0)
^^1^1^3140903^
"^DD",9000010.11,9000010.11,81201,23,1,0)
This is automatically entered by the software and is uneditable for users.
"^DD",9000010.11,9000010.11,81201,"AUDIT")
e
"^DD",9000010.11,9000010.11,81201,"DT")
3140625
"^DD",9000010.11,9000010.11,81202,0)
PACKAGE^P9.4'Ia^DIC(9.4,^812;2^Q
"^DD",9000010.11,9000010.11,81202,3)
This is automatically entered by the software and uneditable by users.
"^DD",9000010.11,9000010.11,81202,21,0)
^^2^2^3140702^
"^DD",9000010.11,9000010.11,81202,21,1,0)
This is the VistA package from which this immunization record 
"^DD",9000010.11,9000010.11,81202,21,2,0)
originated through PCE.
"^DD",9000010.11,9000010.11,81202,"AUDIT")
e
"^DD",9000010.11,9000010.11,81202,"DT")
3140702
"^DD",9000010.11,9000010.11,81203,0)
DATA SOURCE^P839.7'Ia^PX(839.7,^812;3^Q
"^DD",9000010.11,9000010.11,81203,3)
Select the data source for this immunization entry through PCE.
"^DD",9000010.11,9000010.11,81203,21,0)
^.001^2^2^3140903^^
"^DD",9000010.11,9000010.11,81203,21,1,0)
This is the data source for this immunization, automatically entered 
"^DD",9000010.11,9000010.11,81203,21,2,0)
through the PCS software and uneditable by users.
"^DD",9000010.11,9000010.11,81203,"AUDIT")
e
"^DD",9000010.11,9000010.11,81203,"DT")
3140702
"^DD",9000010.11,9000010.1111,0)
REMARKS SUB-FIELD^^.01^1
"^DD",9000010.11,9000010.1111,0,"NM","REMARKS")

"^DD",9000010.11,9000010.1111,0,"UP")
9000010.11
"^DD",9000010.11,9000010.1111,.01,0)
REMARKS^W^^0;1^Q
"^DD",9000010.11,9000010.1111,.01,3)
Enter comments related to the immunization encounter with the patient.
"^DD",9000010.11,9000010.1111,.01,21,0)
^^2^2^2950901^
"^DD",9000010.11,9000010.1111,.01,21,1,0)
This field can be used to enter comments related to the immunization
"^DD",9000010.11,9000010.1111,.01,21,2,0)
encounter with the patient.
"^DD",9000010.11,9000010.1111,.01,"DT")
2861007
"^DD",9000010.11,9000010.112,0)
VIS OFFERED/GIVEN TO PATIENT SUB-FIELD^^.02^2
"^DD",9000010.11,9000010.112,0,"DT")
3140626
"^DD",9000010.11,9000010.112,0,"IX","B",9000010.112,.01)

"^DD",9000010.11,9000010.112,0,"NM","VIS OFFERED/GIVEN TO PATIENT")

"^DD",9000010.11,9000010.112,0,"UP")
9000010.11
"^DD",9000010.11,9000010.112,.01,0)
VIS OFFERED/GIVEN TO PATIENT^M*P920'a^AUTTIVIS(^0;1^S DIC("S")="I $D(^AUTTIMM($P(^AUPNVIMM(DA,0),""^""),4,Y,0))" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
"^DD",9000010.11,9000010.112,.01,.1)
VIS Offered/Given to the Patient
"^DD",9000010.11,9000010.112,.01,1,0)
^.1
"^DD",9000010.11,9000010.112,.01,1,1,0)
9000010.112^B
"^DD",9000010.11,9000010.112,.01,1,1,1)
S ^AUPNVIMM(DA(1),2,"B",$E(X,1,30),DA)=""
"^DD",9000010.11,9000010.112,.01,1,1,2)
K ^AUPNVIMM(DA(1),2,"B",$E(X,1,30),DA)
"^DD",9000010.11,9000010.112,.01,2)
S Y(0)=Y S Y(0)=Y D VIS^PXVUTIL
"^DD",9000010.11,9000010.112,.01,2.1)
S Y(0)=Y D VIS^PXVUTIL
"^DD",9000010.11,9000010.112,.01,3)
Enter the VIS offered /given to the patient.
"^DD",9000010.11,9000010.112,.01,12)
Screen allows selection of Vaccine Information Statements appropriate for this immunization.
"^DD",9000010.11,9000010.112,.01,12.1)
S DIC("S")="I $D(^AUTTIMM($P(^AUPNVIMM(DA,0),""^""),4,Y,0))"
"^DD",9000010.11,9000010.112,.01,21,0)
^.001^2^2^3140828^^^^
"^DD",9000010.11,9000010.112,.01,21,1,0)
This is the name of the Vaccine Information Statement offered to or given 
"^DD",9000010.11,9000010.112,.01,21,2,0)
to the patient before administration of the immunization.
"^DD",9000010.11,9000010.112,.01,"AUDIT")
y
"^DD",9000010.11,9000010.112,.01,"AX")
I $G(DA)>1
"^DD",9000010.11,9000010.112,.01,"DT")
3140626
"^DD",9000010.11,9000010.112,.02,0)
DATE VIS OFFERED/GIVEN^DXa^^0;2^S %DT="EXP" D ^%DT S X=Y K:Y<1 X
"^DD",9000010.11,9000010.112,.02,.1)
Date VIS Offered/Given
"^DD",9000010.11,9000010.112,.02,3)
Enter the date the VIS was offered/given to the patient.
"^DD",9000010.11,9000010.112,.02,21,0)
^.001^2^2^3140507^^
"^DD",9000010.11,9000010.112,.02,21,1,0)
This is the date the Vaccine Information Statement was offered to or 
"^DD",9000010.11,9000010.112,.02,21,2,0)
given to the patient.
"^DD",9000010.11,9000010.112,.02,"AUDIT")
e
"^DD",9000010.11,9000010.112,.02,"DT")
3140626
"^DD",9000010.11,9000010.1126,0)
SNOMED CT SUB-FIELD^^.019^2
"^DD",9000010.11,9000010.1126,0,"DT")
3130222
"^DD",9000010.11,9000010.1126,0,"IX","B",9000010.1126,.01)

"^DD",9000010.11,9000010.1126,0,"NM","SNOMED CT")

"^DD",9000010.11,9000010.1126,0,"UP")
9000010.11
"^DD",9000010.11,9000010.1126,.01,0)
SNOMED CT^Fa^^0;1^K:$L(X)>30!($L(X)<1) X
"^DD",9000010.11,9000010.1126,.01,1,0)
^.1
"^DD",9000010.11,9000010.1126,.01,1,1,0)
9000010.1126^B
"^DD",9000010.11,9000010.1126,.01,1,1,1)
S ^AUPNVIMM(DA(1),26,"B",$E(X,1,30),DA)=""
"^DD",9000010.11,9000010.1126,.01,1,1,2)
K ^AUPNVIMM(DA(1),26,"B",$E(X,1,30),DA)
"^DD",9000010.11,9000010.1126,.01,3)
Answer must be 1-30 characters in length.
"^DD",9000010.11,9000010.1126,.01,21,0)
^^2^2^3140702^^
"^DD",9000010.11,9000010.1126,.01,21,1,0)
This Indian Health Service field indicates a SNOMED Clinical Term (CT)
"^DD",9000010.11,9000010.1126,.01,21,2,0)
that describes this immunization.
"^DD",9000010.11,9000010.1126,.01,23,0)
^^3^3^3140701^^
"^DD",9000010.11,9000010.1126,.01,23,1,0)
This field is not used by the Department of Veterans Affairs.   It is
"^DD",9000010.11,9000010.1126,.01,23,2,0)
included for backward compatibility with the Indian Health Service version
"^DD",9000010.11,9000010.1126,.01,23,3,0)
of the file.
"^DD",9000010.11,9000010.1126,.01,"AUDIT")
y
"^DD",9000010.11,9000010.1126,.01,"DT")
3140702
"^DD",9000010.11,9000010.1126,.019,0)
SNOMED PREFERRED TERM^CJ8^^ ; ^S Y(9000010.1126,.019,1)=$S($D(^AUPNVIMM(D0,26,D1,0)):^(0),1:"") S X=$P(Y(9000010.1126,.019,1),U,1),X=$$CONCPT^AUPNVUTL(X)
"^DD",9000010.11,9000010.1126,.019,9)
^
"^DD",9000010.11,9000010.1126,.019,9.01)
9000010.1126^.01
"^DD",9000010.11,9000010.1126,.019,9.1)
AUPNPT(#.01)
"^DD",9000010.11,9000010.1126,.019,21,0)
^^2^2^3140702^
"^DD",9000010.11,9000010.1126,.019,21,1,0)
This Indian Health Service field is a preferred term describing the
"^DD",9000010.11,9000010.1126,.019,21,2,0)
associated SNOMED clinical term.
"^DD",9000010.11,9000010.1126,.019,23,0)
^^3^3^3140625^
"^DD",9000010.11,9000010.1126,.019,23,1,0)
This field is not used by the Department of Veterans Affairs.   It is
"^DD",9000010.11,9000010.1126,.019,23,2,0)
included for backward compatibility with the Indian Health Service version
"^DD",9000010.11,9000010.1126,.019,23,3,0)
of the file.
"^DD",9000010.11,9000010.1126,.019,"DT")
3140702
"^DD",9000010.11,9000010.1127,0)
LOINC CODES SUB-FIELD^^.019^2
"^DD",9000010.11,9000010.1127,0,"DT")
3130222
"^DD",9000010.11,9000010.1127,0,"IX","B",9000010.1127,.01)

"^DD",9000010.11,9000010.1127,0,"NM","LOINC CODES")

"^DD",9000010.11,9000010.1127,0,"UP")
9000010.11
"^DD",9000010.11,9000010.1127,.01,0)
LOINC CODES^Fa^^0;1^K:$L(X)>30!($L(X)<1) X
"^DD",9000010.11,9000010.1127,.01,1,0)
^.1
"^DD",9000010.11,9000010.1127,.01,1,1,0)
9000010.1127^B
"^DD",9000010.11,9000010.1127,.01,1,1,1)
S ^AUPNVIMM(DA(1),27,"B",$E(X,1,30),DA)=""
"^DD",9000010.11,9000010.1127,.01,1,1,2)
K ^AUPNVIMM(DA(1),27,"B",$E(X,1,30),DA)
"^DD",9000010.11,9000010.1127,.01,3)
Answer must be 1-30 characters in length.
"^DD",9000010.11,9000010.1127,.01,21,0)
^^2^2^3140702^
"^DD",9000010.11,9000010.1127,.01,21,1,0)
This Indian Health Service field is a LOINC code that identifies this
"^DD",9000010.11,9000010.1127,.01,21,2,0)
immunization.
"^DD",9000010.11,9000010.1127,.01,23,0)
^^3^3^3140625^
"^DD",9000010.11,9000010.1127,.01,23,1,0)
This field is not used by the Department of Veterans Affairs.   It is
"^DD",9000010.11,9000010.1127,.01,23,2,0)
included for backward compatibility with the Indian Health Service version
"^DD",9000010.11,9000010.1127,.01,23,3,0)
of the file.
"^DD",9000010.11,9000010.1127,.01,"AUDIT")
y
"^DD",9000010.11,9000010.1127,.01,"DT")
3140702
"^DD",9000010.11,9000010.1127,.019,0)
LOINC TEXT^CJ8^^ ; ^S Y(9000010.1127,.019,1)=$S($D(^AUPNVIMM(D0,27,D1,0)):^(0),1:"") S X=$P(Y(9000010.1127,.019,1),U,1),X=$$LOINCPT^AUPNVUTL(X)
"^DD",9000010.11,9000010.1127,.019,9)
^
"^DD",9000010.11,9000010.1127,.019,9.01)
9000010.1127^.01
"^DD",9000010.11,9000010.1127,.019,9.1)
AUPNLOINCPT(#.01)
"^DD",9000010.11,9000010.1127,.019,21,0)
^^2^2^3140702^
"^DD",9000010.11,9000010.1127,.019,21,1,0)
This Indian Health Service field is LOINC text describing the associated
"^DD",9000010.11,9000010.1127,.019,21,2,0)
LOINC code.
"^DD",9000010.11,9000010.1127,.019,23,0)
^^3^3^3140625^
"^DD",9000010.11,9000010.1127,.019,23,1,0)
This field is not used by the Department of Veterans Affairs.   It is
"^DD",9000010.11,9000010.1127,.019,23,2,0)
included for backward compatibility with the Indian Health Service version
"^DD",9000010.11,9000010.1127,.019,23,3,0)
of the file.
"^DD",9000010.11,9000010.1127,.019,"DT")
3140702
"^DD",9000010.11,9000010.113,0)
OTHER DIAGNOSIS SUB-FIELD^^.01^1
"^DD",9000010.11,9000010.113,0,"DT")
3140701
"^DD",9000010.11,9000010.113,0,"IX","B",9000010.113,.01)

"^DD",9000010.11,9000010.113,0,"NM","OTHER DIAGNOSIS")

"^DD",9000010.11,9000010.113,0,"UP")
9000010.11
"^DD",9000010.11,9000010.113,.01,0)
OTHER DIAGNOSIS^M*P80'aX^ICD9(^0;1^S DIC("S")="D RSETDA^PXVUTIL" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
"^DD",9000010.11,9000010.113,.01,.1)
Other Diagnosis
"^DD",9000010.11,9000010.113,.01,1,0)
^.1
"^DD",9000010.11,9000010.113,.01,1,1,0)
9000010.113^B
"^DD",9000010.11,9000010.113,.01,1,1,1)
S ^AUPNVIMM(DA(1),3,"B",$E(X,1,30),DA)=""
"^DD",9000010.11,9000010.113,.01,1,1,2)
K ^AUPNVIMM(DA(1),3,"B",$E(X,1,30),DA)
"^DD",9000010.11,9000010.113,.01,3)
Select a diagnosis for this immunization event.
"^DD",9000010.11,9000010.113,.01,12)
Selection must be appropriate and active.
"^DD",9000010.11,9000010.113,.01,12.1)
S DIC("S")="D RSETDA^PXVUTIL"
"^DD",9000010.11,9000010.113,.01,21,0)
^.001^3^3^3140620^^
"^DD",9000010.11,9000010.113,.01,21,1,0)
This is a diagnosis for this immunization event, in addition to the
"^DD",9000010.11,9000010.113,.01,21,2,0)
PRIMARY DIAGNOSIS.  A primary diagnosis should be selected before
"^DD",9000010.11,9000010.113,.01,21,3,0)
selecting one here.
"^DD",9000010.11,9000010.113,.01,23,0)
^^3^3^3140620^
"^DD",9000010.11,9000010.113,.01,23,1,0)
This is a diagnosis for this immunization event.  It is in addition to the
"^DD",9000010.11,9000010.113,.01,23,2,0)
PRIMARY DIAGNOSIS for this event.  This diagnosis is selected from the
"^DD",9000010.11,9000010.113,.01,23,3,0)
ICD DIAGNOSIS file (#80).
"^DD",9000010.11,9000010.113,.01,"AUDIT")
y
"^DD",9000010.11,9000010.113,.01,"AX")

"^DD",9000010.11,9000010.113,.01,"DT")
3140821
"^DD",9999999.04,9999999.04,0)
FIELD^^1101^12
"^DD",9999999.04,9999999.04,0,"DDA")
N
"^DD",9999999.04,9999999.04,0,"DT")
3140529
"^DD",9999999.04,9999999.04,0,"ID",.02)
W "   ",$P(^(0),U,2)
"^DD",9999999.04,9999999.04,0,"ID",.03)
W "   ",@("$P($P($C(59)_$S($D(^DD(9999999.04,.03,0)):$P(^(0),U,3),1:0)_$E("_DIC_"Y,0),0),$C(59)_$P(^(0),U,3)_"":"",2),$C(59),1)")
"^DD",9999999.04,9999999.04,0,"IX","AREPLACETERM",9999999.04,99.97)

"^DD",9999999.04,9999999.04,0,"IX","AVUID",9999999.04,99.99)

"^DD",9999999.04,9999999.04,0,"IX","B",9999999.04,.01)

"^DD",9999999.04,9999999.04,0,"IX","B",9999999.04,8801)

"^DD",9999999.04,9999999.04,0,"IX","D",9999999.04,.05)

"^DD",9999999.04,9999999.04,0,"IX","M",9999999.04,.02)

"^DD",9999999.04,9999999.04,0,"NM","IMM MANUFACTURER")

"^DD",9999999.04,9999999.04,0,"PT",9999999.04,99.97)

"^DD",9999999.04,9999999.04,0,"PT",9999999.41,.02)

"^DD",9999999.04,9999999.04,.01,0)
NAME^RF^^0;1^K:$L(X)>75!($L(X)<3)!'(X'?1P.E) X
"^DD",9999999.04,9999999.04,.01,.1)
Name
"^DD",9999999.04,9999999.04,.01,1,0)
^.1^^-1
"^DD",9999999.04,9999999.04,.01,1,1,0)
9999999.04^B
"^DD",9999999.04,9999999.04,.01,1,1,1)
S ^AUTTIMAN("B",X,DA)=""
"^DD",9999999.04,9999999.04,.01,1,1,2)
K ^AUTTIMAN("B",X,DA)
"^DD",9999999.04,9999999.04,.01,1,1,3)
Modified to include complete name to better facilitate lookups.
"^DD",9999999.04,9999999.04,.01,1,1,"%D",0)
^.101^4^4^3140529^^
"^DD",9999999.04,9999999.04,.01,1,1,"%D",1,0)
The is the standard, REGULAR B x-ref, modified to include the complete name
"^DD",9999999.04,9999999.04,.01,1,1,"%D",2,0)
of the manufacturer.  This has been done as a user requirement, to better
"^DD",9999999.04,9999999.04,.01,1,1,"%D",3,0)
facilitate lookups for them.  This x-ref should be not deleted, even
"^DD",9999999.04,9999999.04,.01,1,1,"%D",4,0)
if recreating.
"^DD",9999999.04,9999999.04,.01,1,1,"DT")
3140506
"^DD",9999999.04,9999999.04,.01,3)
Answer must be 3-75 characters in length.
"^DD",9999999.04,9999999.04,.01,7.5)
I $G(DIC(0))["L",'$D(XUMF) K X D EN^DDIOL("Entries must be edited via the Master File Server (MFS).","","!?5")
"^DD",9999999.04,9999999.04,.01,9)
^
"^DD",9999999.04,9999999.04,.01,21,0)
^.001^2^2^3140521^^^^
"^DD",9999999.04,9999999.04,.01,21,1,0)
This is the complete name of a manufacturer of vaccines/immunizations.
"^DD",9999999.04,9999999.04,.01,21,2,0)
The name must be at least 3 characters and no more than 75 characters.
"^DD",9999999.04,9999999.04,.01,23,0)
^.001^2^2^3140521^^^^
"^DD",9999999.04,9999999.04,.01,23,1,0)
This is the name of the manufacturer of vaccines and/or immunizations.
"^DD",9999999.04,9999999.04,.01,23,2,0)
It is mainly used by the Immunization Lot Number file.
"^DD",9999999.04,9999999.04,.01,"DEL",1,0)
D:'$D(XUMF) EN^DDIOL("Entries must be inactivated via the Master File Server(MFS).","","!?5") I '$D(XUMF)
"^DD",9999999.04,9999999.04,.01,"DT")
3140529
"^DD",9999999.04,9999999.04,.01,"LAYGO",1,0)
D:'$D(XUMF) EN^DDIOL("Entries must be added via the Master File Server(MFS).","","!?5") I $D(XUMF)
"^DD",9999999.04,9999999.04,.02,0)
MVX CODE^RF^^0;2^K:$L(X)>3!($L(X)<2) X
"^DD",9999999.04,9999999.04,.02,.1)
MVX Code
"^DD",9999999.04,9999999.04,.02,1,0)
^.1
"^DD",9999999.04,9999999.04,.02,1,1,0)
9999999.04^M
"^DD",9999999.04,9999999.04,.02,1,1,1)
S ^AUTTIMAN("M",$E(X,1,30),DA)=""
"^DD",9999999.04,9999999.04,.02,1,1,2)
K ^AUTTIMAN("M",$E(X,1,30),DA)
"^DD",9999999.04,9999999.04,.02,1,1,3)
Used to facilitate lookup.
"^DD",9999999.04,9999999.04,.02,1,1,"%D",0)
^^2^2^3140807^
"^DD",9999999.04,9999999.04,.02,1,1,"%D",1,0)
This cross-reference allows entries in this file to be accessed by the data
"^DD",9999999.04,9999999.04,.02,1,1,"%D",2,0)
is this field, which can be considerably shorter in length.
"^DD",9999999.04,9999999.04,.02,1,1,"DT")
3140807
"^DD",9999999.04,9999999.04,.02,3)
Answer must be 2-3 characters in length.
"^DD",9999999.04,9999999.04,.02,9)
^
"^DD",9999999.04,9999999.04,.02,21,0)
^.001^2^2^3140428^^^
"^DD",9999999.04,9999999.04,.02,21,1,0)
This is the MVX code for this manufacturer.  The code is either 2 or 3
"^DD",9999999.04,9999999.04,.02,21,2,0)
characters in length.
"^DD",9999999.04,9999999.04,.02,23,0)
^.001^1^1^3140428^^^
"^DD",9999999.04,9999999.04,.02,23,1,0)
The MVX code is used in the transferring of immunization data via HL7.
"^DD",9999999.04,9999999.04,.02,"DT")
3140807
"^DD",9999999.04,9999999.04,.03,0)
STATUS^S^1:INACTIVE;0:ACTIVE;^0;3^Q
"^DD",9999999.04,9999999.04,.03,.1)
Status
"^DD",9999999.04,9999999.04,.03,3)
Enter a '1' to INACTIVATE this manufacturer.  If the manufacturer is currently ACTIVE, leave blank or enter a '0'.
"^DD",9999999.04,9999999.04,.03,9)
^
"^DD",9999999.04,9999999.04,.03,21,0)
^.001^3^3^3140513^^^
"^DD",9999999.04,9999999.04,.03,21,1,0)
Use to show if this manufacturer is currently active.  If the field is blank
"^DD",9999999.04,9999999.04,.03,21,2,0)
or contains a '0' the software sees the manufacturer as active. Enter a
"^DD",9999999.04,9999999.04,.03,21,3,0)
'1' if the manufacturer is no longer active.
"^DD",9999999.04,9999999.04,.03,23,0)
^.001^3^3^3140513^^^
"^DD",9999999.04,9999999.04,.03,23,1,0)
A set of codes used to designate a manufacturer as INACTIVE (by entering a
"^DD",9999999.04,9999999.04,.03,23,2,0)
'1') or ACTIVE (by entering a '0' or leaving blank).  This may be
"^DD",9999999.04,9999999.04,.03,23,3,0)
the opposite of what users are used to.
"^DD",9999999.04,9999999.04,.03,"DT")
3140513
"^DD",9999999.04,9999999.04,.04,0)
FULL NAME^F^^0;4^K:$L(X)>110!($L(X)<3) X
"^DD",9999999.04,9999999.04,.04,.1)
Full Name
"^DD",9999999.04,9999999.04,.04,3)
Enter the complete name of this manufacturer, 3-110 characters in length.
"^DD",9999999.04,9999999.04,.04,21,0)
^^4^4^3140521^
"^DD",9999999.04,9999999.04,.04,21,1,0)
This is the complete name of the manufacturer.  It must be at least 3 
"^DD",9999999.04,9999999.04,.04,21,2,0)
characters and no more than 100 characters in length.  This is used 
"^DD",9999999.04,9999999.04,.04,21,3,0)
when the full name of the manufacturer cannot be entered into the NAME
"^DD",9999999.04,9999999.04,.04,21,4,0)
field.
"^DD",9999999.04,9999999.04,.04,23,0)
^^3^3^3140623^
"^DD",9999999.04,9999999.04,.04,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.04,9999999.04,.04,23,2,0)
included for backward compatibility with the Indian Health Service 
"^DD",9999999.04,9999999.04,.04,23,3,0)
version of the file.
"^DD",9999999.04,9999999.04,.04,"DT")
3140623
"^DD",9999999.04,9999999.04,.05,0)
SYNONYM #1^F^^0;5^K:$L(X)>50!($L(X)<3) X
"^DD",9999999.04,9999999.04,.05,.1)
Synonym #1
"^DD",9999999.04,9999999.04,.05,1,0)
^.1
"^DD",9999999.04,9999999.04,.05,1,1,0)
9999999.04^D
"^DD",9999999.04,9999999.04,.05,1,1,1)
S ^AUTTIMAN("D",$E(X,1,30),DA)=""
"^DD",9999999.04,9999999.04,.05,1,1,2)
K ^AUTTIMAN("D",$E(X,1,30),DA)
"^DD",9999999.04,9999999.04,.05,1,1,"%D",0)
^^1^1^3140529^
"^DD",9999999.04,9999999.04,.05,1,1,"%D",1,0)
This cross reference is used for sorting and lookup.
"^DD",9999999.04,9999999.04,.05,1,1,"DT")
3140529
"^DD",9999999.04,9999999.04,.05,3)
Answer must be 3-50 characters in length.
"^DD",9999999.04,9999999.04,.05,21,0)
^.001^1^1^3140729^^^^
"^DD",9999999.04,9999999.04,.05,21,1,0)
This is an alternate (or shortened) name for this manufacturer.
"^DD",9999999.04,9999999.04,.05,23,0)
^.001^3^3^3140729^^
"^DD",9999999.04,9999999.04,.05,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.04,9999999.04,.05,23,2,0)
included for backward compatibility with the Indian Health Service 
"^DD",9999999.04,9999999.04,.05,23,3,0)
version of the file.
"^DD",9999999.04,9999999.04,.05,"DT")
3140623
"^DD",9999999.04,9999999.04,99.97,0)
REPLACED BY VHA STANDARD TERM^P9999999.04'I^AUTTIMAN(^VUID;3^Q
"^DD",9999999.04,9999999.04,99.97,1,0)
^.1
"^DD",9999999.04,9999999.04,99.97,1,1,0)
9999999.04^AREPLACETERM
"^DD",9999999.04,9999999.04,99.97,1,1,1)
S ^AUTTIMAN("AREPLACETERM",$E(X,1,30),DA)=""
"^DD",9999999.04,9999999.04,99.97,1,1,2)
K ^AUTTIMAN("AREPLACETERM",$E(X,1,30),DA)
"^DD",9999999.04,9999999.04,99.97,1,1,"%D",0)
^^2^2^3140521^
"^DD",9999999.04,9999999.04,99.97,1,1,"%D",1,0)
This cross-reference can be used to identify the replacement entries 
"^DD",9999999.04,9999999.04,99.97,1,1,"%D",2,0)
associated with a Term/Concept.
"^DD",9999999.04,9999999.04,99.97,1,1,"DT")
3140521
"^DD",9999999.04,9999999.04,99.97,9)
^
"^DD",9999999.04,9999999.04,99.97,21,0)
^.001^4^4^3140707^^
"^DD",9999999.04,9999999.04,99.97,21,1,0)
This field is populated when one Term/Concept replaces another 
"^DD",9999999.04,9999999.04,99.97,21,2,0)
Term/Concept.  This field is controlled by standardization and should 
"^DD",9999999.04,9999999.04,99.97,21,3,0)
only be changed by standardization processes.  This field contains a 
"^DD",9999999.04,9999999.04,99.97,21,4,0)
pointer to a VHA standard term that replaces this entry.
"^DD",9999999.04,9999999.04,99.97,"DT")
3140527
"^DD",9999999.04,9999999.04,99.98,0)
MASTER ENTRY FOR VUID^RSI^1:YES;0:NO;^VUID;2^Q
"^DD",9999999.04,9999999.04,99.98,9)
^
"^DD",9999999.04,9999999.04,99.98,21,0)
^^2^2^3140429^
"^DD",9999999.04,9999999.04,99.98,21,1,0)
This field identifies the Master entry for a VUID associated with a 
"^DD",9999999.04,9999999.04,99.98,21,2,0)
Term/Concept.
"^DD",9999999.04,9999999.04,99.98,"DT")
3140521
"^DD",9999999.04,9999999.04,99.99,0)
VUID^RFXI^^VUID;1^S X=+X K:$L(X)>20!($L(X)<1)!'(X?1.20N) X
"^DD",9999999.04,9999999.04,99.99,1,0)
^.1
"^DD",9999999.04,9999999.04,99.99,1,1,0)
9999999.04^AVUID
"^DD",9999999.04,9999999.04,99.99,1,1,1)
S ^AUTTIMAN("AVUID",$E(X,1,30),DA)=""
"^DD",9999999.04,9999999.04,99.99,1,1,2)
K ^AUTTIMAN("AVUID",$E(X,1,30),DA)
"^DD",9999999.04,9999999.04,99.99,1,1,3)
XXX--CAN'T BE ALTERED EXCEPT PROGRAMMER
"^DD",9999999.04,9999999.04,99.99,1,1,"%D",0)
^^1^1^3140521^
"^DD",9999999.04,9999999.04,99.99,1,1,"%D",1,0)
This cross-reference is by VUID.
"^DD",9999999.04,9999999.04,99.99,1,1,"DT")
3140521
"^DD",9999999.04,9999999.04,99.99,3)
Answer must be 1-20 characters in length.
"^DD",9999999.04,9999999.04,99.99,9)
^
"^DD",9999999.04,9999999.04,99.99,21,0)
^^2^2^3140521^
"^DD",9999999.04,9999999.04,99.99,21,1,0)
VHA Unique ID (VUID). A unique meaningless integer assigned to reference
"^DD",9999999.04,9999999.04,99.99,21,2,0)
terms VHA wide.
"^DD",9999999.04,9999999.04,99.99,"DT")
3140521
"^DD",9999999.04,9999999.04,99.991,0)
EFFECTIVE DATE/TIME^9999999.0499DA^^TERMSTATUS;0
"^DD",9999999.04,9999999.04,99.991,9)
^
"^DD",9999999.04,9999999.04,99.991,21,0)
.001^.001^1^1^3140807^^^^
"^DD",9999999.04,9999999.04,99.991,21,1,0)
Describes the pair Status and Effective Date/Time for each reference term.
"^DD",9999999.04,9999999.04,201,0)
CDC NOTES^F^^2;1^K:$L(X)>245!($L(X)<1) X
"^DD",9999999.04,9999999.04,201,.1)
CDC Notes
"^DD",9999999.04,9999999.04,201,3)
Answer must be 1-245 characters in length.
"^DD",9999999.04,9999999.04,201,9)
^
"^DD",9999999.04,9999999.04,201,21,0)
^.001^1^1^3140508^^^
"^DD",9999999.04,9999999.04,201,21,1,0)
These are any added information the CDC has for this manufacturer.
"^DD",9999999.04,9999999.04,201,23,0)
^.001^3^3^3140508^^
"^DD",9999999.04,9999999.04,201,23,1,0)
This any information regarding this manufacturer found in the CDC's table 
"^DD",9999999.04,9999999.04,201,23,2,0)
of manufacturers.  It has a length of 245 characters, taking up the entire
"^DD",9999999.04,9999999.04,201,23,3,0)
2 node.
"^DD",9999999.04,9999999.04,201,"DT")
3140428
"^DD",9999999.04,9999999.04,1101,0)
VACCINE^9999999.0411A^^11;0
"^DD",9999999.04,9999999.04,1101,21,0)
^.001^1^1^3140529^^
"^DD",9999999.04,9999999.04,1101,21,1,0)
This is a list of vaccines produced by this manufacturer.
"^DD",9999999.04,9999999.04,8801,0)
MNEMONIC^F^^88;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<1) X
"^DD",9999999.04,9999999.04,8801,.1)
Mnemonic
"^DD",9999999.04,9999999.04,8801,1,0)
^.1
"^DD",9999999.04,9999999.04,8801,1,1,0)
9999999.04^B^MNEMONIC
"^DD",9999999.04,9999999.04,8801,1,1,1)
S ^AUTTIMAN("B",$E(X,1,30),DA)=1
"^DD",9999999.04,9999999.04,8801,1,1,2)
K ^AUTTIMAN("B",$E(X,1,30),DA)
"^DD",9999999.04,9999999.04,8801,3)
Answer must be 1-2 characters in length.
"^DD",9999999.04,9999999.04,8801,21,0)
^.001^2^2^3140729^^^^
"^DD",9999999.04,9999999.04,8801,21,1,0)
Enter a one or two character "identifier" for this manufacturer that can
"^DD",9999999.04,9999999.04,8801,21,2,0)
be used as a 'short-cut' in selecting the company.
"^DD",9999999.04,9999999.04,8801,23,0)
^.001^3^3^3140729^^
"^DD",9999999.04,9999999.04,8801,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.04,9999999.04,8801,23,2,0)
included for backward compatibility with the Indian Health Service 
"^DD",9999999.04,9999999.04,8801,23,3,0)
version of the file.
"^DD",9999999.04,9999999.04,8801,"DT")
3140623
"^DD",9999999.04,9999999.0411,0)
VACCINE SUB-FIELD^^.01^1
"^DD",9999999.04,9999999.0411,0,"DT")
3140529
"^DD",9999999.04,9999999.0411,0,"IX","B",9999999.0411,.01)

"^DD",9999999.04,9999999.0411,0,"NM","VACCINE")

"^DD",9999999.04,9999999.0411,0,"UP")
9999999.04
"^DD",9999999.04,9999999.0411,.01,0)
VACCINE^MF^^0;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X
"^DD",9999999.04,9999999.0411,.01,.1)
Vaccine
"^DD",9999999.04,9999999.0411,.01,1,0)
^.1
"^DD",9999999.04,9999999.0411,.01,1,1,0)
9999999.0411^B
"^DD",9999999.04,9999999.0411,.01,1,1,1)
S ^AUTTIMAN(DA(1),11,"B",$E(X,1,30),DA)=""
"^DD",9999999.04,9999999.0411,.01,1,1,2)
K ^AUTTIMAN(DA(1),11,"B",$E(X,1,30),DA)
"^DD",9999999.04,9999999.0411,.01,3)
Answer must be 2-30 characters in length.
"^DD",9999999.04,9999999.0411,.01,21,0)
^^1^1^3140603^
"^DD",9999999.04,9999999.0411,.01,21,1,0)
Enter the name of a vaccine produced by this manufacturer. 
"^DD",9999999.04,9999999.0411,.01,23,0)
^^3^3^3140623^
"^DD",9999999.04,9999999.0411,.01,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.04,9999999.0411,.01,23,2,0)
included for backward compatibility with the Indian Health Service 
"^DD",9999999.04,9999999.0411,.01,23,3,0)
version of the file.
"^DD",9999999.04,9999999.0411,.01,"DT")
3140623
"^DD",9999999.04,9999999.0499,0)
EFFECTIVE DATE/TIME SUB-FIELD^^.02^2
"^DD",9999999.04,9999999.0499,0,"IX","B",9999999.0499,.01)

"^DD",9999999.04,9999999.0499,0,"NM","EFFECTIVE DATE/TIME")

"^DD",9999999.04,9999999.0499,0,"UP")
9999999.04
"^DD",9999999.04,9999999.0499,.01,0)
EFFECTIVE DATE/TIME^RDIX^^0;1^S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
"^DD",9999999.04,9999999.0499,.01,1,0)
^.1
"^DD",9999999.04,9999999.0499,.01,1,1,0)
9999999.0499^B
"^DD",9999999.04,9999999.0499,.01,1,1,1)
S ^AUTTIMAN(DA(1),"TERMSTATUS","B",$E(X,1,30),DA)=""
"^DD",9999999.04,9999999.0499,.01,1,1,2)
K ^AUTTIMAN(DA(1),"TERMSTATUS","B",$E(X,1,30),DA)
"^DD",9999999.04,9999999.0499,.01,1,1,"%D",0)
^^1^1^3140527^
"^DD",9999999.04,9999999.0499,.01,1,1,"%D",1,0)
This cross-reference is by Effective Date/Time.
"^DD",9999999.04,9999999.0499,.01,9)
^
"^DD",9999999.04,9999999.0499,.01,21,0)
^.001^2^2^3140807^^^^
"^DD",9999999.04,9999999.0499,.01,21,1,0)
This is the date/time when the Status of the reference term was 
"^DD",9999999.04,9999999.0499,.01,21,2,0)
established.
"^DD",9999999.04,9999999.0499,.01,"DT")
3140521
"^DD",9999999.04,9999999.0499,.02,0)
STATUS^RSI^1:ACTIVE;0:INACTIVE;^0;2^Q
"^DD",9999999.04,9999999.0499,.02,9)
^
"^DD",9999999.04,9999999.0499,.02,21,0)
^^4^4^3140527^
"^DD",9999999.04,9999999.0499,.02,21,1,0)
The Status of a reference term is either 'ACTIVE' or 'INACTIVE'. If 
"^DD",9999999.04,9999999.0499,.02,21,2,0)
'ACTIVE', then the term will be accessible by end-users to document a
"^DD",9999999.04,9999999.0499,.02,21,3,0)
particular patient event. If 'INACTIVE', then the term will only be
"^DD",9999999.04,9999999.0499,.02,21,4,0)
accessible by the application to display legacy data.
"^DD",9999999.04,9999999.0499,.02,"DT")
3140521
"^DD",9999999.14,9999999.14,0)
FIELD^^8803^45
"^DD",9999999.14,9999999.14,0,"DDA")
N
"^DD",9999999.14,9999999.14,0,"DT")
3140625
"^DD",9999999.14,9999999.14,0,"ID",.02)
W "   ",$P(^(0),U,2)
"^DD",9999999.14,9999999.14,0,"ID",.03)
W "   ",$P(^(0),U,3)
"^DD",9999999.14,9999999.14,0,"IX","ACPT",9999999.14,.11)

"^DD",9999999.14,9999999.14,0,"IX","ACPT",9999999.14,1.15)

"^DD",9999999.14,9999999.14,0,"IX","AREPLACETERM",9999999.14,99.97)

"^DD",9999999.14,9999999.14,0,"IX","AVUID",9999999.14,99.99)

"^DD",9999999.14,9999999.14,0,"IX","B",9999999.14,.01)

"^DD",9999999.14,9999999.14,0,"IX","B",9999999.14,8801)

"^DD",9999999.14,9999999.14,0,"IX","C",9999999.14,.03)

"^DD",9999999.14,9999999.14,0,"IX","D",9999999.14,.02)

"^DD",9999999.14,9999999.14,0,"IX","D1",9999999.14,1.01)

"^DD",9999999.14,9999999.14,0,"IX","D2",9999999.14,1.03)

"^DD",9999999.14,9999999.14,0,"IX","D3",9999999.14,1.05)

"^DD",9999999.14,9999999.14,0,"IX","D4",9999999.14,1.07)

"^DD",9999999.14,9999999.14,0,"IX","D5",9999999.14,1.09)

"^DD",9999999.14,9999999.14,0,"IX","E",9999999.14,.1)

"^DD",9999999.14,9999999.14,0,"IX","F",9999999.141,.01)

"^DD",9999999.14,9999999.14,0,"IX","G",9999999.14,8802)

"^DD",9999999.14,9999999.14,0,"IX","H",9999999.145,.01)

"^DD",9999999.14,9999999.14,0,"IX","V1",9999999.14,1.01)

"^DD",9999999.14,9999999.14,0,"IX","V2",9999999.14,1.03)

"^DD",9999999.14,9999999.14,0,"IX","V3",9999999.14,1.05)

"^DD",9999999.14,9999999.14,0,"IX","V4",9999999.14,1.07)

"^DD",9999999.14,9999999.14,0,"IX","V5",9999999.14,1.09)

"^DD",9999999.14,9999999.14,0,"NM","IMMUNIZATION")

"^DD",9999999.14,9999999.14,0,"PT",50.7,9)

"^DD",9999999.14,9999999.14,0,"PT",801.41,15)

"^DD",9999999.14,9999999.14,0,"PT",801.4118,.01)

"^DD",9999999.14,9999999.14,0,"PT",801.43,.02)

"^DD",9999999.14,9999999.14,0,"PT",810.31,.04)

"^DD",9999999.14,9999999.14,0,"PT",810.32,.01)

"^DD",9999999.14,9999999.14,0,"PT",811.1,.01)

"^DD",9999999.14,9999999.14,0,"PT",811.1,.02)

"^DD",9999999.14,9999999.14,0,"PT",811.52,.01)

"^DD",9999999.14,9999999.14,0,"PT",811.902,.01)

"^DD",9999999.14,9999999.14,0,"PT",990.32,.01)

"^DD",9999999.14,9999999.14,0,"PT",9000010.11,.01)

"^DD",9999999.14,9999999.14,0,"PT",9999999.14,.21)

"^DD",9999999.14,9999999.14,0,"PT",9999999.14,.22)

"^DD",9999999.14,9999999.14,0,"PT",9999999.14,.23)

"^DD",9999999.14,9999999.14,0,"PT",9999999.14,.24)

"^DD",9999999.14,9999999.14,0,"PT",9999999.14,.25)

"^DD",9999999.14,9999999.14,0,"PT",9999999.14,.26)

"^DD",9999999.14,9999999.14,0,"PT",9999999.14,99.97)

"^DD",9999999.14,9999999.14,0,"PT",9999999.41,.04)

"^DD",9999999.14,9999999.14,0,"PT",9999999.41,.05)

"^DD",9999999.14,9999999.14,0,"PT",9999999.41,.06)

"^DD",9999999.14,9999999.14,0,"PT",9999999.41,.07)

"^DD",9999999.14,9999999.14,0,"PT",9999999.41,.08)

"^DD",9999999.14,9999999.14,.01,0)
NAME^RFXa^^0;1^K:$L(X)>100!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X I $D(X) D CKNA^PXTTU1("^AUTTIMM(")
"^DD",9999999.14,9999999.14,.01,.1)
Name
"^DD",9999999.14,9999999.14,.01,1,0)
^.1
"^DD",9999999.14,9999999.14,.01,1,1,0)
9999999.14^B
"^DD",9999999.14,9999999.14,.01,1,1,1)
S ^AUTTIMM("B",$E(X,1,100),DA)=""
"^DD",9999999.14,9999999.14,.01,1,1,2)
K ^AUTTIMM("B",$E(X,1,100),DA)
"^DD",9999999.14,9999999.14,.01,3)
Enter the name of the Immunization (3-100 characters).
"^DD",9999999.14,9999999.14,.01,7.5)
I $G(DIC(0))["L",'$D(XUMF) K X D EN^DDIOL("Entries must be edited via the Master File Server (MFS).","","!?5")
"^DD",9999999.14,9999999.14,.01,21,0)
^.001^3^3^3140602^^
"^DD",9999999.14,9999999.14,.01,21,1,0)
This is the name of the Immunization (e.g. Hib-Hep B).
"^DD",9999999.14,9999999.14,.01,21,2,0)
 
"^DD",9999999.14,9999999.14,.01,21,3,0)
Enter the Name of the Immunization using 3 to 100 characters.
"^DD",9999999.14,9999999.14,.01,"AUDIT")
e
"^DD",9999999.14,9999999.14,.01,"DEL",1,0)
D:'$D(XUMF) EN^DDIOL("Entries must be inactivated via the Master File Server(MFS).","","!?5") I '$D(XUMF)
"^DD",9999999.14,9999999.14,.01,"DT")
3140625
"^DD",9999999.14,9999999.14,.01,"LAYGO",1,0)
D:'$D(XUMF) EN^DDIOL("Entries must be added via the Master File Server(MFS).","","!?5") I $D(XUMF)
"^DD",9999999.14,9999999.14,.02,0)
SHORT NAME^Fa^^0;2^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<2) X
"^DD",9999999.14,9999999.14,.02,.1)
Short Name
"^DD",9999999.14,9999999.14,.02,1,0)
^.1
"^DD",9999999.14,9999999.14,.02,1,1,0)
9999999.14^D
"^DD",9999999.14,9999999.14,.02,1,1,1)
S ^AUTTIMM("D",$E(X,1,30),DA)=""
"^DD",9999999.14,9999999.14,.02,1,1,2)
K ^AUTTIMM("D",$E(X,1,30),DA)
"^DD",9999999.14,9999999.14,.02,3)
Answer must be 2-10 characters in length.
"^DD",9999999.14,9999999.14,.02,9)
^
"^DD",9999999.14,9999999.14,.02,21,0)
^.001^4^4^3140625^^^
"^DD",9999999.14,9999999.14,.02,21,1,0)
This is the "Short" name for this immunization such as an acronym, 
"^DD",9999999.14,9999999.14,.02,21,2,0)
nickname, or other name by which it might be called (e.g. Tet Tox).
"^DD",9999999.14,9999999.14,.02,21,3,0)
 
"^DD",9999999.14,9999999.14,.02,21,4,0)
Enter the short name using 2 to 10 characters (e.g. Tet Tox).
"^DD",9999999.14,9999999.14,.02,"AUDIT")
e
"^DD",9999999.14,9999999.14,.02,"DT")
3140625
"^DD",9999999.14,9999999.14,.03,0)
CVX CODE^FXa^^0;3^K:$S(X'?1.3N:1,$L(X)=3:$E(X)="0",1:X<1) X I $D(X),$L(X)=1 S X="0"_X
"^DD",9999999.14,9999999.14,.03,.1)
CVX Code
"^DD",9999999.14,9999999.14,.03,1,0)
^.1
"^DD",9999999.14,9999999.14,.03,1,1,0)
9999999.14^C
"^DD",9999999.14,9999999.14,.03,1,1,1)
S ^AUTTIMM("C",$E(X,1,30),DA)=""
"^DD",9999999.14,9999999.14,.03,1,1,2)
K ^AUTTIMM("C",$E(X,1,30),DA)
"^DD",9999999.14,9999999.14,.03,1,1,3)
This cross-reference can be used for lookups.  May also be used in matching functions.
"^DD",9999999.14,9999999.14,.03,1,1,"%D",0)
^.101^3^3^3140422^^^^
"^DD",9999999.14,9999999.14,.03,1,1,"%D",1,0)
A standard (regular) cross-reference on the CVX CODE field.  The index is
"^DD",9999999.14,9999999.14,.03,1,1,"%D",2,0)
the "C".  This cross-reference is used for lookups and possibly for matching
"^DD",9999999.14,9999999.14,.03,1,1,"%D",3,0)
functions.
"^DD",9999999.14,9999999.14,.03,1,1,"DT")
3140414
"^DD",9999999.14,9999999.14,.03,3)
Enter a numeric code for this vaccine, 1-3 digits, no decimal digits.  Codes less than 10, and only those codes, must start with a zero.
"^DD",9999999.14,9999999.14,.03,4)
N PVX S PVX(1)="This should be the CDC's CVX code for this vaccine.",PVX(2)=" ",PVX(1,"F")="!?5" D EN^DDIOL(.PVX) K PVX
"^DD",9999999.14,9999999.14,.03,21,0)
^.001^3^3^3140610^^^^
"^DD",9999999.14,9999999.14,.03,21,1,0)
This is the Center for Disease Control's (CDC) code for this vaccine,
"^DD",9999999.14,9999999.14,.03,21,2,0)
known as the CVX Code.  The purpose of the CVX code is mainly when using
"^DD",9999999.14,9999999.14,.03,21,3,0)
HL7 to share data regarding this vaccine.
"^DD",9999999.14,9999999.14,.03,23,0)
^.001^4^4^3140610^^^^
"^DD",9999999.14,9999999.14,.03,23,1,0)
The CDC's National Center of Immunization and Respiratory Diseases (NCIRD)
"^DD",9999999.14,9999999.14,.03,23,2,0)
developed and maintains a table of CVX codes, matching them with vaccine
"^DD",9999999.14,9999999.14,.03,23,3,0)
names. The table is known as HL7 Table 0292, Vaccines Administered.  The most
"^DD",9999999.14,9999999.14,.03,23,4,0)
up-to-date table can be found at the CDC Web site.
"^DD",9999999.14,9999999.14,.03,"AUDIT")
e
"^DD",9999999.14,9999999.14,.03,"DT")
3140625
"^DD",9999999.14,9999999.14,.04,0)
DEFAULT LOT#^*P9999999.41a^AUTTIML(^0;4^S DIC("S")="I $P(^(0),U,3)=0" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
"^DD",9999999.14,9999999.14,.04,.1)
Default Lot #
"^DD",9999999.14,9999999.14,.04,3)
Enter the default lot number for this immunization.
"^DD",9999999.14,9999999.14,.04,12)
Lot must be active.
"^DD",9999999.14,9999999.14,.04,12.1)
S DIC("S")="I $P(^(0),U,3)=0"
"^DD",9999999.14,9999999.14,.04,21,0)
^.001^1^1^3140623^^^^
"^DD",9999999.14,9999999.14,.04,21,1,0)
This is the default lot number for this immunization.
"^DD",9999999.14,9999999.14,.04,23,0)
^^3^3^3140623^
"^DD",9999999.14,9999999.14,.04,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.14,9999999.14,.04,23,2,0)
included for backward compatibility with the Indian Health Service 
"^DD",9999999.14,9999999.14,.04,23,3,0)
version of the file.
"^DD",9999999.14,9999999.14,.04,"AUDIT")
e
"^DD",9999999.14,9999999.14,.04,"DT")
3140625
"^DD",9999999.14,9999999.14,.05,0)
MAX # IN SERIES^Sa^0:NON-SERIES;1:1;2:2;3:3;4:4;5:5;6:6;7:7;8:8;^0;5^Q
"^DD",9999999.14,9999999.14,.05,.1)
Maximum Number In Series
"^DD",9999999.14,9999999.14,.05,3)
Enter the maximum number of vaccinations that can be given for this immunization.
"^DD",9999999.14,9999999.14,.05,21,0)
^^5^5^3140430^
"^DD",9999999.14,9999999.14,.05,21,1,0)
(Optional) This is the maximum number of vaccinations that can be given
"^DD",9999999.14,9999999.14,.05,21,2,0)
for this immunization.
"^DD",9999999.14,9999999.14,.05,21,3,0)
 
"^DD",9999999.14,9999999.14,.05,21,4,0)
Enter the number between 0 and 8 that represents the maximum allowable 
"^DD",9999999.14,9999999.14,.05,21,5,0)
vaccinations that can be given for this immunization.
"^DD",9999999.14,9999999.14,.05,"AUDIT")
e
"^DD",9999999.14,9999999.14,.05,"DT")
3140625
"^DD",9999999.14,9999999.14,.06,0)
CHILDHOOD IMMUNIZATION^Sa^0:NO;1:YES;^0;6^Q
"^DD",9999999.14,9999999.14,.06,.1)
Childhood Immunization
"^DD",9999999.14,9999999.14,.06,3)
Enter YES if this is a childhood immunization. Otherwise, enter NO.
"^DD",9999999.14,9999999.14,.06,21,0)
^.001^3^3^3140623^^
"^DD",9999999.14,9999999.14,.06,21,1,0)
YES in this field indicates this immunization is a childhood 
"^DD",9999999.14,9999999.14,.06,21,2,0)
immunization. NO in this field indicates this immunization is not a
"^DD",9999999.14,9999999.14,.06,21,3,0)
childhood immunization.
"^DD",9999999.14,9999999.14,.06,23,0)
^^3^3^3140623^
"^DD",9999999.14,9999999.14,.06,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.14,9999999.14,.06,23,2,0)
included for backward compatibility with the Indian Health Service 
"^DD",9999999.14,9999999.14,.06,23,3,0)
version of the file.
"^DD",9999999.14,9999999.14,.06,"AUDIT")
e
"^DD",9999999.14,9999999.14,.06,"DT")
3140625
"^DD",9999999.14,9999999.14,.07,0)
INACTIVE FLAG^Sa^1:INACTIVE;^0;7^Q
"^DD",9999999.14,9999999.14,.07,3)
Enter 1 to make the immunization type inactive.
"^DD",9999999.14,9999999.14,.07,21,0)
^^8^8^2950825^
"^DD",9999999.14,9999999.14,.07,21,1,0)
This field is used to inactivate an immunization type.  If this field
"^DD",9999999.14,9999999.14,.07,21,2,0)
contains a "1" then the immunization is inactive.  Inactive immunizations
"^DD",9999999.14,9999999.14,.07,21,3,0)
cannot be selected in the manual data entry process. Immunization entries
"^DD",9999999.14,9999999.14,.07,21,4,0)
should be made inactive when they are no longer used. Do not delete the
"^DD",9999999.14,9999999.14,.07,21,5,0)
entry or change the meaning of the immunization entry.
"^DD",9999999.14,9999999.14,.07,21,6,0)
 
"^DD",9999999.14,9999999.14,.07,21,7,0)
To make an inactive immunization active, enter the "@" symbol to delete
"^DD",9999999.14,9999999.14,.07,21,8,0)
the "1" from the field.
"^DD",9999999.14,9999999.14,.07,23,0)
^^5^5^2950825^^
"^DD",9999999.14,9999999.14,.07,23,1,0)
This field was added for use by PCE in the VA.
"^DD",9999999.14,9999999.14,.07,23,2,0)
 
"^DD",9999999.14,9999999.14,.07,23,3,0)
The inactive flag should be used, rather than deleting entries in
"^DD",9999999.14,9999999.14,.07,23,4,0)
the immunization file, since there may be other files pointing at the
"^DD",9999999.14,9999999.14,.07,23,5,0)
immunization entry.
"^DD",9999999.14,9999999.14,.07,"AUDIT")
e
"^DD",9999999.14,9999999.14,.07,"DT")
3140625
"^DD",9999999.14,9999999.14,.08,0)
SKIN TEST^Sa^0:NOT A SKIN TEST;1:SKIN TEST;^0;8^Q
"^DD",9999999.14,9999999.14,.08,.1)
Skin Test
"^DD",9999999.14,9999999.14,.08,3)
Enter '1' if this is a skin test. Otherwise enter '0'.
"^DD",9999999.14,9999999.14,.08,21,0)
^^3^3^3140528^
"^DD",9999999.14,9999999.14,.08,21,1,0)
This field indicates if this immunization is a skin test. Enter '1' if 
"^DD",9999999.14,9999999.14,.08,21,2,0)
this immunization is a skin test. Enter '0' if this immunization is not 
"^DD",9999999.14,9999999.14,.08,21,3,0)
a skin test.
"^DD",9999999.14,9999999.14,.08,23,0)
^^3^3^3140623^
"^DD",9999999.14,9999999.14,.08,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.14,9999999.14,.08,23,2,0)
included for backward compatibility with the Indian Health Service 
"^DD",9999999.14,9999999.14,.08,23,3,0)
version of the file.
"^DD",9999999.14,9999999.14,.08,"AUDIT")
e
"^DD",9999999.14,9999999.14,.08,"DT")
3140625
"^DD",9999999.14,9999999.14,.09,0)
VACCINE GROUP (SERIES TYPE)^P9002084.93'Ia^BISERT(^0;9^Q
"^DD",9999999.14,9999999.14,.09,.1)
Vaccine Group (Series Type)
"^DD",9999999.14,9999999.14,.09,3)
Select the Imm/Serve Series Type (or "Vaccine Group") to which this vaccine belongs.
"^DD",9999999.14,9999999.14,.09,21,0)
^^2^2^3140528^
"^DD",9999999.14,9999999.14,.09,21,1,0)
This field identifies the Imm/Serve Series Type (or "Vaccine group") to 
"^DD",9999999.14,9999999.14,.09,21,2,0)
which this immunization belongs.
"^DD",9999999.14,9999999.14,.09,23,0)
^^7^7^3140623^
"^DD",9999999.14,9999999.14,.09,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.14,9999999.14,.09,23,2,0)
included for backward compatibility with the Indian Health Service 
"^DD",9999999.14,9999999.14,.09,23,3,0)
version of the file.
"^DD",9999999.14,9999999.14,.09,23,4,0)
 
"^DD",9999999.14,9999999.14,.09,23,5,0)
This field points to Indian Health Service's BI TABLE VACCINE GROUP 
"^DD",9999999.14,9999999.14,.09,23,6,0)
(SERIES TYPE) file (#9002084.93) which is not used by the Department of 
"^DD",9999999.14,9999999.14,.09,23,7,0)
Veterans Affairs.
"^DD",9999999.14,9999999.14,.09,"AUDIT")
e
"^DD",9999999.14,9999999.14,.09,"DT")
3140625
"^DD",9999999.14,9999999.14,.1,0)
ALTERNATE SHORT NAME^FIa^^0;10^K:$L(X)>10!($L(X)<2) X
"^DD",9999999.14,9999999.14,.1,.1)
Alternate Short Name
"^DD",9999999.14,9999999.14,.1,1,0)
^.1
"^DD",9999999.14,9999999.14,.1,1,1,0)
9999999.14^E
"^DD",9999999.14,9999999.14,.1,1,1,1)
S ^AUTTIMM("E",$E(X,1,30),DA)=""
"^DD",9999999.14,9999999.14,.1,1,1,2)
K ^AUTTIMM("E",$E(X,1,30),DA)
"^DD",9999999.14,9999999.14,.1,1,1,"%D",0)
^^1^1^3140529^
"^DD",9999999.14,9999999.14,.1,1,1,"%D",1,0)
This cross reference is used for sorting and lookup.
"^DD",9999999.14,9999999.14,.1,1,1,"DT")
3140529
"^DD",9999999.14,9999999.14,.1,3)
Answer must be 2-10 characters in length.
"^DD",9999999.14,9999999.14,.1,21,0)
^^1^1^3140529^
"^DD",9999999.14,9999999.14,.1,21,1,0)
This is an alternate short name for this immunization.
"^DD",9999999.14,9999999.14,.1,23,0)
^^3^3^3140623^
"^DD",9999999.14,9999999.14,.1,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.14,9999999.14,.1,23,2,0)
included for backward compatibility with the Indian Health Service 
"^DD",9999999.14,9999999.14,.1,23,3,0)
version of the file.
"^DD",9999999.14,9999999.14,.1,"AUDIT")
e
"^DD",9999999.14,9999999.14,.1,"DT")
3140623
"^DD",9999999.14,9999999.14,.11,0)
CPT CODE^P81'Ia^ICPT(^0;11^Q
"^DD",9999999.14,9999999.14,.11,.1)
CPT Code
"^DD",9999999.14,9999999.14,.11,1,0)
^.1
"^DD",9999999.14,9999999.14,.11,1,1,0)
9999999.14^ACPT
"^DD",9999999.14,9999999.14,.11,1,1,1)
S ^AUTTIMM("ACPT",$E(X,1,30),DA)=""
"^DD",9999999.14,9999999.14,.11,1,1,2)
K ^AUTTIMM("ACPT",$E(X,1,30),DA)
"^DD",9999999.14,9999999.14,.11,1,1,"%D",0)
^.101^1^1^3140529^^
"^DD",9999999.14,9999999.14,.11,1,1,"%D",1,0)
This cross reference is used for sorting.
"^DD",9999999.14,9999999.14,.11,1,1,"DT")
3140529
"^DD",9999999.14,9999999.14,.11,3)
Enter the CPT code for this immunization.
"^DD",9999999.14,9999999.14,.11,21,0)
^^1^1^3140528^
"^DD",9999999.14,9999999.14,.11,21,1,0)
This is the CPT code associated with this immunization.
"^DD",9999999.14,9999999.14,.11,23,0)
^^3^3^3140623^
"^DD",9999999.14,9999999.14,.11,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.14,9999999.14,.11,23,2,0)
included for backward compatibility with the Indian Health Service 
"^DD",9999999.14,9999999.14,.11,23,3,0)
version of the file.
"^DD",9999999.14,9999999.14,.11,"AUDIT")
e
"^DD",9999999.14,9999999.14,.11,"DT")
3140625
"^DD",9999999.14,9999999.14,.12,0)
RELATED CONTRAIND HL7 CODES^FIa^^0;12^K:$L(X)>30!($L(X)<1) X
"^DD",9999999.14,9999999.14,.12,.1)
Related Contraindication HL7 Codes
"^DD",9999999.14,9999999.14,.12,3)
Answer must be 1-30 characters in length.
"^DD",9999999.14,9999999.14,.12,21,0)
^^2^2^3140528^
"^DD",9999999.14,9999999.14,.12,21,1,0)
This field indicates the HL7 code(s) of any immunizations that should be
"^DD",9999999.14,9999999.14,.12,21,2,0)
contraindicated when this immunization is contraindicated.
"^DD",9999999.14,9999999.14,.12,23,0)
^^3^3^3140623^
"^DD",9999999.14,9999999.14,.12,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.14,9999999.14,.12,23,2,0)
included for backward compatibility with the Indian Health Service 
"^DD",9999999.14,9999999.14,.12,23,3,0)
version of the file.
"^DD",9999999.14,9999999.14,.12,"AUDIT")
e
"^DD",9999999.14,9999999.14,.12,"DT")
3140625
"^DD",9999999.14,9999999.14,.13,0)
VIS DEFAULT DATE^Da^^0;13^S %DT="EX" D ^%DT S X=Y K:Y<1 X
"^DD",9999999.14,9999999.14,.13,.1)
VIS Default Date
"^DD",9999999.14,9999999.14,.13,3)
Enter the default date of the Vaccine Information Statement (Parent Information Sheet) for this vaccine.
"^DD",9999999.14,9999999.14,.13,21,0)
^^2^2^3140528^
"^DD",9999999.14,9999999.14,.13,21,1,0)
This is the default date of the Vaccine Information Statement for this 
"^DD",9999999.14,9999999.14,.13,21,2,0)
immunization.
"^DD",9999999.14,9999999.14,.13,23,0)
^^3^3^3140623^
"^DD",9999999.14,9999999.14,.13,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.14,9999999.14,.13,23,2,0)
included for backward compatibility with the Indian Health Service 
"^DD",9999999.14,9999999.14,.13,23,3,0)
version of the file.
"^DD",9999999.14,9999999.14,.13,"AUDIT")
e
"^DD",9999999.14,9999999.14,.13,"DT")
3140625
"^DD",9999999.14,9999999.14,.14,0)
ICD DIAGNOSIS CODE^FIa^^0;14^K:$L(X)>8!($L(X)<1) X
"^DD",9999999.14,9999999.14,.14,.1)
ICD Diagnosis Code
"^DD",9999999.14,9999999.14,.14,3)
Enter the ICD Diagnosis Code for this vaccine.
"^DD",9999999.14,9999999.14,.14,21,0)
^.001^1^1^3140528^^
"^DD",9999999.14,9999999.14,.14,21,1,0)
This is the ICD diagnosis code associated with this immunization.
"^DD",9999999.14,9999999.14,.14,23,0)
^^3^3^3140623^
"^DD",9999999.14,9999999.14,.14,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.14,9999999.14,.14,23,2,0)
included for backward compatibility with the Indian Health Service 
"^DD",9999999.14,9999999.14,.14,23,3,0)
version of the file.
"^DD",9999999.14,9999999.14,.14,"AUDIT")
e
"^DD",9999999.14,9999999.14,.14,"DT")
3140625
"^DD",9999999.14,9999999.14,.15,0)
ICD PROCEDURE CODE^FIa^^0;15^K:$L(X)>8!($L(X)<1) X
"^DD",9999999.14,9999999.14,.15,.1)
ICD Procedure Code
"^DD",9999999.14,9999999.14,.15,3)
Enter the ICD Procedure Code for this vaccine.
"^DD",9999999.14,9999999.14,.15,21,0)
^^1^1^3140528^
"^DD",9999999.14,9999999.14,.15,21,1,0)
This is the ICD Procedure Code associated with this immunization.
"^DD",9999999.14,9999999.14,.15,23,0)
^^3^3^3140623^
"^DD",9999999.14,9999999.14,.15,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.14,9999999.14,.15,23,2,0)
included for backward compatibility with the Indian Health Service 
"^DD",9999999.14,9999999.14,.15,23,3,0)
version of the file.
"^DD",9999999.14,9999999.14,.15,"AUDIT")
e
"^DD",9999999.14,9999999.14,.15,"DT")
3140625
"^DD",9999999.14,9999999.14,.16,0)
INCLUDE IN FORECAST^Sa^0:YES, INCLUDE;1:NO, EXCLUDE;^0;16^Q
"^DD",9999999.14,9999999.14,.16,.1)
Include In Forecast
"^DD",9999999.14,9999999.14,.16,3)
Enter 0 or YES to allow this Vaccine to be forecast for patients when appropriate.  Enter 1 or NO to EXCLUDE this Vaccine from all forecasts.
"^DD",9999999.14,9999999.14,.16,21,0)
^^3^3^3140528^
"^DD",9999999.14,9999999.14,.16,21,1,0)
This field indicates if this vaccine is allowed to be forecast for 
"^DD",9999999.14,9999999.14,.16,21,2,0)
patients when appropriate. Enter NO to exclude this vaccine from all 
"^DD",9999999.14,9999999.14,.16,21,3,0)
forecasts.
"^DD",9999999.14,9999999.14,.16,23,0)
^^3^3^3140623^
"^DD",9999999.14,9999999.14,.16,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.14,9999999.14,.16,23,2,0)
included for backward compatibility with the Indian Health Service 
"^DD",9999999.14,9999999.14,.16,23,3,0)
version of the file.
"^DD",9999999.14,9999999.14,.16,"AUDIT")
e
"^DD",9999999.14,9999999.14,.16,"DT")
3140625
"^DD",9999999.14,9999999.14,.17,0)
INCLUDE IN VAC ACCOUNT REPORT^SIa^1:YES;0:NO;^0;17^Q
"^DD",9999999.14,9999999.14,.17,.1)
Include In VAC Account Report
"^DD",9999999.14,9999999.14,.17,3)
Answer YES if this vaccine should be included in the Vaccine Accountability Report answer NO if not.
"^DD",9999999.14,9999999.14,.17,21,0)
^.001^2^2^3141103^^
"^DD",9999999.14,9999999.14,.17,21,1,0)
This field indicates if this vaccine should be included in the Vaccine 
"^DD",9999999.14,9999999.14,.17,21,2,0)
Accountability Report. Enter NO if not.
"^DD",9999999.14,9999999.14,.17,23,0)
^.001^3^3^3141103^^
"^DD",9999999.14,9999999.14,.17,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.14,9999999.14,.17,23,2,0)
included for backward compatibility with the Indian Health Service 
"^DD",9999999.14,9999999.14,.17,23,3,0)
version of the file.
"^DD",9999999.14,9999999.14,.17,"AUDIT")
e
"^DD",9999999.14,9999999.14,.17,"DT")
3140625
"^DD",9999999.14,9999999.14,.18,0)
DEFAULT VOLUME^NJ4,2a^^0;18^K:+X'=X!(X>5)!(X<0)!(X?.E1"."3N.N) X
"^DD",9999999.14,9999999.14,.18,.1)
Default Volume
"^DD",9999999.14,9999999.14,.18,3)
Enter the default volume for this vaccine.  Type a Number between 0 and 5, 2 Decimal Digits
"^DD",9999999.14,9999999.14,.18,21,0)
^^1^1^3140528^
"^DD",9999999.14,9999999.14,.18,21,1,0)
This is the default volume for this vaccine.
"^DD",9999999.14,9999999.14,.18,23,0)
^^3^3^3140623^
"^DD",9999999.14,9999999.14,.18,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.14,9999999.14,.18,23,2,0)
included for backward compatibility with the Indian Health Service 
"^DD",9999999.14,9999999.14,.18,23,3,0)
version of the file.
"^DD",9999999.14,9999999.14,.18,"AUDIT")
e
"^DD",9999999.14,9999999.14,.18,"DT")
3140625
"^DD",9999999.14,9999999.14,.2,0)
COMBINATION IMMUNIZATION (Y/N)^Sa^0:NO;1:YES;^0;20^Q
"^DD",9999999.14,9999999.14,.2,.1)
Combination Immunization (Y/N)
"^DD",9999999.14,9999999.14,.2,3)
If this is a combination immunization, enter YES. Otherwise, enter NO.
"^DD",9999999.14,9999999.14,.2,21,0)
^^6^6^3140416^
"^DD",9999999.14,9999999.14,.2,21,1,0)
This YES/NO field identifies if this immunization is a combination
"^DD",9999999.14,9999999.14,.2,21,2,0)
product or not.  If this immunization is a combination product (a
"^DD",9999999.14,9999999.14,.2,21,3,0)
multi-component vaccine requiring multiple vaccine information
"^DD",9999999.14,9999999.14,.2,21,4,0)
statements), enter YES.  If this immunization is not a combination
"^DD",9999999.14,9999999.14,.2,21,5,0)
product, but can be represented by a single vaccine information
"^DD",9999999.14,9999999.14,.2,21,6,0)
statement, enter NO.
"^DD",9999999.14,9999999.14,.2,"AUDIT")
e
"^DD",9999999.14,9999999.14,.2,"DT")
3140625
"^DD",9999999.14,9999999.14,.21,0)
COMPONENT #1^P9999999.14'a^AUTTIMM(^0;21^Q
"^DD",9999999.14,9999999.14,.21,.1)
Component #1
"^DD",9999999.14,9999999.14,.21,3)
Enter the first component of this combination vaccine.
"^DD",9999999.14,9999999.14,.21,21,0)
^.001^1^1^3140616^^^^
"^DD",9999999.14,9999999.14,.21,21,1,0)
This is the first component of this combination vaccine.
"^DD",9999999.14,9999999.14,.21,23,0)
^^3^3^3140623^
"^DD",9999999.14,9999999.14,.21,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.14,9999999.14,.21,23,2,0)
included for backward compatibility with the Indian Health Service 
"^DD",9999999.14,9999999.14,.21,23,3,0)
version of the file.
"^DD",9999999.14,9999999.14,.21,"AUDIT")
e
"^DD",9999999.14,9999999.14,.21,"DT")
3140625
"^DD",9999999.14,9999999.14,.22,0)
COMPONENT #2^P9999999.14'a^AUTTIMM(^0;22^Q
"^DD",9999999.14,9999999.14,.22,.1)
Component #2
"^DD",9999999.14,9999999.14,.22,3)
Enter the second component of this combination vaccine.
"^DD",9999999.14,9999999.14,.22,21,0)
^^1^1^3140528^
"^DD",9999999.14,9999999.14,.22,21,1,0)
This is the second component of this combination vaccine.
"^DD",9999999.14,9999999.14,.22,23,0)
^^3^3^3140623^
"^DD",9999999.14,9999999.14,.22,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.14,9999999.14,.22,23,2,0)
included for backward compatibility with the Indian Health Service 
"^DD",9999999.14,9999999.14,.22,23,3,0)
version of the file.
"^DD",9999999.14,9999999.14,.22,"AUDIT")
e
"^DD",9999999.14,9999999.14,.22,"DT")
3140625
"^DD",9999999.14,9999999.14,.23,0)
COMPONENT #3^P9999999.14'a^AUTTIMM(^0;23^Q
"^DD",9999999.14,9999999.14,.23,.1)
Component #3
"^DD",9999999.14,9999999.14,.23,3)
Enter the third component of this combination vaccine.
"^DD",9999999.14,9999999.14,.23,21,0)
^^1^1^3140528^
"^DD",9999999.14,9999999.14,.23,21,1,0)
This is the third component of this combination vaccine.
"^DD",9999999.14,9999999.14,.23,23,0)
^^3^3^3140623^
"^DD",9999999.14,9999999.14,.23,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.14,9999999.14,.23,23,2,0)
included for backward compatibility with the Indian Health Service 
"^DD",9999999.14,9999999.14,.23,23,3,0)
version of the file.
"^DD",9999999.14,9999999.14,.23,"AUDIT")
e
"^DD",9999999.14,9999999.14,.23,"DT")
3140625
"^DD",9999999.14,9999999.14,.24,0)
COMPONENT #4^P9999999.14'a^AUTTIMM(^0;24^Q
"^DD",9999999.14,9999999.14,.24,.1)
Component #4
"^DD",9999999.14,9999999.14,.24,3)
Enter the fourth component of this combination vaccine.
"^DD",9999999.14,9999999.14,.24,21,0)
^^1^1^3140528^
"^DD",9999999.14,9999999.14,.24,21,1,0)
This is the fourth component of this combination vaccine.
"^DD",9999999.14,9999999.14,.24,23,0)
^^3^3^3140623^
"^DD",9999999.14,9999999.14,.24,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.14,9999999.14,.24,23,2,0)
included for backward compatibility with the Indian Health Service 
"^DD",9999999.14,9999999.14,.24,23,3,0)
version of the file.
"^DD",9999999.14,9999999.14,.24,"AUDIT")
e
"^DD",9999999.14,9999999.14,.24,"DT")
3140625
"^DD",9999999.14,9999999.14,.25,0)
COMPONENT #5^P9999999.14'a^AUTTIMM(^0;25^Q
"^DD",9999999.14,9999999.14,.25,.1)
Component #5
"^DD",9999999.14,9999999.14,.25,3)
Enter the fifth component of this combination vaccine.
"^DD",9999999.14,9999999.14,.25,21,0)
^^1^1^3140528^
"^DD",9999999.14,9999999.14,.25,21,1,0)
This is the fifth component of this combination vaccine.
"^DD",9999999.14,9999999.14,.25,23,0)
^^3^3^3140623^
"^DD",9999999.14,9999999.14,.25,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.14,9999999.14,.25,23,2,0)
included for backward compatibility with the Indian Health Service 
"^DD",9999999.14,9999999.14,.25,23,3,0)
version of the file.
"^DD",9999999.14,9999999.14,.25,"AUDIT")
e
"^DD",9999999.14,9999999.14,.25,"DT")
3140625
"^DD",9999999.14,9999999.14,.26,0)
COMPONENT #6^P9999999.14'a^AUTTIMM(^0;26^Q
"^DD",9999999.14,9999999.14,.26,.1)
Component #6
"^DD",9999999.14,9999999.14,.26,3)
Enter the sixth component of this combination vaccine.
"^DD",9999999.14,9999999.14,.26,21,0)
^^1^1^3140528^
"^DD",9999999.14,9999999.14,.26,21,1,0)
This is the sixth component of this combination vaccine.
"^DD",9999999.14,9999999.14,.26,23,0)
^^3^3^3140623^
"^DD",9999999.14,9999999.14,.26,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.14,9999999.14,.26,23,2,0)
included for backward compatibility with the Indian Health Service 
"^DD",9999999.14,9999999.14,.26,23,3,0)
version of the file.
"^DD",9999999.14,9999999.14,.26,"AUDIT")
e
"^DD",9999999.14,9999999.14,.26,"DT")
3140625
"^DD",9999999.14,9999999.14,1.01,0)
BRAND #1^Fa^^1;1^K:$L(X)>30!($L(X)<1) X
"^DD",9999999.14,9999999.14,1.01,.1)
Brand #1
"^DD",9999999.14,9999999.14,1.01,1,0)
^.1
"^DD",9999999.14,9999999.14,1.01,1,1,0)
9999999.14^D1^MUMPS
"^DD",9999999.14,9999999.14,1.01,1,1,1)
S ^AUTTIMM("D",$E(X,1,30),DA)=""
"^DD",9999999.14,9999999.14,1.01,1,1,2)
K ^AUTTIMM("D",$E(X,1,30),DA)
"^DD",9999999.14,9999999.14,1.01,1,1,"%D",0)
^.101^1^1^3140529^^
"^DD",9999999.14,9999999.14,1.01,1,1,"%D",1,0)
This cross reference is for sorting and lookup.
"^DD",9999999.14,9999999.14,1.01,1,1,"DT")
3140529
"^DD",9999999.14,9999999.14,1.01,1,2,0)
9999999.14^V1^MUMPS
"^DD",9999999.14,9999999.14,1.01,1,2,1)
D UPXREF^BIUTL5(X,"^AUTTIMM(","V")
"^DD",9999999.14,9999999.14,1.01,1,2,2)
D KUPXREF^BIUTL5(X,"^AUTTIMM(","V")
"^DD",9999999.14,9999999.14,1.01,1,2,"%D",0)
^.101^3^3^3140602^^
"^DD",9999999.14,9999999.14,1.01,1,2,"%D",1,0)
This MUMPS cross reference converts the brand name to all uppercase and 
"^DD",9999999.14,9999999.14,1.01,1,2,"%D",2,0)
then sets the "V" cross reference node which is used for sorting and 
"^DD",9999999.14,9999999.14,1.01,1,2,"%D",3,0)
lookup.
"^DD",9999999.14,9999999.14,1.01,1,2,"DT")
3140529
"^DD",9999999.14,9999999.14,1.01,3)
Enter a brand name for this vaccine.  Answer must be 1-30 characters in length.
"^DD",9999999.14,9999999.14,1.01,21,0)
^^1^1^3140528^
"^DD",9999999.14,9999999.14,1.01,21,1,0)
This is the first brand name for this vaccine.
"^DD",9999999.14,9999999.14,1.01,23,0)
^^3^3^3140623^
"^DD",9999999.14,9999999.14,1.01,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.14,9999999.14,1.01,23,2,0)
included for backward compatibility with the Indian Health Service 
"^DD",9999999.14,9999999.14,1.01,23,3,0)
version of the file.
"^DD",9999999.14,9999999.14,1.01,"AUDIT")
e
"^DD",9999999.14,9999999.14,1.01,"DT")
3140625
"^DD",9999999.14,9999999.14,1.03,0)
BRAND #2^Fa^^1;3^K:$L(X)>30!($L(X)<1) X
"^DD",9999999.14,9999999.14,1.03,.1)
Brand #2
"^DD",9999999.14,9999999.14,1.03,1,0)
^.1
"^DD",9999999.14,9999999.14,1.03,1,1,0)
9999999.14^D2^MUMPS
"^DD",9999999.14,9999999.14,1.03,1,1,1)
S ^AUTTIMM("D",$E(X,1,30),DA)=""
"^DD",9999999.14,9999999.14,1.03,1,1,2)
K ^AUTTIMM("D",$E(X,1,30),DA)
"^DD",9999999.14,9999999.14,1.03,1,1,"%D",0)
^^1^1^3140529^
"^DD",9999999.14,9999999.14,1.03,1,1,"%D",1,0)
This cross reference is for sorting and lookup.
"^DD",9999999.14,9999999.14,1.03,1,1,"DT")
3140529
"^DD",9999999.14,9999999.14,1.03,1,2,0)
9999999.14^V2^MUMPS
"^DD",9999999.14,9999999.14,1.03,1,2,1)
D UPXREF^BIUTL5(X,"^AUTTIMM(","V")
"^DD",9999999.14,9999999.14,1.03,1,2,2)
D KUPXREF^BIUTL5(X,"^AUTTIMM(","V")
"^DD",9999999.14,9999999.14,1.03,1,2,"%D",0)
^^3^3^3140529^
"^DD",9999999.14,9999999.14,1.03,1,2,"%D",1,0)
This MUMPS cross reference converts the brand name to all uppercase and 
"^DD",9999999.14,9999999.14,1.03,1,2,"%D",2,0)
then sets the "V" cross reference node which is used for sorting and 
"^DD",9999999.14,9999999.14,1.03,1,2,"%D",3,0)
lookup.
"^DD",9999999.14,9999999.14,1.03,1,2,"DT")
3140529
"^DD",9999999.14,9999999.14,1.03,3)
Enter a brand name for this vaccine.  Answer must be 1-30 characters in length.
"^DD",9999999.14,9999999.14,1.03,21,0)
^^1^1^3140528^
"^DD",9999999.14,9999999.14,1.03,21,1,0)
This is the second brand name for this vaccine.
"^DD",9999999.14,9999999.14,1.03,23,0)
^^3^3^3140623^
"^DD",9999999.14,9999999.14,1.03,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.14,9999999.14,1.03,23,2,0)
included for backward compatibility with the Indian Health Service 
"^DD",9999999.14,9999999.14,1.03,23,3,0)
version of the file.
"^DD",9999999.14,9999999.14,1.03,"AUDIT")
e
"^DD",9999999.14,9999999.14,1.03,"DT")
3140625
"^DD",9999999.14,9999999.14,1.05,0)
BRAND #3^Fa^^1;5^K:$L(X)>30!($L(X)<1) X
"^DD",9999999.14,9999999.14,1.05,.1)
Brand #3
"^DD",9999999.14,9999999.14,1.05,1,0)
^.1
"^DD",9999999.14,9999999.14,1.05,1,1,0)
9999999.14^D3^MUMPS
"^DD",9999999.14,9999999.14,1.05,1,1,1)
S ^AUTTIMM("D",$E(X,1,30),DA)=""
"^DD",9999999.14,9999999.14,1.05,1,1,2)
K ^AUTTIMM("D",$E(X,1,30),DA)
"^DD",9999999.14,9999999.14,1.05,1,1,"%D",0)
^^1^1^3140529^
"^DD",9999999.14,9999999.14,1.05,1,1,"%D",1,0)
This cross reference is for sorting and lookup.
"^DD",9999999.14,9999999.14,1.05,1,1,"DT")
3140529
"^DD",9999999.14,9999999.14,1.05,1,2,0)
9999999.14^V3^MUMPS
"^DD",9999999.14,9999999.14,1.05,1,2,1)
D UPXREF^BIUTL5(X,"^AUTTIMM(","V")
"^DD",9999999.14,9999999.14,1.05,1,2,2)
D KUPXREF^BIUTL5(X,"^AUTTIMM(","V")
"^DD",9999999.14,9999999.14,1.05,1,2,"%D",0)
^^3^3^3140529^
"^DD",9999999.14,9999999.14,1.05,1,2,"%D",1,0)
This MUMPS cross reference converts the brand name to all uppercase and 
"^DD",9999999.14,9999999.14,1.05,1,2,"%D",2,0)
then sets the "V" cross reference node which is used for sorting and 
"^DD",9999999.14,9999999.14,1.05,1,2,"%D",3,0)
lookup.
"^DD",9999999.14,9999999.14,1.05,1,2,"DT")
3140529
"^DD",9999999.14,9999999.14,1.05,3)
Enter a brand name for this vaccine.  Answer must be 1-30 characters in length.
"^DD",9999999.14,9999999.14,1.05,21,0)
^^1^1^3140528^
"^DD",9999999.14,9999999.14,1.05,21,1,0)
This is the third brand name for this vaccine.
"^DD",9999999.14,9999999.14,1.05,23,0)
^^3^3^3140623^
"^DD",9999999.14,9999999.14,1.05,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.14,9999999.14,1.05,23,2,0)
included for backward compatibility with the Indian Health Service 
"^DD",9999999.14,9999999.14,1.05,23,3,0)
version of the file.
"^DD",9999999.14,9999999.14,1.05,"AUDIT")
e
"^DD",9999999.14,9999999.14,1.05,"DT")
3140625
"^DD",9999999.14,9999999.14,1.07,0)
BRAND #4^Fa^^1;7^K:$L(X)>30!($L(X)<1) X
"^DD",9999999.14,9999999.14,1.07,.1)
Brand #4
"^DD",9999999.14,9999999.14,1.07,1,0)
^.1
"^DD",9999999.14,9999999.14,1.07,1,1,0)
9999999.14^D4^MUMPS
"^DD",9999999.14,9999999.14,1.07,1,1,1)
S ^AUTTIMM("D",$E(X,1,30),DA)=""
"^DD",9999999.14,9999999.14,1.07,1,1,2)
K ^AUTTIMM("D",$E(X,1,30),DA)
"^DD",9999999.14,9999999.14,1.07,1,1,"%D",0)
^^1^1^3140529^
"^DD",9999999.14,9999999.14,1.07,1,1,"%D",1,0)
This cross reference is for sorting and lookup.
"^DD",9999999.14,9999999.14,1.07,1,1,"DT")
3140529
"^DD",9999999.14,9999999.14,1.07,1,2,0)
9999999.14^V4^MUMPS
"^DD",9999999.14,9999999.14,1.07,1,2,1)
D UPXREF^BIUTL5(X,"^AUTTIMM(","V")
"^DD",9999999.14,9999999.14,1.07,1,2,2)
D KUPXREF^BIUTL5(X,"^AUTTIMM(","V")
"^DD",9999999.14,9999999.14,1.07,1,2,"%D",0)
^^3^3^3140529^
"^DD",9999999.14,9999999.14,1.07,1,2,"%D",1,0)
This MUMPS cross reference converts the brand name to all uppercase and 
"^DD",9999999.14,9999999.14,1.07,1,2,"%D",2,0)
then sets the "V" cross reference node which is used for sorting and 
"^DD",9999999.14,9999999.14,1.07,1,2,"%D",3,0)
lookup.
"^DD",9999999.14,9999999.14,1.07,1,2,"DT")
3140529
"^DD",9999999.14,9999999.14,1.07,3)
Enter a brand name for this vaccine.  Answer must be 1-30 characters in length.
"^DD",9999999.14,9999999.14,1.07,21,0)
^^1^1^3140528^
"^DD",9999999.14,9999999.14,1.07,21,1,0)
This is the fourth brand name for this vaccine.
"^DD",9999999.14,9999999.14,1.07,23,0)
^^3^3^3140623^
"^DD",9999999.14,9999999.14,1.07,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.14,9999999.14,1.07,23,2,0)
included for backward compatibility with the Indian Health Service 
"^DD",9999999.14,9999999.14,1.07,23,3,0)
version of the file.
"^DD",9999999.14,9999999.14,1.07,"AUDIT")
e
"^DD",9999999.14,9999999.14,1.07,"DT")
3140625
"^DD",9999999.14,9999999.14,1.09,0)
BRAND #5^Fa^^1;9^K:$L(X)>30!($L(X)<1) X
"^DD",9999999.14,9999999.14,1.09,.1)
Brand #5
"^DD",9999999.14,9999999.14,1.09,1,0)
^.1
"^DD",9999999.14,9999999.14,1.09,1,1,0)
9999999.14^D5^MUMPS
"^DD",9999999.14,9999999.14,1.09,1,1,1)
S ^AUTTIMM("D",$E(X,1,30),DA)=""
"^DD",9999999.14,9999999.14,1.09,1,1,2)
K ^AUTTIMM("D",$E(X,1,30),DA)
"^DD",9999999.14,9999999.14,1.09,1,1,"%D",0)
^^1^1^3140529^
"^DD",9999999.14,9999999.14,1.09,1,1,"%D",1,0)
This cross reference is for sorting and lookup.
"^DD",9999999.14,9999999.14,1.09,1,1,"DT")
3140529
"^DD",9999999.14,9999999.14,1.09,1,2,0)
9999999.14^V5^MUMPS
"^DD",9999999.14,9999999.14,1.09,1,2,1)
D UPXREF^BIUTL5(X,"^AUTTIMM(","V")
"^DD",9999999.14,9999999.14,1.09,1,2,2)
D KUPXREF^BIUTL5(X,"^AUTTIMM(","V")
"^DD",9999999.14,9999999.14,1.09,1,2,"%D",0)
^^3^3^3140529^
"^DD",9999999.14,9999999.14,1.09,1,2,"%D",1,0)
This MUMPS cross reference converts the brand name to all uppercase and 
"^DD",9999999.14,9999999.14,1.09,1,2,"%D",2,0)
then sets the "V" cross reference node which is used for sorting and 
"^DD",9999999.14,9999999.14,1.09,1,2,"%D",3,0)
lookup.
"^DD",9999999.14,9999999.14,1.09,1,2,"DT")
3140529
"^DD",9999999.14,9999999.14,1.09,3)
Enter a brand name for this vaccine.  Answer must be 1-30 characters in length.
"^DD",9999999.14,9999999.14,1.09,21,0)
^^1^1^3140528^
"^DD",9999999.14,9999999.14,1.09,21,1,0)
This is the fifth brand name for this vaccine.
"^DD",9999999.14,9999999.14,1.09,23,0)
^^3^3^3140623^
"^DD",9999999.14,9999999.14,1.09,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.14,9999999.14,1.09,23,2,0)
included for backward compatibility with the Indian Health Service 
"^DD",9999999.14,9999999.14,1.09,23,3,0)
version of the file.
"^DD",9999999.14,9999999.14,1.09,"AUDIT")
e
"^DD",9999999.14,9999999.14,1.09,"DT")
3140625
"^DD",9999999.14,9999999.14,1.14,0)
FULL NAME^Fa^^1;14^K:$L(X)>80!($L(X)<3) X
"^DD",9999999.14,9999999.14,1.14,.1)
Full Name
"^DD",9999999.14,9999999.14,1.14,3)
Answer must be 3-80 characters in length.
"^DD",9999999.14,9999999.14,1.14,21,0)
^^1^1^3140528^
"^DD",9999999.14,9999999.14,1.14,21,1,0)
This is the full name for this immunization.
"^DD",9999999.14,9999999.14,1.14,23,0)
^^3^3^3140623^
"^DD",9999999.14,9999999.14,1.14,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.14,9999999.14,1.14,23,2,0)
included for backward compatibility with the Indian Health Service 
"^DD",9999999.14,9999999.14,1.14,23,3,0)
version of the file.
"^DD",9999999.14,9999999.14,1.14,"AUDIT")
e
"^DD",9999999.14,9999999.14,1.14,"DT")
3140625
"^DD",9999999.14,9999999.14,1.15,0)
CPT CODE 2ND^P81'Ia^ICPT(^1;15^Q
"^DD",9999999.14,9999999.14,1.15,.1)
CPT Code 2nd
"^DD",9999999.14,9999999.14,1.15,1,0)
^.1
"^DD",9999999.14,9999999.14,1.15,1,1,0)
9999999.14^ACPT
"^DD",9999999.14,9999999.14,1.15,1,1,1)
S ^AUTTIMM("ACPT",$E(X,1,30),DA)=""
"^DD",9999999.14,9999999.14,1.15,1,1,2)
K ^AUTTIMM("ACPT",$E(X,1,30),DA)
"^DD",9999999.14,9999999.14,1.15,1,1,"%D",0)
^^1^1^3140529^
"^DD",9999999.14,9999999.14,1.15,1,1,"%D",1,0)
This cross reference is for sorting.
"^DD",9999999.14,9999999.14,1.15,1,1,"DT")
3140529
"^DD",9999999.14,9999999.14,1.15,3)
Enter a second CPT Code for this vaccine.
"^DD",9999999.14,9999999.14,1.15,21,0)
^^1^1^3140528^
"^DD",9999999.14,9999999.14,1.15,21,1,0)
This is a second CPT code for this immunization.
"^DD",9999999.14,9999999.14,1.15,23,0)
^^3^3^3140623^
"^DD",9999999.14,9999999.14,1.15,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.14,9999999.14,1.15,23,2,0)
included for backward compatibility with the Indian Health Service 
"^DD",9999999.14,9999999.14,1.15,23,3,0)
version of the file.
"^DD",9999999.14,9999999.14,1.15,"AUDIT")
e
"^DD",9999999.14,9999999.14,1.15,"DT")
3140625
"^DD",9999999.14,9999999.14,2,0)
CDC FULL VACCINE NAME^9999999.142^^2;0
"^DD",9999999.14,9999999.14,2,21,0)
^^1^1^3140429^
"^DD",9999999.14,9999999.14,2,21,1,0)
This is the CDC Full Vaccine Name for this immunization.
"^DD",9999999.14,9999999.14,3,0)
CODING SYSTEM^9999999.143^^3;0
"^DD",9999999.14,9999999.14,3,21,0)
^^2^2^3140828^
"^DD",9999999.14,9999999.14,3,21,1,0)
This multiple stores the coding system(s) associated with the codes 
"^DD",9999999.14,9999999.14,3,21,2,0)
identifying this immunization.
"^DD",9999999.14,9999999.14,4,0)
VACCINE INFORMATION STATEMENT^9999999.144P^^4;0
"^DD",9999999.14,9999999.14,4,9)
^
"^DD",9999999.14,9999999.14,4,21,0)
^^2^2^3140828^
"^DD",9999999.14,9999999.14,4,21,1,0)
This multiple identifies the Vaccine Information Statement(s) 
"^DD",9999999.14,9999999.14,4,21,2,0)
associated with this immunization.
"^DD",9999999.14,9999999.14,5,0)
CDC PRODUCT NAME^9999999.145^^5;0
"^DD",9999999.14,9999999.14,5,9)
^
"^DD",9999999.14,9999999.14,5,21,0)
^^2^2^3140828^
"^DD",9999999.14,9999999.14,5,21,1,0)
This multiple stores the CDC Product Name(s) reflecting manufacturer 
"^DD",9999999.14,9999999.14,5,21,2,0)
trade names, but may not be identical to those registered trade names.
"^DD",9999999.14,9999999.14,10,0)
SYNONYM^9999999.141^^10;0
"^DD",9999999.14,9999999.14,10,21,0)
^^1^1^3140828^
"^DD",9999999.14,9999999.14,10,21,1,0)
This multiple stores locally editable synonyms for this immunization.
"^DD",9999999.14,9999999.14,99.97,0)
REPLACED BY VHA STANDARD TERM^P9999999.14'Ia^AUTTIMM(^VUID;3^Q
"^DD",9999999.14,9999999.14,99.97,1,0)
^.1
"^DD",9999999.14,9999999.14,99.97,1,1,0)
9999999.14^AREPLACETERM
"^DD",9999999.14,9999999.14,99.97,1,1,1)
S ^AUTTIMM("AREPLACETERM",$E(X,1,30),DA)=""
"^DD",9999999.14,9999999.14,99.97,1,1,2)
K ^AUTTIMM("AREPLACETERM",$E(X,1,30),DA)
"^DD",9999999.14,9999999.14,99.97,1,1,"%D",0)
^^2^2^3140520^
"^DD",9999999.14,9999999.14,99.97,1,1,"%D",1,0)
This cross-reference can be used to identify the replacement entries 
"^DD",9999999.14,9999999.14,99.97,1,1,"%D",2,0)
associated with a Term/Concept.
"^DD",9999999.14,9999999.14,99.97,1,1,"DT")
3140520
"^DD",9999999.14,9999999.14,99.97,3)
Enter the Term/Concept that replaces this entry.
"^DD",9999999.14,9999999.14,99.97,9)
^
"^DD",9999999.14,9999999.14,99.97,21,0)
^.001^4^4^3140521^^
"^DD",9999999.14,9999999.14,99.97,21,1,0)
This field is populated when one Term/Concept replaces another 
"^DD",9999999.14,9999999.14,99.97,21,2,0)
Term/Concept.  This field is controlled by standardization and should 
"^DD",9999999.14,9999999.14,99.97,21,3,0)
only be changed by standardization processes.  This field contains a 
"^DD",9999999.14,9999999.14,99.97,21,4,0)
pointer to a VHA standard term that replaces this entry.
"^DD",9999999.14,9999999.14,99.97,"AUDIT")
e
"^DD",9999999.14,9999999.14,99.97,"DT")
3140625
"^DD",9999999.14,9999999.14,99.98,0)
MASTER ENTRY FOR VUID^RSIa^1:YES;0:NO;^VUID;2^Q
"^DD",9999999.14,9999999.14,99.98,3)
Enter YES if this is the Master entry.
"^DD",9999999.14,9999999.14,99.98,9)
^
"^DD",9999999.14,9999999.14,99.98,21,0)
^^2^2^3140429^
"^DD",9999999.14,9999999.14,99.98,21,1,0)
This field identifies the Master entry for a VUID associated with a 
"^DD",9999999.14,9999999.14,99.98,21,2,0)
Term/Concept.
"^DD",9999999.14,9999999.14,99.98,"AUDIT")
e
"^DD",9999999.14,9999999.14,99.98,"DT")
3140625
"^DD",9999999.14,9999999.14,99.99,0)
VUID^RFXIa^^VUID;1^S X=+X K:$L(X)>20!($L(X)<1)!'(X?1.20N) X
"^DD",9999999.14,9999999.14,99.99,1,0)
^.1
"^DD",9999999.14,9999999.14,99.99,1,1,0)
9999999.14^AVUID
"^DD",9999999.14,9999999.14,99.99,1,1,1)
S ^AUTTIMM("AVUID",$E(X,1,30),DA)=""
"^DD",9999999.14,9999999.14,99.99,1,1,2)
K ^AUTTIMM("AVUID",$E(X,1,30),DA)
"^DD",9999999.14,9999999.14,99.99,1,1,3)
XXX--CAN'T BE ALTERED EXCEPT PROGRAMMER
"^DD",9999999.14,9999999.14,99.99,1,1,"%D",0)
^^1^1^3140429^
"^DD",9999999.14,9999999.14,99.99,1,1,"%D",1,0)
This cross-reference is by VUID.
"^DD",9999999.14,9999999.14,99.99,1,1,"DT")
3140429
"^DD",9999999.14,9999999.14,99.99,3)
Answer must be 1-20 characters in length.
"^DD",9999999.14,9999999.14,99.99,9)
^
"^DD",9999999.14,9999999.14,99.99,21,0)
^^2^2^3140429^
"^DD",9999999.14,9999999.14,99.99,21,1,0)
VHA Unique ID (VUID). A unique meaningless integer assigned to reference
"^DD",9999999.14,9999999.14,99.99,21,2,0)
terms VHA wide.
"^DD",9999999.14,9999999.14,99.99,"AUDIT")
e
"^DD",9999999.14,9999999.14,99.99,"DT")
3140625
"^DD",9999999.14,9999999.14,99.991,0)
EFFECTIVE DATE/TIME^9999999.1499DA^^TERMSTATUS;0
"^DD",9999999.14,9999999.14,99.991,9)
^
"^DD",9999999.14,9999999.14,99.991,21,0)
.001^.001^1^1^3140521^^^
"^DD",9999999.14,9999999.14,99.991,21,1,0)
Describes the pair Status and Effective Date/Time for each reference term.
"^DD",9999999.14,9999999.14,100,0)
CLASS^Sa^N:NATIONAL;V:VISN;L:LOCAL;^100;1^Q
"^DD",9999999.14,9999999.14,100,.1)
Class
"^DD",9999999.14,9999999.14,100,3)
Enter the CLASS.
"^DD",9999999.14,9999999.14,100,21,0)
^^1^1^3140430^
"^DD",9999999.14,9999999.14,100,21,1,0)
This is the CLASS of this Immunization. 
"^DD",9999999.14,9999999.14,100,"AUDIT")
e
"^DD",9999999.14,9999999.14,100,"DT")
3140625
"^DD",9999999.14,9999999.14,8801,0)
MNEMONIC^Fa^^88;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<1) X
"^DD",9999999.14,9999999.14,8801,.1)
Mnemonic
"^DD",9999999.14,9999999.14,8801,1,0)
^.1
"^DD",9999999.14,9999999.14,8801,1,1,0)
9999999.14^B^MNEMONIC
"^DD",9999999.14,9999999.14,8801,1,1,1)
S ^AUTTIMM("B",$E(X,1,30),DA)=1
"^DD",9999999.14,9999999.14,8801,1,1,2)
K ^AUTTIMM("B",$E(X,1,30),DA)
"^DD",9999999.14,9999999.14,8801,3)
Your answer must be 1-3 characters in length.
"^DD",9999999.14,9999999.14,8801,21,0)
^.001^3^3^3140430^^^^
"^DD",9999999.14,9999999.14,8801,21,1,0)
This is the mnemonic for this Immunization.
"^DD",9999999.14,9999999.14,8801,21,2,0)
 
"^DD",9999999.14,9999999.14,8801,21,3,0)
Enter a 1 to 3 character mnemonic.
"^DD",9999999.14,9999999.14,8801,"AUDIT")
e
"^DD",9999999.14,9999999.14,8801,"DT")
3140625
"^DD",9999999.14,9999999.14,8802,0)
ACRONYM^Fa^^88;2^K:$L(X)>20!($L(X)<1) X
"^DD",9999999.14,9999999.14,8802,.1)
Acronym
"^DD",9999999.14,9999999.14,8802,1,0)
^.1
"^DD",9999999.14,9999999.14,8802,1,1,0)
9999999.14^G
"^DD",9999999.14,9999999.14,8802,1,1,1)
S ^AUTTIMM("G",$E(X,1,30),DA)=""
"^DD",9999999.14,9999999.14,8802,1,1,2)
K ^AUTTIMM("G",$E(X,1,30),DA)
"^DD",9999999.14,9999999.14,8802,1,1,"%D",0)
^^1^1^3140602^
"^DD",9999999.14,9999999.14,8802,1,1,"%D",1,0)
This cross reference is used for lookup as well as sorting.
"^DD",9999999.14,9999999.14,8802,1,1,"DT")
3140602
"^DD",9999999.14,9999999.14,8802,3)
Answer must be 1-20 characters in length.
"^DD",9999999.14,9999999.14,8802,9)
^
"^DD",9999999.14,9999999.14,8802,21,0)
^.001^2^2^3140602^^
"^DD",9999999.14,9999999.14,8802,21,1,0)
This standardized vaccine acronym for this immunization is intended to 
"^DD",9999999.14,9999999.14,8802,21,2,0)
provide a uniform approach to vaccine references.
"^DD",9999999.14,9999999.14,8802,"AUDIT")
e
"^DD",9999999.14,9999999.14,8802,"DT")
3140625
"^DD",9999999.14,9999999.14,8803,0)
SELECTABLE FOR HISTORIC^RSa^Y:YES;N:NO;^6;1^Q
"^DD",9999999.14,9999999.14,8803,1,0)
^.1
"^DD",9999999.14,9999999.14,8803,3)
Enter YES if this inactive immunization is selectable for historic entries.
"^DD",9999999.14,9999999.14,8803,21,0)
^^2^2^3140609^
"^DD",9999999.14,9999999.14,8803,21,1,0)
This field determines whether an inactive immunization is selectable when 
"^DD",9999999.14,9999999.14,8803,21,2,0)
documenting a historic administration.
"^DD",9999999.14,9999999.14,8803,"AUDIT")
e
"^DD",9999999.14,9999999.14,8803,"DT")
3140625
"^DD",9999999.14,9999999.141,0)
SYNONYM SUB-FIELD^^.01^1
"^DD",9999999.14,9999999.141,0,"DT")
3140602
"^DD",9999999.14,9999999.141,0,"IX","B",9999999.141,.01)

"^DD",9999999.14,9999999.141,0,"NM","SYNONYM")

"^DD",9999999.14,9999999.141,0,"UP")
9999999.14
"^DD",9999999.14,9999999.141,.01,0)
SYNONYM^MFa^^0;1^K:$L(X)>30!($L(X)<1) X
"^DD",9999999.14,9999999.141,.01,.1)
Synonym
"^DD",9999999.14,9999999.141,.01,1,0)
^.1
"^DD",9999999.14,9999999.141,.01,1,1,0)
9999999.141^B
"^DD",9999999.14,9999999.141,.01,1,1,1)
S ^AUTTIMM(DA(1),10,"B",$E(X,1,30),DA)=""
"^DD",9999999.14,9999999.141,.01,1,1,2)
K ^AUTTIMM(DA(1),10,"B",$E(X,1,30),DA)
"^DD",9999999.14,9999999.141,.01,1,2,0)
9999999.14^F
"^DD",9999999.14,9999999.141,.01,1,2,1)
S ^AUTTIMM("F",$E(X,1,30),DA(1),DA)=""
"^DD",9999999.14,9999999.141,.01,1,2,2)
K ^AUTTIMM("F",$E(X,1,30),DA(1),DA)
"^DD",9999999.14,9999999.141,.01,1,2,"%D",0)
^^1^1^3140602^
"^DD",9999999.14,9999999.141,.01,1,2,"%D",1,0)
This cross reference is used for lookup as well as sorting.
"^DD",9999999.14,9999999.141,.01,1,2,"DT")
3140602
"^DD",9999999.14,9999999.141,.01,3)
Answer must be 1-30 characters in length.
"^DD",9999999.14,9999999.141,.01,21,0)
^.001^1^1^3140602^^
"^DD",9999999.14,9999999.141,.01,21,1,0)
This locally editable field stores a synonym for this immunization.
"^DD",9999999.14,9999999.141,.01,"AUDIT")
y
"^DD",9999999.14,9999999.141,.01,"DT")
3140625
"^DD",9999999.14,9999999.142,0)
CDC FULL VACCINE NAME SUB-FIELD^^.01^1
"^DD",9999999.14,9999999.142,0,"DT")
3140429
"^DD",9999999.14,9999999.142,0,"NM","CDC FULL VACCINE NAME")

"^DD",9999999.14,9999999.142,0,"UP")
9999999.14
"^DD",9999999.14,9999999.142,.01,0)
CDC FULL VACCINE NAME^Wx^^0;1^Q
"^DD",9999999.14,9999999.142,.01,.1)
CDC Full Vaccine Name
"^DD",9999999.14,9999999.142,.01,3)
Enter the CDC Full Vaccine Name.
"^DD",9999999.14,9999999.142,.01,21,0)
^.001^1^1^3140429^^
"^DD",9999999.14,9999999.142,.01,21,1,0)
This is the CDC Full Vaccine Name for this immunization.
"^DD",9999999.14,9999999.142,.01,"DT")
3140429
"^DD",9999999.14,9999999.143,0)
CODING SYSTEM SUB-FIELD^^.02^2
"^DD",9999999.14,9999999.143,0,"DT")
3140529
"^DD",9999999.14,9999999.143,0,"IX","B",9999999.143,.01)

"^DD",9999999.14,9999999.143,0,"NM","CODING SYSTEM")

"^DD",9999999.14,9999999.143,0,"UP")
9999999.14
"^DD",9999999.14,9999999.143,.01,0)
CODING SYSTEM^MFa^^0;1^K:$L(X)>7!($L(X)<3) X
"^DD",9999999.14,9999999.143,.01,.1)
Coding System
"^DD",9999999.14,9999999.143,.01,1,0)
^.1
"^DD",9999999.14,9999999.143,.01,1,1,0)
9999999.143^B
"^DD",9999999.14,9999999.143,.01,1,1,1)
S ^AUTTIMM(DA(1),3,"B",$E(X,1,30),DA)=""
"^DD",9999999.14,9999999.143,.01,1,1,2)
K ^AUTTIMM(DA(1),3,"B",$E(X,1,30),DA)
"^DD",9999999.14,9999999.143,.01,3)
Answer must be 3-7 characters in length.
"^DD",9999999.14,9999999.143,.01,21,0)
^^2^2^3140529^
"^DD",9999999.14,9999999.143,.01,21,1,0)
This field indicates the coding system associated with the codes 
"^DD",9999999.14,9999999.143,.01,21,2,0)
identifying this immunization.
"^DD",9999999.14,9999999.143,.01,"AUDIT")
y
"^DD",9999999.14,9999999.143,.01,"DT")
3140625
"^DD",9999999.14,9999999.143,.02,0)
CODE^9999999.1431^^1;0
"^DD",9999999.14,9999999.143,.02,21,0)
^^2^2^3140828^
"^DD",9999999.14,9999999.143,.02,21,1,0)
This multiple stores the code(s) representing this immunization within 
"^DD",9999999.14,9999999.143,.02,21,2,0)
this coding system.
"^DD",9999999.14,9999999.1431,0)
CODE SUB-FIELD^^.01^1
"^DD",9999999.14,9999999.1431,0,"DT")
3140529
"^DD",9999999.14,9999999.1431,0,"IX","B",9999999.1431,.01)

"^DD",9999999.14,9999999.1431,0,"NM","CODE")

"^DD",9999999.14,9999999.1431,0,"UP")
9999999.143
"^DD",9999999.14,9999999.1431,.01,0)
CODE^Fa^^0;1^K:$L(X)>30!($L(X)<1) X
"^DD",9999999.14,9999999.1431,.01,.1)
Code
"^DD",9999999.14,9999999.1431,.01,1,0)
^.1
"^DD",9999999.14,9999999.1431,.01,1,1,0)
9999999.1431^B
"^DD",9999999.14,9999999.1431,.01,1,1,1)
S ^AUTTIMM(DA(2),3,DA(1),1,"B",$E(X,1,30),DA)=""
"^DD",9999999.14,9999999.1431,.01,1,1,2)
K ^AUTTIMM(DA(2),3,DA(1),1,"B",$E(X,1,30),DA)
"^DD",9999999.14,9999999.1431,.01,3)
Answer must be 1-30 characters in length.
"^DD",9999999.14,9999999.1431,.01,21,0)
^.001^1^1^3140529^^
"^DD",9999999.14,9999999.1431,.01,21,1,0)
This code represents this immunization within this coding system.
"^DD",9999999.14,9999999.1431,.01,"AUDIT")
y
"^DD",9999999.14,9999999.1431,.01,"DT")
3140625
"^DD",9999999.14,9999999.144,0)
VACCINE INFORMATION STATEMENT SUB-FIELD^^.01^1
"^DD",9999999.14,9999999.144,0,"DT")
3140506
"^DD",9999999.14,9999999.144,0,"IX","B",9999999.144,.01)

"^DD",9999999.14,9999999.144,0,"NM","VACCINE INFORMATION STATEMENT")

"^DD",9999999.14,9999999.144,0,"UP")
9999999.14
"^DD",9999999.14,9999999.144,.01,0)
VACCINE INFORMATION STATEMENT^MP920'OXa^AUTTIVIS(^0;1^S DINUM=X Q
"^DD",9999999.14,9999999.144,.01,.1)
Vaccine Information Statement
"^DD",9999999.14,9999999.144,.01,1,0)
^.1
"^DD",9999999.14,9999999.144,.01,1,1,0)
9999999.144^B
"^DD",9999999.14,9999999.144,.01,1,1,1)
S ^AUTTIMM(DA(1),4,"B",$E(X,1,30),DA)=""
"^DD",9999999.14,9999999.144,.01,1,1,2)
K ^AUTTIMM(DA(1),4,"B",$E(X,1,30),DA)
"^DD",9999999.14,9999999.144,.01,2)
S Y(0)=Y S Y(0)=Y D VIS^PXVUTIL
"^DD",9999999.14,9999999.144,.01,2.1)
S Y(0)=Y D VIS^PXVUTIL
"^DD",9999999.14,9999999.144,.01,3)
Enter a Vaccine Information Statement for this immunization.
"^DD",9999999.14,9999999.144,.01,9)
^
"^DD",9999999.14,9999999.144,.01,21,0)
^.001^2^2^3140506^^
"^DD",9999999.14,9999999.144,.01,21,1,0)
This is the name of the Vaccine Information Statement associated with 
"^DD",9999999.14,9999999.144,.01,21,2,0)
this immunization.
"^DD",9999999.14,9999999.144,.01,"AUDIT")
y
"^DD",9999999.14,9999999.144,.01,"DT")
3140625
"^DD",9999999.14,9999999.145,0)
CDC PRODUCT NAME SUB-FIELD^^.01^1
"^DD",9999999.14,9999999.145,0,"DT")
3140602
"^DD",9999999.14,9999999.145,0,"IX","B",9999999.145,.01)

"^DD",9999999.14,9999999.145,0,"NM","CDC PRODUCT NAME")

"^DD",9999999.14,9999999.145,0,"UP")
9999999.14
"^DD",9999999.14,9999999.145,.01,0)
CDC PRODUCT NAME^MFIa^^0;1^K:$L(X)>30!($L(X)<1) X
"^DD",9999999.14,9999999.145,.01,.1)
CDC Product Name
"^DD",9999999.14,9999999.145,.01,1,0)
^.1
"^DD",9999999.14,9999999.145,.01,1,1,0)
9999999.145^B
"^DD",9999999.14,9999999.145,.01,1,1,1)
S ^AUTTIMM(DA(1),5,"B",$E(X,1,30),DA)=""
"^DD",9999999.14,9999999.145,.01,1,1,2)
K ^AUTTIMM(DA(1),5,"B",$E(X,1,30),DA)
"^DD",9999999.14,9999999.145,.01,1,2,0)
9999999.14^H
"^DD",9999999.14,9999999.145,.01,1,2,1)
S ^AUTTIMM("H",$E(X,1,30),DA(1),DA)=""
"^DD",9999999.14,9999999.145,.01,1,2,2)
K ^AUTTIMM("H",$E(X,1,30),DA(1),DA)
"^DD",9999999.14,9999999.145,.01,1,2,"%D",0)
^^1^1^3140602^
"^DD",9999999.14,9999999.145,.01,1,2,"%D",1,0)
This cross reference is used for lookup as well as sorting.
"^DD",9999999.14,9999999.145,.01,1,2,"DT")
3140602
"^DD",9999999.14,9999999.145,.01,3)
Answer must be 1-30 characters in length.
"^DD",9999999.14,9999999.145,.01,9)
^
"^DD",9999999.14,9999999.145,.01,21,0)
^.001^2^2^3140602^^
"^DD",9999999.14,9999999.145,.01,21,1,0)
This is the CDC Product Name which reflects manufacturer trade names, but 
"^DD",9999999.14,9999999.145,.01,21,2,0)
may not be identical to those registered trade names.
"^DD",9999999.14,9999999.145,.01,"AUDIT")
y
"^DD",9999999.14,9999999.145,.01,"DT")
3140625
"^DD",9999999.14,9999999.1499,0)
EFFECTIVE DATE/TIME SUB-FIELD^^.02^2
"^DD",9999999.14,9999999.1499,0,"DT")
3140429
"^DD",9999999.14,9999999.1499,0,"IX","B",9999999.1499,.01)

"^DD",9999999.14,9999999.1499,0,"NM","EFFECTIVE DATE/TIME")

"^DD",9999999.14,9999999.1499,0,"UP")
9999999.14
"^DD",9999999.14,9999999.1499,.01,0)
EFFECTIVE DATE/TIME^RDIXa^^0;1^S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
"^DD",9999999.14,9999999.1499,.01,.1)

"^DD",9999999.14,9999999.1499,.01,1,0)
^.1
"^DD",9999999.14,9999999.1499,.01,1,1,0)
9999999.1499^B
"^DD",9999999.14,9999999.1499,.01,1,1,1)
S ^AUTTIMM(DA(1),"TERMSTATUS","B",$E(X,1,30),DA)=""
"^DD",9999999.14,9999999.1499,.01,1,1,2)
K ^AUTTIMM(DA(1),"TERMSTATUS","B",$E(X,1,30),DA)
"^DD",9999999.14,9999999.1499,.01,1,1,"%D",0)
^^1^1^3140527^
"^DD",9999999.14,9999999.1499,.01,1,1,"%D",1,0)
This cross-reference is by Effective Date/Time.
"^DD",9999999.14,9999999.1499,.01,3)
Enter the date/time when the Status of the reference term was established.
"^DD",9999999.14,9999999.1499,.01,9)
^
"^DD",9999999.14,9999999.1499,.01,21,0)
^^2^2^3140521^
"^DD",9999999.14,9999999.1499,.01,21,1,0)
This is the date/time when the Status of the reference term was 
"^DD",9999999.14,9999999.1499,.01,21,2,0)
established.
"^DD",9999999.14,9999999.1499,.01,"AUDIT")
y
"^DD",9999999.14,9999999.1499,.01,"DT")
3140625
"^DD",9999999.14,9999999.1499,.02,0)
STATUS^RSIa^1:ACTIVE;0:INACTIVE;^0;2^Q
"^DD",9999999.14,9999999.1499,.02,3)
Enter the Status of reference term, ACTIVE or INACTIVE.
"^DD",9999999.14,9999999.1499,.02,9)
^
"^DD",9999999.14,9999999.1499,.02,21,0)
^^4^4^3140527^
"^DD",9999999.14,9999999.1499,.02,21,1,0)
The Status of a reference term is either 'ACTIVE' or 'INACTIVE'. If 
"^DD",9999999.14,9999999.1499,.02,21,2,0)
'ACTIVE', then the term will be accessible by end-users to document a
"^DD",9999999.14,9999999.1499,.02,21,3,0)
particular patient event. If 'INACTIVE', then the term will only be
"^DD",9999999.14,9999999.1499,.02,21,4,0)
accessible by the application to display legacy data.
"^DD",9999999.14,9999999.1499,.02,"AUDIT")
e
"^DD",9999999.14,9999999.1499,.02,"DT")
3140625
"^DD",9999999.41,9999999.41,0)
FIELD^^.18^17
"^DD",9999999.41,9999999.41,0,"DDA")
N
"^DD",9999999.41,9999999.41,0,"DT")
3140610
"^DD",9999999.41,9999999.41,0,"ID",.02)
S %I=Y,Y=$S('$D(^(0)):"",$D(^AUTTIMAN(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""),C=$P(^DD(9999999.04,.01,0),U,2) D Y^DIQ:Y]"" W "   ",Y,@("$E("_DIC_"%I,0),0)") S Y=%I K %I
"^DD",9999999.41,9999999.41,0,"ID",.12)
D EN^DDIOL("   "_+$P(^(0),U,12)_" DOSES UNUSED")
"^DD",9999999.41,9999999.41,0,"IX","AE",9999999.41,.09)

"^DD",9999999.41,9999999.41,0,"IX","B",9999999.41,.01)

"^DD",9999999.41,9999999.41,0,"IX","C",9999999.41,.04)

"^DD",9999999.41,9999999.41,0,"NM","IMMUNIZATION LOT")

"^DD",9999999.41,9999999.41,0,"PT",9000010.11,.05)

"^DD",9999999.41,9999999.41,0,"PT",9000010.11,1207)

"^DD",9999999.41,9999999.41,0,"PT",9999999.14,.04)

"^DD",9999999.41,9999999.41,.01,0)
LOT NUMBER^RF^^0;1^K:$L(X)>25!($L(X)<3)!'(X'?1P.E) X
"^DD",9999999.41,9999999.41,.01,.1)
Lot Number
"^DD",9999999.41,9999999.41,.01,1,0)
^.1
"^DD",9999999.41,9999999.41,.01,1,1,0)
9999999.41^B
"^DD",9999999.41,9999999.41,.01,1,1,1)
S ^AUTTIML("B",$E(X,1,30),DA)=""
"^DD",9999999.41,9999999.41,.01,1,1,2)
K ^AUTTIML("B",$E(X,1,30),DA)
"^DD",9999999.41,9999999.41,.01,3)
Answer must be 3-25 characters in length.
"^DD",9999999.41,9999999.41,.01,21,0)
^.001^1^1^3140515^^
"^DD",9999999.41,9999999.41,.01,21,1,0)
This is the lot number of a manufacturer's immunization/vaccine product.
"^DD",9999999.41,9999999.41,.01,23,0)
^.001^4^4^3140515^^
"^DD",9999999.41,9999999.41,.01,23,1,0)
A manufacturer's lot number for an immunization, 3-25 characters.
"^DD",9999999.41,9999999.41,.01,23,2,0)
In the Department of Veterans Affairs version of this file, more than
"^DD",9999999.41,9999999.41,.01,23,3,0)
one entry may have the same LOT NUMBER, but entries must have a unique
"^DD",9999999.41,9999999.41,.01,23,4,0)
combination of LOT NUMBER and MANUFACTURER.
"^DD",9999999.41,9999999.41,.01,"DT")
3140505
"^DD",9999999.41,9999999.41,.02,0)
MANUFACTURER^R*P9999999.04'^AUTTIMAN(^0;2^S DIC("S")="I '$P(^AUTTIMAN(Y,0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
"^DD",9999999.41,9999999.41,.02,.1)
Manufacturer
"^DD",9999999.41,9999999.41,.02,3)
Select the manufacturer of this lot number.
"^DD",9999999.41,9999999.41,.02,12)
You can only select a manufacturer with a STATUS of ACTIVE.
"^DD",9999999.41,9999999.41,.02,12.1)
S DIC("S")="I '$P(^AUTTIMAN(Y,0),U,3)"
"^DD",9999999.41,9999999.41,.02,21,0)
^.001^2^2^3140515^^^^
"^DD",9999999.41,9999999.41,.02,21,1,0)
This is the manufacturer using this lot number.  You will only be able to
"^DD",9999999.41,9999999.41,.02,21,2,0)
select manufacturers with a STATUS of ACTIVE.
"^DD",9999999.41,9999999.41,.02,23,0)
^.001^3^3^3140515^^^^
"^DD",9999999.41,9999999.41,.02,23,1,0)
This field is a pointer to the IMM MANFACTURER file (9999999.04).
"^DD",9999999.41,9999999.41,.02,23,2,0)
The field is screened so that only manufacturers with status of active
"^DD",9999999.41,9999999.41,.02,23,3,0)
can be seen in the lookup.
"^DD",9999999.41,9999999.41,.02,"DT")
3140515
"^DD",9999999.41,9999999.41,.03,0)
STATUS^S^2:EXPIRED;1:INACTIVE;0:ACTIVE;^0;3^Q
"^DD",9999999.41,9999999.41,.03,.1)
Status
"^DD",9999999.41,9999999.41,.03,3)
Enter '1' or 'INACTIVE' to designate this lot as inactive.
"^DD",9999999.41,9999999.41,.03,21,0)
^.001^3^3^3140515^^^^
"^DD",9999999.41,9999999.41,.03,21,1,0)
This is the status of this lot number, used to determine if this lot is
"^DD",9999999.41,9999999.41,.03,21,2,0)
usable.  As long this field is blank or has a value of '0', it will be
"^DD",9999999.41,9999999.41,.03,21,3,0)
seen as ACTIVE.  If a '1' is entered, it will be seen as INACTIVE.
"^DD",9999999.41,9999999.41,.03,23,0)
^.001^2^2^3140515^^^^
"^DD",9999999.41,9999999.41,.03,23,1,0)
This field is seen as ACTIVE as long it is blank or a '0', which may
"^DD",9999999.41,9999999.41,.03,23,2,0)
be the opposite of what you are used to seeing.
"^DD",9999999.41,9999999.41,.03,"DT")
3140515
"^DD",9999999.41,9999999.41,.04,0)
VACCINE^*P9999999.14'^AUTTIMM(^0;4^S DIC("S")="I '$P(^(0),U,7)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
"^DD",9999999.41,9999999.41,.04,.1)
Vaccine
"^DD",9999999.41,9999999.41,.04,1,0)
^.1
"^DD",9999999.41,9999999.41,.04,1,1,0)
9999999.41^C
"^DD",9999999.41,9999999.41,.04,1,1,1)
S ^AUTTIML("C",$E(X,1,30),DA)=""
"^DD",9999999.41,9999999.41,.04,1,1,2)
K ^AUTTIML("C",$E(X,1,30),DA)
"^DD",9999999.41,9999999.41,.04,1,1,3)
This cross reference is used for lookups.
"^DD",9999999.41,9999999.41,.04,1,1,"%D",0)
^.101^2^2^3140721^^
"^DD",9999999.41,9999999.41,.04,1,1,"%D",1,0)
This cross reference allows lot numbers to be selected by their
"^DD",9999999.41,9999999.41,.04,1,1,"%D",2,0)
associated IMMUNIZATION (VACCINE).
"^DD",9999999.41,9999999.41,.04,1,1,"DT")
3140527
"^DD",9999999.41,9999999.41,.04,3)
Enter a vaccine that uses this lot number and manufacturer.
"^DD",9999999.41,9999999.41,.04,12)
Vaccine must be active.
"^DD",9999999.41,9999999.41,.04,12.1)
S DIC("S")="I '$P(^(0),U,7)"
"^DD",9999999.41,9999999.41,.04,21,0)
^.001^2^2^3140828^^^^
"^DD",9999999.41,9999999.41,.04,21,1,0)
This is a VACCINE that is labeled with this lot number and produced by
"^DD",9999999.41,9999999.41,.04,21,2,0)
lot's manufacturer.  The vaccine must designated as active.
"^DD",9999999.41,9999999.41,.04,"DT")
3140527
"^DD",9999999.41,9999999.41,.05,0)
VACCINE #2^P9999999.14'^AUTTIMM(^0;5^Q
"^DD",9999999.41,9999999.41,.05,3)
Enter a vaccine that has this lot number and manufacturer.
"^DD",9999999.41,9999999.41,.05,21,0)
^^2^2^3140828^
"^DD",9999999.41,9999999.41,.05,21,1,0)
This is a VACCINE that is labeled with this lot number and produced by
"^DD",9999999.41,9999999.41,.05,21,2,0)
lot's manufacturer.
"^DD",9999999.41,9999999.41,.05,23,0)
^.001^3^3^3140828^^
"^DD",9999999.41,9999999.41,.05,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.41,9999999.41,.05,23,2,0)
included for backward compatibility with the Indian Health Service version
"^DD",9999999.41,9999999.41,.05,23,3,0)
of the file.
"^DD",9999999.41,9999999.41,.05,"DT")
3140513
"^DD",9999999.41,9999999.41,.06,0)
VACCINE #3^P9999999.14'^AUTTIMM(^0;6^Q
"^DD",9999999.41,9999999.41,.06,.1)
Vaccine #3
"^DD",9999999.41,9999999.41,.06,3)
Enter a vaccine that has this lot number and manufacturer.
"^DD",9999999.41,9999999.41,.06,21,0)
^^2^2^3140828^
"^DD",9999999.41,9999999.41,.06,21,1,0)
This is a VACCINE that is labeled with this lot number and produced by
"^DD",9999999.41,9999999.41,.06,21,2,0)
lot's manufacturer.
"^DD",9999999.41,9999999.41,.06,23,0)
^^3^3^3140625^
"^DD",9999999.41,9999999.41,.06,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.41,9999999.41,.06,23,2,0)
included for backward compatibility with the Indian Health Service version
"^DD",9999999.41,9999999.41,.06,23,3,0)
of the file.
"^DD",9999999.41,9999999.41,.06,"DT")
3140610
"^DD",9999999.41,9999999.41,.07,0)
VACCINE #4^P9999999.14'^AUTTIMM(^0;7^Q
"^DD",9999999.41,9999999.41,.07,3)
Enter a vaccine that has this lot number and manufacturer.
"^DD",9999999.41,9999999.41,.07,21,0)
^^2^2^3140828^
"^DD",9999999.41,9999999.41,.07,21,1,0)
This is a VACCINE that is labeled with this lot number and produced by
"^DD",9999999.41,9999999.41,.07,21,2,0)
lot's manufacturer.
"^DD",9999999.41,9999999.41,.07,23,0)
^^3^3^3140625^
"^DD",9999999.41,9999999.41,.07,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.41,9999999.41,.07,23,2,0)
included for backward compatibility with the Indian Health Service version
"^DD",9999999.41,9999999.41,.07,23,3,0)
of the file.
"^DD",9999999.41,9999999.41,.07,"DT")
3140610
"^DD",9999999.41,9999999.41,.08,0)
VACCINE #5^P9999999.14'^AUTTIMM(^0;8^Q
"^DD",9999999.41,9999999.41,.08,3)
Enter vaccine that has this lot number and manufacturer.
"^DD",9999999.41,9999999.41,.08,21,0)
^^2^2^3140828^
"^DD",9999999.41,9999999.41,.08,21,1,0)
This is a VACCINE that is labeled with this lot number and produced by
"^DD",9999999.41,9999999.41,.08,21,2,0)
lot's manufacturer.
"^DD",9999999.41,9999999.41,.08,23,0)
^^3^3^3140625^
"^DD",9999999.41,9999999.41,.08,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.41,9999999.41,.08,23,2,0)
included for backward compatibility with the Indian Health Service version
"^DD",9999999.41,9999999.41,.08,23,3,0)
of the file.
"^DD",9999999.41,9999999.41,.08,"DT")
3140610
"^DD",9999999.41,9999999.41,.09,0)
EXPIRATION DATE^D^^0;9^S %DT="EX" D ^%DT S X=Y K:Y<1 X
"^DD",9999999.41,9999999.41,.09,.1)
Expiration Date
"^DD",9999999.41,9999999.41,.09,1,0)
^.1
"^DD",9999999.41,9999999.41,.09,1,1,0)
9999999.41^AE
"^DD",9999999.41,9999999.41,.09,1,1,1)
S ^AUTTIML("AE",$E(X,1,30),DA)=""
"^DD",9999999.41,9999999.41,.09,1,1,2)
K ^AUTTIML("AE",$E(X,1,30),DA)
"^DD",9999999.41,9999999.41,.09,1,1,"%D",0)
^.101^2^2^3140513^^
"^DD",9999999.41,9999999.41,.09,1,1,"%D",1,0)
Used by a task set to run nightly to change the status of lot numbers
"^DD",9999999.41,9999999.41,.09,1,1,"%D",2,0)
that have expired.
"^DD",9999999.41,9999999.41,.09,1,1,"DT")
3140507
"^DD",9999999.41,9999999.41,.09,3)
Enter the expiration date for this lot number.
"^DD",9999999.41,9999999.41,.09,21,0)
^.001^2^2^3140515^^^
"^DD",9999999.41,9999999.41,.09,21,1,0)
This is the date that the immunization represented by this lot number is
"^DD",9999999.41,9999999.41,.09,21,2,0)
due to expire, as determined by the manufacturer.
"^DD",9999999.41,9999999.41,.09,23,0)
^.001^4^4^3140515^^
"^DD",9999999.41,9999999.41,.09,23,1,0)
This field is used to determine if the immunization represented by this 
"^DD",9999999.41,9999999.41,.09,23,2,0)
lot number has expired.  This field is checked nightly by a background
"^DD",9999999.41,9999999.41,.09,23,3,0)
task.  If the EXPIRATION DATE is equal to that day's date (or in the past),
"^DD",9999999.41,9999999.41,.09,23,4,0)
the STATUS field is set to "EXPIRED".
"^DD",9999999.41,9999999.41,.09,"DT")
3140507
"^DD",9999999.41,9999999.41,.11,0)
STARTING COUNT^NJ5,0^^0;11^K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
"^DD",9999999.41,9999999.41,.11,.1)
Starting Count
"^DD",9999999.41,9999999.41,.11,1,0)
^.1
"^DD",9999999.41,9999999.41,.11,1,1,0)
^^TRIGGER^9999999.41^.12
"^DD",9999999.41,9999999.41,.11,1,1,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^AUTTIML(D0,0)):^(0),1:"") S X=$P(Y(1),U,12)="" I X S X=DIV S Y(1)=$S($D(^AUTTIML(D0,0)):^(0),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(9999999.41,.11,1,1,1.4)
"^DD",9999999.41,9999999.41,.11,1,1,1.4)
S DIH=$G(^AUTTIML(DIV(0),0)),DIV=X S $P(^(0),U,12)=DIV,DIH=9999999.41,DIG=.12 D ^DICR
"^DD",9999999.41,9999999.41,.11,1,1,2)
Q
"^DD",9999999.41,9999999.41,.11,1,1,"%D",0)
^^2^2^3140507^
"^DD",9999999.41,9999999.41,.11,1,1,"%D",1,0)
When the STARTING COUNT is entered, DOSES UNUSED is checked.  If DOSES
"^DD",9999999.41,9999999.41,.11,1,1,"%D",2,0)
UNUSED is NULL, then it is set to the STARTING COUNT.
"^DD",9999999.41,9999999.41,.11,1,1,"CREATE CONDITION")
DOSES UNUSED=""
"^DD",9999999.41,9999999.41,.11,1,1,"CREATE VALUE")
STARTING COUNT
"^DD",9999999.41,9999999.41,.11,1,1,"DELETE VALUE")
NO EFFECT
"^DD",9999999.41,9999999.41,.11,1,1,"FIELD")
DOSES UNUSED
"^DD",9999999.41,9999999.41,.11,1,1,"NOREINDEX")
1
"^DD",9999999.41,9999999.41,.11,3)
Enter the initial number of doses for this lot.
"^DD",9999999.41,9999999.41,.11,21,0)
^.001^1^1^3140515^^^^
"^DD",9999999.41,9999999.41,.11,21,1,0)
This is the starting number of doses for this lot, from 1 to 99,999.
"^DD",9999999.41,9999999.41,.11,23,0)
^.001^3^3^3140515^^^
"^DD",9999999.41,9999999.41,.11,23,1,0)
This is the initial number of doses for this lot, which should be a
"^DD",9999999.41,9999999.41,.11,23,2,0)
number from 1 to 99999.  If the DOSES UNUSED field is empty, it is
"^DD",9999999.41,9999999.41,.11,23,3,0)
automatically set to the number entered here, via a trigger.
"^DD",9999999.41,9999999.41,.11,"DT")
3140513
"^DD",9999999.41,9999999.41,.12,0)
DOSES UNUSED^NJ5,0X^^0;12^K:$S(+X'=X:1,X>99999:1,X<0:1,X?.E1"."1N.N:1,$P(^AUTTIML(DA,0),"^",11)="":0,1:X>$P(^(0),"^",11)) X
"^DD",9999999.41,9999999.41,.12,3)
Enter the number of doses remaining from this lot.
"^DD",9999999.41,9999999.41,.12,5,1,0)
9999999.41^.11^1
"^DD",9999999.41,9999999.41,.12,21,0)
^.001^2^2^3140507^^
"^DD",9999999.41,9999999.41,.12,21,1,0)
This is the number of remaining doses available for this lot.  The number
"^DD",9999999.41,9999999.41,.12,21,2,0)
cannot be greater than the original number of doses for this lot.
"^DD",9999999.41,9999999.41,.12,23,0)
^^3^3^3140507^
"^DD",9999999.41,9999999.41,.12,23,1,0)
This is the number doses for this lot that have not yet been used.  The 
"^DD",9999999.41,9999999.41,.12,23,2,0)
number entered is checked against the number entered for the STARTING COUNT
"^DD",9999999.41,9999999.41,.12,23,3,0)
field and cannot be greater.
"^DD",9999999.41,9999999.41,.12,"DT")
3140507
"^DD",9999999.41,9999999.41,.13,0)
VACCINE SOURCE^S^v:VFC;n:NON-VFC;o:Other State;i:IHS/Tribal;^0;13^Q
"^DD",9999999.41,9999999.41,.13,3)
Enter the source of this lot.
"^DD",9999999.41,9999999.41,.13,21,0)
^^1^1^3140828^
"^DD",9999999.41,9999999.41,.13,21,1,0)
This is the source of this lot, where it was obtained.
"^DD",9999999.41,9999999.41,.13,23,0)
^.001^3^3^3140828^^
"^DD",9999999.41,9999999.41,.13,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.41,9999999.41,.13,23,2,0)
included for backward compatibility with the Indian Health Service version
"^DD",9999999.41,9999999.41,.13,23,3,0)
of the file.
"^DD",9999999.41,9999999.41,.13,"DT")
3140507
"^DD",9999999.41,9999999.41,.14,0)
HEALTH CARE FACILITY^P9999999.06'^AUTTLOC(^0;14^Q
"^DD",9999999.41,9999999.41,.14,3)
Select the Health Care Facility (location) where this lot will be stored and used.
"^DD",9999999.41,9999999.41,.14,21,0)
^^1^1^3140828^
"^DD",9999999.41,9999999.41,.14,21,1,0)
This is the location (facility) where this lot will be stored and used.
"^DD",9999999.41,9999999.41,.14,23,0)
^.001^3^3^3140828^^
"^DD",9999999.41,9999999.41,.14,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.41,9999999.41,.14,23,2,0)
included for backward compatibility with the Indian Health Service version
"^DD",9999999.41,9999999.41,.14,23,3,0)
of the file.
"^DD",9999999.41,9999999.41,.14,"DT")
3140507
"^DD",9999999.41,9999999.41,.15,0)
LOW SUPPLY ALERT^NJ5,0X^^0;15^K:$S(+X'=X:1,X>99998:1,X<0:1,X?.E1"."1N.N:1,1:X>$P(^(0),U,11)) X
"^DD",9999999.41,9999999.41,.15,.1)
Low Supply Alert
"^DD",9999999.41,9999999.41,.15,3)
Enter the number of doses remaining that will trigger a Low Supply Alert for this lot, between 0 and 99,998.
"^DD",9999999.41,9999999.41,.15,21,0)
^.001^3^3^3140515^^^^
"^DD",9999999.41,9999999.41,.15,21,1,0)
This is a number that is used to determine if a Low Supply alert should be
"^DD",9999999.41,9999999.41,.15,21,2,0)
issued.  The number must be between 0 and 99,998 and cannot be greater
"^DD",9999999.41,9999999.41,.15,21,3,0)
than the STARTING COUNT.
"^DD",9999999.41,9999999.41,.15,23,0)
^.001^2^2^3140515^^
"^DD",9999999.41,9999999.41,.15,23,1,0)
A number field between 0 and 99998.  Input Transform also checks that the
"^DD",9999999.41,9999999.41,.15,23,2,0)
entry is not greater than the number in the STARTING COUNT field.
"^DD",9999999.41,9999999.41,.15,"DT")
3140513
"^DD",9999999.41,9999999.41,.16,0)
LOT NUMBER FOR EXPORT^F^^0;16^K:$L(X)>12!($L(X)<3) X
"^DD",9999999.41,9999999.41,.16,3)
Enter the official lot number to be used for export to other registries, 3 to 12 characters in length.
"^DD",9999999.41,9999999.41,.16,21,0)
^^2^2^3140829^^
"^DD",9999999.41,9999999.41,.16,21,1,0)
This is this lot number's corresponding official lot number to be used
"^DD",9999999.41,9999999.41,.16,21,2,0)
for exporting to other registries.
"^DD",9999999.41,9999999.41,.16,23,0)
^.001^3^3^3140829^^^
"^DD",9999999.41,9999999.41,.16,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.41,9999999.41,.16,23,2,0)
included for backward compatibility with the Indian Health Service version
"^DD",9999999.41,9999999.41,.16,23,3,0)
of the file.
"^DD",9999999.41,9999999.41,.16,"DT")
3140829
"^DD",9999999.41,9999999.41,.17,0)
NDC CODE^P9002084.95'^BINDC(^0;17^Q
"^DD",9999999.41,9999999.41,.17,.1)
NDC Code
"^DD",9999999.41,9999999.41,.17,3)
Select the NDC Code for this lot.
"^DD",9999999.41,9999999.41,.17,21,0)
^.001^1^1^3140829^^^^
"^DD",9999999.41,9999999.41,.17,21,1,0)
This is the NDC Code for this lot.
"^DD",9999999.41,9999999.41,.17,23,0)
^.001^6^6^3140829^^
"^DD",9999999.41,9999999.41,.17,23,1,0)
This field is not used by the Department of Veterans Affairs.  It is 
"^DD",9999999.41,9999999.41,.17,23,2,0)
included for backward compatibility with the Indian Health Service version
"^DD",9999999.41,9999999.41,.17,23,3,0)
of the file.
"^DD",9999999.41,9999999.41,.17,23,4,0)
 
"^DD",9999999.41,9999999.41,.17,23,5,0)
This field points to Indian Health Service's BI TABLE NDC CODES file
"^DD",9999999.41,9999999.41,.17,23,6,0)
(#9002084.95) which is not used by the Department of Veterans Affairs.
"^DD",9999999.41,9999999.41,.17,"DT")
3140508
"^DD",9999999.41,9999999.41,.18,0)
NDC CODE (VA)^P50.67'^PSNDF(50.67,^0;18^Q
"^DD",9999999.41,9999999.41,.18,.1)
NDC Code
"^DD",9999999.41,9999999.41,.18,3)
Select the NDC Code for this lot.
"^DD",9999999.41,9999999.41,.18,21,0)
^^2^2^3140829^^
"^DD",9999999.41,9999999.41,.18,21,1,0)
This is the NDC/UPN code 
"^DD",9999999.41,9999999.41,.18,21,2,0)
for this lot.
"^DD",9999999.41,9999999.41,.18,"DT")
3140829
"^DIC",920,920,0)
VACCINE INFORMATION STATEMENT^920
"^DIC",920,920,0,"GL")
^AUTTIVIS(
"^DIC",920,920,"%D",0)
^1.001^17^17^3140702^^
"^DIC",920,920,"%D",1,0)
Per VHA Directive 2005-044, this file has been "locked down" by Data 
"^DIC",920,920,"%D",2,0)
Standardization (DS).  The file definition (i.e. data dictionary) shall 
"^DIC",920,920,"%D",3,0)
not be modified.  All additions, changes and deletions to entries in 
"^DIC",920,920,"%D",4,0)
the file shall be done by Enterprise Reference Terminology (ERT) using
"^DIC",920,920,"%D",5,0)
the Master File Server (MFS), provided by Common Services (CS).   
"^DIC",920,920,"%D",6,0)
Creating and/or editing locally defined fields in the file are not
"^DIC",920,920,"%D",7,0)
permitted.  Use of locally defined fields that were created prior to VHA
"^DIC",920,920,"%D",8,0)
Directive 2005-044 shall not be supported.
"^DIC",920,920,"%D",9,0)
 
"^DIC",920,920,"%D",10,0)
This file stores Vaccine Information Statements (VISs). These are
"^DIC",920,920,"%D",11,0)
information sheets produced by the Centers for Disease Control and 
"^DIC",920,920,"%D",12,0)
Prevention (CDC) that explain both the benefits and risks of a vaccine
"^DIC",920,920,"%D",13,0)
to vaccine recipients.
"^DIC",920,920,"%D",14,0)
 
"^DIC",920,920,"%D",15,0)
Federal law requires that healthcare staff provide a VIS to a patient, 
"^DIC",920,920,"%D",16,0)
parent, or legal representative before each dose of certain 
"^DIC",920,920,"%D",17,0)
vaccinations.
"^DIC",920,"B","VACCINE INFORMATION STATEMENT",920)

"^DIC",920.1,920.1,0)
IMMUNIZATION INFO SOURCE^920.1
"^DIC",920.1,920.1,0,"GL")
^PXV(920.1,
"^DIC",920.1,920.1,"%",0)
^1.005^^
"^DIC",920.1,920.1,"%D",0)
^1.001^4^4^3140702^^^^
"^DIC",920.1,920.1,"%D",1,0)
This file is a table of standard possible sources from which the
"^DIC",920.1,920.1,"%D",2,0)
information about a particular immunization event was obtained. The data
"^DIC",920.1,920.1,"%D",3,0)
in this file are derived from the CDC-defined Immunization Information
"^DIC",920.1,920.1,"%D",4,0)
Source table (NIP001).
"^DIC",920.1,"B","IMMUNIZATION INFO SOURCE",920.1)

"^DIC",920.2,920.2,0)
IMM ADMINISTRATION ROUTE^920.2
"^DIC",920.2,920.2,0,"GL")
^PXV(920.2,
"^DIC",920.2,920.2,"%",0)
^1.005^^
"^DIC",920.2,920.2,"%D",0)
^1.001^12^12^3140706^^^^
"^DIC",920.2,920.2,"%D",1,0)
Per VHA Directive 2005-044, this file has been "locked down" by Data
"^DIC",920.2,920.2,"%D",2,0)
Standardization (DS).  The file definition (i.e. data dictionary) shall not
"^DIC",920.2,920.2,"%D",3,0)
be modified.  All additions, changes and deletions to entries in the file
"^DIC",920.2,920.2,"%D",4,0)
shall be done by Enterprise Reference Terminology (ERT) using the Master
"^DIC",920.2,920.2,"%D",5,0)
File Server (MFS), provided by Common Services (CS).  Creating and/or
"^DIC",920.2,920.2,"%D",6,0)
editing locally defined fields in the file is not permitted.  Use of
"^DIC",920.2,920.2,"%D",7,0)
locally defined fields that were created prior to the VHA Directive's
"^DIC",920.2,920.2,"%D",8,0)
effective date shall not be supported.
"^DIC",920.2,920.2,"%D",9,0)
  
"^DIC",920.2,920.2,"%D",10,0)
This file is a table of routes of administration for
"^DIC",920.2,920.2,"%D",11,0)
vaccines/immunization events. The data in this table
"^DIC",920.2,920.2,"%D",12,0)
are from the HL7-defined Table 0162 - Route of Administrations.
"^DIC",920.2,"B","IMM ADMINISTRATION ROUTE",920.2)

"^DIC",920.3,920.3,0)
IMM ADMINISTRATION SITE (BODY)^920.3
"^DIC",920.3,920.3,0,"GL")
^PXV(920.3,
"^DIC",920.3,920.3,"%D",0)
^1.001^12^12^3140708^^^^
"^DIC",920.3,920.3,"%D",1,0)
Per VHA Directive 2005-044, this file has been "locked down" by Data
"^DIC",920.3,920.3,"%D",2,0)
Standardization (DS).  The file definition (i.e. data dictionary) shall not
"^DIC",920.3,920.3,"%D",3,0)
be modified.  All additions, changes and deletions to entries in the file
"^DIC",920.3,920.3,"%D",4,0)
shall be done by Enterprise Reference Terminology (ERT) using the Master
"^DIC",920.3,920.3,"%D",5,0)
File Server (MFS), provided by Common Services (CS).  Creating and/or
"^DIC",920.3,920.3,"%D",6,0)
editing locally defined fields in the file is not permitted.  Use of
"^DIC",920.3,920.3,"%D",7,0)
locally defined fields that were created prior to the VHA Directive's
"^DIC",920.3,920.3,"%D",8,0)
2005-044 effective date shall not be supported.
"^DIC",920.3,920.3,"%D",9,0)
  
"^DIC",920.3,920.3,"%D",10,0)
This is a table of administration sites - areas of the patient's body
"^DIC",920.3,920.3,"%D",11,0)
through which a vaccine/immunization can be administered. The values
"^DIC",920.3,920.3,"%D",12,0)
in this table are from the HL7-defined Table 0163 - Administrative site.
"^DIC",920.3,"B","IMM ADMINISTRATION SITE (BODY)",920.3)

"^DIC",9000010.11,9000010.11,0)
V IMMUNIZATION^9000010.11IP
"^DIC",9000010.11,9000010.11,0,"GL")
^AUPNVIMM(
"^DIC",9000010.11,9000010.11,"%",0)
^1.005
"^DIC",9000010.11,9000010.11,"%D",0)
13^1.001^20^20^3141103^^^^
"^DIC",9000010.11,9000010.11,"%D",1,0)
In order to preserve the continuity of files shared by the Indian Health 
"^DIC",9000010.11,9000010.11,"%D",2,0)
Service and the Department of Veterans Affairs, this file includes fields 
"^DIC",9000010.11,9000010.11,"%D",3,0)
used by Indian Health Service that will not be used by the Department of 
"^DIC",9000010.11,9000010.11,"%D",4,0)
Veterans Affairs. These fields may point to other files and routines not 
"^DIC",9000010.11,9000010.11,"%D",5,0)
deployed by the Department of Veterans Affairs. Inclusion of these fields, 
"^DIC",9000010.11,9000010.11,"%D",6,0)
as designed, was approved by the DBA.  These fields were initially 
"^DIC",9000010.11,9000010.11,"%D",7,0)
introduced with the release of the VISTA IMMUNIZATION ENHANCEMENTS 1.0 
"^DIC",9000010.11,9000010.11,"%D",8,0)
(PX*1*201) for the VistA Immunization Enhancements Project.  Additional 
"^DIC",9000010.11,9000010.11,"%D",9,0)
fields may be included in later enhancements.  
"^DIC",9000010.11,9000010.11,"%D",10,0)
  
"^DIC",9000010.11,9000010.11,"%D",11,0)
This file contains immunizations specific to a particular visit for a 
"^DIC",9000010.11,9000010.11,"%D",12,0)
particular patient.  This file contains one record for each immunization.
"^DIC",9000010.11,9000010.11,"%D",13,0)
 
"^DIC",9000010.11,9000010.11,"%D",14,0)
In the VA, if a CPT code is entered into PCE that represents an
"^DIC",9000010.11,9000010.11,"%D",15,0)
immunization, than an immunization will automatically be entered in the V
"^DIC",9000010.11,9000010.11,"%D",16,0)
Immunization file.  And vice versa, if an immunization is entered into PCE
"^DIC",9000010.11,9000010.11,"%D",17,0)
that has a related CPT code, then a V CPT entry will automatically be
"^DIC",9000010.11,9000010.11,"%D",18,0)
created with the CPT code for the immunization.  The PCE Code Mapping file
"^DIC",9000010.11,9000010.11,"%D",19,0)
contains the definitions of what immunization is related to what CPT code,
"^DIC",9000010.11,9000010.11,"%D",20,0)
and vice versa.
"^DIC",9000010.11,"B","V IMMUNIZATION",9000010.11)

"^DIC",9999999.04,9999999.04,0)
IMM MANUFACTURER^9999999.04
"^DIC",9999999.04,9999999.04,0,"GL")
^AUTTIMAN(
"^DIC",9999999.04,9999999.04,"%",0)
^1.005^^
"^DIC",9999999.04,9999999.04,"%D",0)
^1.001^12^12^3140529^^^^
"^DIC",9999999.04,9999999.04,"%D",1,0)
Per VHA Directive 2005-044, this file has been "locked down" by Data
"^DIC",9999999.04,9999999.04,"%D",2,0)
Standardization (DS).  The file definition (i.e. data dictionary) shall not
"^DIC",9999999.04,9999999.04,"%D",3,0)
be modified.  All additions, changes and deletions to entries in the file
"^DIC",9999999.04,9999999.04,"%D",4,0)
shall be done by Enterprise Reference Terminology (ERT) using the Master
"^DIC",9999999.04,9999999.04,"%D",5,0)
File Server (MFS), provided by Common Services (CS).  Creating and/or
"^DIC",9999999.04,9999999.04,"%D",6,0)
editing locally defined fields in the file is not permitted.  Use of
"^DIC",9999999.04,9999999.04,"%D",7,0)
locally defined fields that were created prior to the VHA Directive's
"^DIC",9999999.04,9999999.04,"%D",8,0)
2005-044 effective date shall not be supported.
"^DIC",9999999.04,9999999.04,"%D",9,0)
 
"^DIC",9999999.04,9999999.04,"%D",10,0)
This file is a table of immunization and/or vaccine manufacturers. The
"^DIC",9999999.04,9999999.04,"%D",11,0)
data in this file are derived from the CDC (Center for Disease Control)
"^DIC",9999999.04,9999999.04,"%D",12,0)
HL7 Table 0227 (Manufacturers of Vaccines (MVX)).
"^DIC",9999999.04,"B","IMM MANUFACTURER",9999999.04)

"^DIC",9999999.14,9999999.14,0)
IMMUNIZATION^9999999.14I
"^DIC",9999999.14,9999999.14,0,"GL")
^AUTTIMM(
"^DIC",9999999.14,9999999.14,"%",0)
^1.005^1^1
"^DIC",9999999.14,9999999.14,"%",1,0)
PXRM
"^DIC",9999999.14,9999999.14,"%","B","PXRM",1)

"^DIC",9999999.14,9999999.14,"%D",0)
5^1.001^15^15^3141103^
"^DIC",9999999.14,9999999.14,"%D",1,0)
In order to preserve the continuity of files shared by the Indian Health 
"^DIC",9999999.14,9999999.14,"%D",2,0)
Service and the Department of Veterans Affairs, this file includes fields 
"^DIC",9999999.14,9999999.14,"%D",3,0)
used by Indian Health Service that will not be used by the Department of 
"^DIC",9999999.14,9999999.14,"%D",4,0)
Veterans Affairs. These fields may point to other files and routines not 
"^DIC",9999999.14,9999999.14,"%D",5,0)
deployed by the Department of Veterans Affairs. Inclusion of these fields, 
"^DIC",9999999.14,9999999.14,"%D",6,0)
as designed, was approved by the DBA.  These fields were initially 
"^DIC",9999999.14,9999999.14,"%D",7,0)
introduced with the release of the VISTA IMMUNIZATION ENHANCEMENTS 1.0 
"^DIC",9999999.14,9999999.14,"%D",8,0)
(PX*1*201) for the VistA Immunization Enhancements Project.  Additional 
"^DIC",9999999.14,9999999.14,"%D",9,0)
fields may be included in later enhancements.
"^DIC",9999999.14,9999999.14,"%D",10,0)
  
"^DIC",9999999.14,9999999.14,"%D",11,0)
This file is a list of Immunizations and associated codes developed
"^DIC",9999999.14,9999999.14,"%D",12,0)
specifically for use in the IHS.  This file contains a full descriptive 
"^DIC",9999999.14,9999999.14,"%D",13,0)
name for each Immunization, plus a shortened name of Ten Characters 
"^DIC",9999999.14,9999999.14,"%D",14,0)
which is used on the Health Summary and on reports where space is limited, 
"^DIC",9999999.14,9999999.14,"%D",15,0)
plus a Two Digit Code for each Immunization.
"^DIC",9999999.14,"B","IMMUNIZATION",9999999.14)

"^DIC",9999999.41,9999999.41,0)
IMMUNIZATION LOT^9999999.41
"^DIC",9999999.41,9999999.41,0,"GL")
^AUTTIML(
"^DIC",9999999.41,9999999.41,"%",0)
^1.005^^
"^DIC",9999999.41,9999999.41,"%D",0)
^1.001^16^16^3141103^^^^
"^DIC",9999999.41,9999999.41,"%D",1,0)
In order to preserve the continuity of files shared by the Indian Health 
"^DIC",9999999.41,9999999.41,"%D",2,0)
Service and the Department of Veterans Affairs, this file includes fields 
"^DIC",9999999.41,9999999.41,"%D",3,0)
used by Indian Health Service that will not be used by the Department of 
"^DIC",9999999.41,9999999.41,"%D",4,0)
Veterans Affairs. These fields may point to other files and routines not 
"^DIC",9999999.41,9999999.41,"%D",5,0)
deployed by the Department of Veterans Affairs. Inclusion of these fields, 
"^DIC",9999999.41,9999999.41,"%D",6,0)
as designed, was approved by the DBA.  These fields were initially 
"^DIC",9999999.41,9999999.41,"%D",7,0)
introduced with the release of the VISTA IMMUNIZATION ENHANCEMENTS 1.0 
"^DIC",9999999.41,9999999.41,"%D",8,0)
(PX*1*201) for the VistA Immunization Enhancements Project.  Additional 
"^DIC",9999999.41,9999999.41,"%D",9,0)
fields may be included in later enhancements.  
"^DIC",9999999.41,9999999.41,"%D",10,0)
  
"^DIC",9999999.41,9999999.41,"%D",11,0)
This file contains the Immunization Manufacturers' LOT NUMBERS for the 
"^DIC",9999999.41,9999999.41,"%D",12,0)
immunizations/vaccines administered in the VA.  The LOT NUMBERs themselves
"^DIC",9999999.41,9999999.41,"%D",13,0)
may not be unique, but the combination of LOT NUMBER and MANUFACTURER
"^DIC",9999999.41,9999999.41,"%D",14,0)
must form a unique entry.  This file also relies on a nightly background
"^DIC",9999999.41,9999999.41,"%D",15,0)
task that checks the entries' EXPIRATION DATE field.  If the date is equal
"^DIC",9999999.41,9999999.41,"%D",16,0)
to that day's date, or has passed, that entry's STATUS is set to EXPIRED.
"^DIC",9999999.41,"B","IMMUNIZATION LOT",9999999.41)

**END**
**END**
