Summary Table

Categories Total Count
PII 0
URL 0
DNS 2
EKL 0
IP 0
PORT 0
VsID 0
CF 0
AI 0
VPD 0
PL 0
Other 1

File Content

????>?? 9=????8??????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????7 ???bjbjQ?Q? .3??d3??d?
?????????????????? t?00000???????$??????00?.????0?0??????0??????zDW?????5n??D0t?T?T??T??(??t????????????????????????????????????????????????????????????????????T? ?: GMRAMCB * * 55 LINES, (total 2971, comments 537) BYTES Page 1
RSUM: old 7101401, new 11308743
UCI: VISTA,ROU Site: TEST.CHEYENNE
DOMAIN.EXT MAY 25,2018@10:47

GMRAMCB ;HIRMFO/WAA-MARK CHART & ID BAND FIELD EDIT ;9/22/06 12:52
;;4.0;Adverse Reaction Tracking;**21,36,59**;Mar 29, 1996;Build 9
EN3 ;Entry for EDIT CHART & ID BAND option
K GMRALL S GMRAOUT=0 D GETAL^GMRAMCB1 I GMRAOUT!'$D(GMRALL) L:DFN>0 -^GMR(120.8,"B",DFN) G Q3
D EN5 D:'GMRAOUT EN7
L -^GMR(120.8,"B",DFN)
G Q3
EN4(GMRALL,DFN) --
;THIS IS THE ENTRY POINT IF YOU KNOW THE ALLERGIES AND PATIENT
D EN5 D:'GMRAOUT EN7 Q
EN5 ;THIS IS THE ENTRY POINT TO BY PASS THE FORMAL LIST AGAIN
D VAD^GMRAUTL1(DFN,"",.GMRALOC,.GMRANAM,"",.GMRASSN)
N REQ S REQ=0,GMRAPA=0 F S GMRAPA=$O(GMRALL(GMRAPA)) Q:'+GMRAPA!(REQ) S:'$O(^GMR(120.8,GMRAPA,14,0))
REQ=1 ;36
S GMRATYPE="B",I=0,GMRAPA=0 W !,"This session you have CHOSEN:" F S GMRAPA=$O(GMRALL(GMRAPA)) Q:GMRAP
A<1 S I=I+1 W !,?5,$P($G(^GMR(120.8,GMRAPA,0)),U,2)
W ! D SITE^GMRAUTL S GMRASITE(0)=$G(^GMRD(120.84,+GMRASITE,0)),GMRAOUT=0
F GMRAMARK="13^Chart(s)","14^ID Band" S GMRAM2=$P(GMRAMARK,"^",2),GMRAM1=$P(GMRAMARK,"^") D Q:GMRAOUT
.I GMRAM1=14,($P(GMRASITE(0),U,5)=0!(GMRALOC=""))!('REQ) Q ;36
.S GMRANULL=0 F S %=0 D I %!(%Y="") Q
..;GMRA*4.0*59 - only change: comment line immediately below
..;I GMRAM1=13 S %=1,%Y="Y" Q ;21 Marked on chart set to YES automatically
..W !,$S(GMRAM1=14:"Has",1:"Have")," the "_GMRAM2_" been marked for",$S(I>1:" these CAUSATIVE AGENTS",
1:" this CAUSATIVE AGENT") D YN^DICN
..Q:%Y=""
..S:%<0 %=2,GMRAOUT=1 Q:% W !?4,"ANSWER YES IF THE "_GMRAM2_" HAS BEEN MARKED, ELSE ANSWER NO."
..Q
.I %=2!(%Y="") Q
.S GMRAPA=0 F S GMRAPA=$O(GMRALL(GMRAPA)) Q:GMRAPA<1 D
..I '$D(^GMR(120.8,GMRAPA,GMRAM1,0)) S ^(0)="^120.8"_GMRAM1_"DA^^"
..D NOW^%DTC K DO,DD,DINUM S X=%,DIC="^GMR(120.8,"_GMRAPA_","_GMRAM1_",",DIC(0)="L",DLAYGO=120.8,DA(1)
=GMRAPA,DIC("DR")="1////"_DUZ D FILE^DICN K DIC,DLAYGO
..Q
.Q
Q
EN6(GMRALL,DFN,GMRATYPE) --
;THIS IS THE ENTRY POINT IF YOU KNOW THE ALLERGIES AND PATIENT
N GMRAOUT,%,%Y S GMRAOUT=0
D SITE^GMRAUTL S GMRASITE(0)=$G(^GMRD(120.84,+GMRASITE,0))
EN7 I $D(%Y),%Y="" Q
S GMRAPA=0 F S GMRAPA=$O(GMRALL(GMRAPA)) Q:GMRAPA<1 D
.I $O(^GMR(120.8,GMRAPA,13,0))&($P(GMRASITE(0),U,5)=0!$O(^GMR(120.8,GMRAPA,14,0))!(GMRALOC="")) Q
.S GMRAPA(0)=$G(^GMR(120.8,GMRAPA,0)) D BULLT^GMRASEND
.Q
Q
Q3 ; CLEAN UP AFTER EN3
D KILL^XUSCLEAN
Q
HELP ;THIS ROUTINE WILL LIST ALL THE SELECTED ALLERGIES AND ALL THE
;CURRENT SELECTED ALLERGIES
S GMRAPA=0 I '$D(GMRALL) W !,"No CAUSATIVE AGENTS have been selected for this patient."
E W !,"You have selected the following CAUSATIVE AGENTS:",! S GMRAPA=0 F S GMRAPA=$O(GMRALL(GMRAPA))
Q:GMRAPA<1 W !,?5,$P($G(^GMR(120.8,GMRAPA,0)),U,2)
K GMRAPA
D HANGT^GMRAPEH0
HLP1 ;LIST ALL ALLERGIES
W !,"You may choose CAUSATIVE AGENTS from the following list for this patient:"
N DIC
I '$D(^GMR(120.8,"B",DFN)) W !?4,"There are no reactions on file for this patient." Q
D HLP12085^GMRAU851(DFN,"'+$G(^GMR(120.8,+GMRAX,""ER""))")
D HANGT^GMRAPEH0
Q
====================================================================

) + x
?
?
????????????? hbz^ho?hbz^CJOJQJ^JaJ h?`?hbz^CJOJQJ^JaJ# *h?hbz^CJOJQJ^JaJ h?hbz^CJOJQJ^JaJ
Ck???C q ? ? 

/
v
?
?
  ? = ? ? B
q
?
v???????????????????????????????gdbz^?'??7v?????[s?Ycl????p?+?????????????????????????????gdbz^+C^??ay?????????????gdbz^ ?d?d[$\$gdbz^gdbz^
,1?h??/ ??=!??"??#??$??%????? ??w?????????666666666vvvvvvvvv666666>666666666666666666666666666?6666666666?666666666666hH66666666666666666666666666666666666666666666666666666666666666666?62????&6FVfv??????2(??&6FVfv??????&6FVfv??????&6FVfv??????&6FVfv??????&6FVfv??????&6FVfv??8X?V~???????? 0@?? 0@?? 0@?? 0@?? 0@?? 0@?? 0@?? 0@?? 0@?? 0@?? 0@?? 0@?? 0@?? 0@6666 OJPJQJ_HmH nH sH tH L`??L bz^Normal$CJOJPJQJ_HaJmH sH tH DA ???D
Default Paragraph FontRi???R
0 Table Normal?4?
l4?a? (k ???(
0No List T?`???T bz^
No Spacing$CJOJPJQJ_HaJmH sH tH PK!????[Content_Types].xml???N?0E?H???-J??@%???|??$???U??L?TB? l,?3??;?r??Ø??J??B+$?G]??7O?V??<a??????(7??I??R?{?pgL?=??r????8?5v&????uQ??8??C????X=????$???6N?JC???????F?B.?'?.?+???Y?T???^e5?5?? ? ?ð ?_?g -?;?????Yl????|6^?N??`?????[??PK!????6 _rels/.rels???j?0 ????}Q??%v/??C/?}?(h"???O?
??????=?????? ????C??h?v=?????%[xp??{?_?P?<?1?H?0???O?R?Bd???JE?4b$??q_????6L??R?7`???????0?O??,?En7?Li?b??/?S???e?????????PK!ky???theme/theme/themeManager.xml ?M
? @?}?w??7c?(Eb????C?A??????7???K
Y,?
?e?.???|,???H?,l????x???I?sQ}#????? ?+?!?,?^?$j=?GW???)?E?+&
8???PK!0?C)??theme/theme/theme1.xml?YOo?6??w toc'vu???-M?n?i???P?@?I}??úa??m?a[???4?:l??GR??X^?6??>$????????? !)O?^?r?C$?y@?????/?yH*???)???????UDb?`}"?q??J????X^?)I`n?E???p)???li?V[]?1M<??????O?P??6r?=???z?gb?Ig??u??S?eb???O??????R?D?????qu ?g??Z????o~?lAp?lx?pT0???+[}`j?????zA???V?2?F???i?@?q?v??5\|????N??le?X?ds???jcs????7????f????
??W???+???7????`???g? ???J???j|??h(?K??D-????
dX??iJ??(??x$(? ?:??;??!? I_?T??S 1????????E??????????ZB?m???U/????????~????xY????'???y5?g&?/??????>???G?M?Ge???D?????3Vq%'#q?????$?8??K?????)f?w9:???
x}r?x????w???r?:\TZaG?*?y8I?j?bR??c|X????I
u3KG?nD1?NIB?s???
??R??u???K>V?.EL+M2?#'?f??i ~?V? ?vl?{u8??z??H?
?*???:?(W??
~??J??T?e\O*?tHG??HY??}KN??P?*?????T??9/#??A7?qZ??$*c????qU??n??w?N??%??O??i?4 =3??N???)cbJ
u?V?4????(Tn???
7??_????m-??{U????B?w?<w???_???$?#??[????8{???(?/?$?0h??F???®{L?)#7?i?%?=A?:s?$?),??Qg20pp??f
\}DU4?p
M{??DB??%J??â??????+{?l?C???]??=??5
2F??hsF+??Y??\??n?ì??:3???E?[??6?9??? ?`??&45Z!??*??5k8?`Fmw??-? ?"?d>?z???n????"Z ??x??J?Z??p;???? ???{/?<?P;??,)''K?Q?k5???q???pN??8?K?Gb?e???
?S??d???\17 ?p?a?>??SR!???

3??K4'+?r?zQ
TT??I????Ivt]K?c??K#?v?5+?|??D??????~??O@%\w???_?nN[?L??9K????q??g?V?h??n
R!?y+??U?n?;?*&?/H?r??T?? ?>??>\
?t??=.T?
???S; Z?~?!??????P??9gi???C??!?# B??,??;?X=?,I?2UW?V?9$l?k???=A??j???;?{?A?P79?|s*Y?????;???[?MC???hf??]o??{oY=1k?yV??V????5E8?Vk+????\8???0X4D)?!!???*|f?v?
u????"?x??A?@T_??????q??6?4)k?u?V?7? ?t ?'??%;???i?9s?9?x???,???-45x?d???8????d?/Y|t?? &LIL?J`?& ?-G?t?/??PK!
???'theme/theme/_rels/themeManager.xml.rels??M
?0???woo??&?????5
6?$Q??
?,.?a??i????c2?1h?:?q??m??@RN??;d?`??o7?g?K(M&$R(.1?r'J???T???8??V?"??A??H?u}??|?$?b{??P????8?g/]?QAs?(????#??L?[??????PK-!????[Content_Types].xmlPK-!????6 0_rels/.relsPK-!ky???theme/theme/themeManager.xmlPK-!0?C)???theme/theme/theme1.xmlPK-!
???'? theme/theme/_rels/themeManager.xml.relsPK]?
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<a:clrMap xmlns:a="http://schemas.openxmlformats.org/drawingml/2006/main" bg1="lt1" tx1="dk1" bg2="lt2" tx2="dk2" accent1="accent1" accent2="accent2" accent3="accent3" accent4="accent4" accent5="accent5" accent6="accent6" hlink="hlink" folHlink="folHlink"/>?
????? ?+?
?L?# ? ????@???????????0?( ?
??B
?S ???? ??OV?

x???HP??  *7<????$,??=????'Biq{??????%'7?~???7uv???????  Z [ r s ? ? ? 
X
Y
b
l
?
?
?
?
  o p  ? ? ? ? C ] ^ ? ? ? 
`
?
333333333333?c?}?@bz^?V?o??
?
?@??
?@??Unknown????????????G??*?Ax? ?Times New Roman5??Symbol3.? ?*?Cx? ?Arial?=? ?*?Cx? ?Courier New7.?????@?Calibri7????@?CambriaA?Cambria Math"q???h??i???i?? ?? !???????0?
?
J????HP ?? $P???????????????????????V?2!xx? ???Department of Veterans AffairsNobles, Jeremy???????Oh??+'??0<
px?? ??
? 
$,4? Department of Veterans Affairs Normal.dotmNobles, Jeremy2Microsoft Office Word@@?1W?@?1W?? ?????.??+,??D???.??+,??8? hp???? ????
? ??Veteran Affairs?
  Titlex :BContentTypeId?,0x0101006D56C9DE1894D24F864A45DEC543409F

???????? !"#$%&'????)*+,-./????1234567????????:;<?????????MABCDEFGHIJKL????N????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????Root Entry???????? ?F?}DW?>?Data
????????????1Table????????TWordDocument
????.SummaryInformation(????????????(DocumentSummaryInformation8????????0MsoDataStore?????????`DW???zDW?TIB3ODN?E????L?W?PF???==2
?????`DW???uDW?Item
???? ?????Properties????????????OL?5??W?I?E?O?4?CA????A==2???????? ?`DW???zDW?Item
???? ????@.Properties????????????
?CompObj????r???????????????????????????? ????
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????<?mso-contentType?><F
DNS plates xmlns="http://schemas.microsoft.com/sharepoint/v3/contenttype/forms"><Display>DocumentLibraryForm</Display><Edit>DocumentLibraryForm</Edit><New>DocumentLibraryForm</New></F DNS plates><?xml version="1.0" encoding="UTF-8" standalone="no"?>
<ds:datastoreItem ds:itemID="{385D804C-6E33-4C13-BB98-B916B4F17ABE}" xmlns:ds="http://schemas.openxmlformats.org/officeDocument/2006/customXml"><ds:schemaRefs><ds:schemaRef ds:uri="http://schemas.microsoft.com/sharepoint/v3/contenttype/forms"/></ds:schemaRefs></ds:datastoreItem><?xml version="1.0" encoding="UTF-8" standalone="no"?>
<ds:datastoreItem ds:itemID="{B5F0C72F-886A-4CA0-8ED5-EC02035E69C8}" xmlns:ds="http://schemas.openxmlformats.org/officeDocument/2006/customXml"><ds:schemaRefs><ds:schemaRef ds:uri="http://schemas.microsoft.com/office/2006/metadata/contentType"/><ds:schemaRef ds:uri="http://schemas.microsoft.com/office/2006/metadata/properties/<?xml version="1.0" encoding="utf-8"?><ct:contentTypeSchema ct:_="" ma:_="" ma:contentTypeName="Document" ma:contentTypeID="0x0101006D56C9DE1894D24F864A45DEC543409F" ma:contentTypeVersion="0" ma:contentTypeDescription="Create a new document." ma:contentTypeScope="" ma:versionID="af6e5ea4cd168dfcc55b7e00e4aab748" xmlns:ct="http://schemas.microsoft.com/office/2006/metadata/contentType" xmlns:ma="http://schemas.microsoft.com/office/2006/metadata/properties/metaAttributes">
<xsd:schema targetNamespace="http://schemas.microsoft.com/office/2006/metadata/properties" ma:root="true" ma:fieldsID="c64490b4aec6201516c3a874156f37b2" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:p="http://schemas.microsoft.com/office/2006/metadata/properties">
<xsd:element name="properties">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="documentManagement">
<xsd:complexType>
<xsd:all/>
</xsd:complexType>
</xsd:element>
</xsd:sequence>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<xsd:schema targetNamespace="http://schemas.openxmlformats.org/package/2006/metadata/core-properties" elementFormDefault="qualified" attributeFormDefault="unqualified" blockDefault="#all" xmlns="http://schemas.openxmlformats.org/package/2006/metadata/core-properties" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:dcterms="http://purl.org/dc/terms/" xmlns:odoc="http://schemas.microsoft.com/internal/obd">
<xsd:import namespace="http://purl.org/dc/elements/1.1/" schemaLocation="http://dublincore.org/schemas/xmls/qdc/2003/04/02/dc.xsd"/>
<xsd:import namespace="http://purl.org/dc/terms/" schemaLocation="http://dublincore.org/schemas/xmls/qdc/2003/04/02/dcterms.xsd"/>
<xsd:element name="coreProperties" type="CT_coreProperties"/>
<xsd:complexType name="CT_coreProperties">
<xsd:all>
<xsd:element ref="dc:creator" minOccurs="0" maxOccurs="1"/>
<xsd:element ref="dcterms:created" minOccurs="0" maxOccurs="1"/>
<xsd:element ref="dc:identifier" minOccurs="0" maxOccurs="1"/>
<xsd:element name="contentType" minOccurs="0" maxOccurs="1" type="xsd:string" ma:index="0" ma:displayName="Content Type"/>
<xsd:element ref="dc:title" minOccurs="0" maxOccurs="1" ma:index="4" ma:displayName="Title"/>
<xsd:element ref="dc:subject" minOccurs="0" maxOccurs="1"/>
<xsd:element ref="dc:description" minOccurs="0" maxOccurs="1"/>
<xsd:element name="keywords" minOccurs="0" maxOccurs="1" type="xsd:string"/>
<xsd:element ref="dc:language" minOccurs="0" maxOccurs="1"/>
<xsd:element name="category" minOccurs="0" maxOccurs="1" type="xsd:string"/>
<xsd:element name="version" minOccurs="0" maxOccurs="1" type="xsd:string"/>
<xsd:element name="revision" minOccurs="0" maxOccurs="1" type="xsd:string">
<xsd:annotation>
<xsd:documentation>
This value indicates the number of saves or revisions. The application is responsible for updating this value after each revision.
</xsd:documentation>
</xsd:annotation>
</xsd:element>
<xsd:element name="lastModifiedBy" minOccurs="0" maxOccurs="1" type="xsd:string"/>
<xsd:element ref="dcterms:modified" minOccurs="0" maxOccurs="1"/>
<xsd:element name="contentStatus" minOccurs="0" maxOccurs="1" type="xsd:string"/>
</xsd:all>
</xsd:complexType>
</xsd:schema>
<xs:schema targetNamespace="http://schemas.microsoft.com/office/infopath/2007/PartnerControls" elementFormDefault="qualified" attributeFormDefault="unqualified" xmlns:pc="http://schemas.microsoft.com/office/infopath/2007/PartnerControls" xmlns:xs="http://www.w3.org/2001/XMLSchema">
<xs:element name="Person">
<xs:complexType>
<xs:sequence>
<xs:element ref="pc:DisplayName" minOccurs="0"></xs:element>
<xs:element ref="pc:AccountId" minOccurs="0"></xs:element>
<xs:element ref="pc:AccountType" minOccurs="0"></xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="DisplayName" type="xs:string"></xs:element>
<xs:element name="AccountId" type="xs:string"></xs:element>
<xs:element name="AccountType" type="xs:string"></xs:element>
<xs:element name="BDCAssociatedEntity">
<xs:complexType>
<xs:sequence>
<xs:element ref="pc:BDCEntity" minOccurs="0" maxOccurs="unbounded"></xs:element>
</xs:sequence>
<xs:attribute ref="pc:EntityNamespace"></xs:attribute>
<xs:attribute ref="pc:EntityName"></xs:attribute>
<xs:attribute ref="pc:SystemInstanceName"></xs:attribute>
<xs:attribute ref="pc:AssociationName"></xs:attribute>
</xs:complexType>
</xs:element>
<xs:attribute name="EntityNamespace" type="xs:string"></xs:attribute>
<xs:attribute name="EntityName" type="xs:string"></xs:attribute>
<xs:attribute name="SystemInstanceName" type="xs:string"></xs:attribute>
<xs:attribute name="AssociationName" type="xs:string"></xs:attribute>
<xs:element name="BDCEntity">
<xs:complexType>
<xs:sequence>
<xs:element ref="pc:EntityDisplayName" minOccurs="0"></xs:element>
<xs:element ref="pc:EntityInstanceReference" minOccurs="0"></xs:element>
<xs:element ref="pc:EntityId1" minOccurs="0"></xs:element>
<xs:element ref="pc:EntityId2" minOccurs="0"></xs:element>
<xs:element ref="pc:EntityId3" minOccurs="0"></xs:element>
<xs:element ref="pc:EntityId4" minOccurs="0"></xs:element>
<xs:element ref="pc:EntityId5" minOccurs="0"></xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="EntityDisplayName" type="xs:string"></xs:element>
<xs:element name="EntityInstanceReference" type="xs:string"></xs:element>
<xs:element name="EntityId1" type="xs:string"></xs:element>
<xs:element name="EntityId2" type="xs:string"></xs:element>
<xs:element name="EntityId3" type="xs:string"></xs:element>
<xs:element name="EntityId4" type="xs:string"></xs:element>
<xs:element name="EntityId5" type="xs:string"></xs:element>
<xs:element name="Terms">
<xs:complexType>
<xs:sequence>
<xs:element ref="pc:TermInfo" minOccurs="0" maxOccurs="unbounded"></xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TermInfo">
<xs:complexType>
<xs:sequence>
<xs:element ref="pc:TermName" minOccurs="0"></xs:element>
<xs:element ref="pc:TermId" minOccurs="0"></xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TermName" type="xs:string"></xs:element>
<xs:element name="TermId" type="xs:string"></xs:element>
</xs:schema>
</ct:contentTypeSchema>metaAttributes"/><ds:schemaRef ds:uri="http://www.w3.org/2001/XMLSchema"/><ds:schemaRef ds:uri="http://schemas.microsoft.com/office/2006/metadata/properties"/><ds:schemaRef ds:uri="http://schemas.openxmlformats.org/package/2006/metadata/core-properties"/><ds:schemaRef ds:uri="http://purl.org/dc/elements/1.1/"/><ds:schemaRef ds:uri="http://purl.org/dc/terms/"/><ds:schemaRef ds:uri="http://schemas.microsoft.com/internal/obd"/><ds:schemaRef ds:uri="http://schemas.microsoft.com/office/infopath/2007/PartnerControls"/></ds:schemaRefs></ds:datastoreItem>??
???? ?F Microsoft Word 97-2003 Document
MSWordDocWord.Document.8?9?q