Globals from FOIA VistA with corrected Node problem for the cross references in the mental health files for C and AU
Cache 13-Sep-2008 18:35:03 ZWR
^YTX(0)="MH TEXT^605^3^3"
^YTX(1,0)="HELP"
^YTX(1,1,0)="82^^82^82^2890309^^^"
^YTX(1,1,1,0)="                    WORD PROCESSOR INFORMATION"
^YTX(1,1,2,0)=" "
^YTX(1,1,3,0)=" "
^YTX(1,1,4,0)="In the Mental Health Package, all free text entries longer than"
^YTX(1,1,5,0)="70 characters are entered and printed using the File Manager"
^YTX(1,1,6,0)="Word Processing features.  Page length and margins for Histories"
^YTX(1,1,7,0)="and Progress Notes are set to approximate the standard VA Forms."
^YTX(1,1,8,0)="All other format options as described below are available for"
^YTX(1,1,9,0)="History of Present Illness, Progress notes and Text.  The Text"
^YTX(1,1,10,0)="option on the General menu has default parameters for margins"
^YTX(1,1,11,0)="and page numbering, but these parameters can be changed as"
^YTX(1,1,12,0)="desired."
^YTX(1,1,13,0)=" "
^YTX(1,1,14,0)="The DEFAULT PARAMETERS are: left margin column 8, right margin"
^YTX(1,1,15,0)="column 72, top of page starts on line 4, form feed occurs 8"
^YTX(1,1,16,0)="lines before bottom of page.  Pages will be numbered starting on"
^YTX(1,1,17,0)="page 2.  These PARAMETERS may be changed by answering ""N"" to the"
^YTX(1,1,18,0)="""DEFAULT PARAMETERS? Y// "" prompt in the (P)RINT option."
^YTX(1,1,19,0)="Additional information is available in the File Manager Manuals."
^YTX(1,1,20,0)=" "
^YTX(1,1,21,0)="Format can be controlled with the following file manager commands:"
^YTX(1,1,22,0)=" "
^YTX(1,1,23,0)="|RIGHT-JUSTIFY|          Causes following text to be padded with"
^YTX(1,1,24,0)="                         spaces between words, so right margin is"
^YTX(1,1,25,0)="                         even."
^YTX(1,1,26,0)=" "
^YTX(1,1,27,0)="|DOUBLE-SPACE|           Causes following text to be printed with"
^YTX(1,1,28,0)="                         blank lines inserted every other line."
^YTX(1,1,29,0)=" "
^YTX(1,1,30,0)="|SINGLE-SPACE|           'Turns off' double-spacing for following"
^YTX(1,1,31,0)="                         text."
^YTX(1,1,32,0)=" "
^YTX(1,1,33,0)="|TOP|                    Causes a page break to occur at this point."
^YTX(1,1,34,0)=" "
^YTX(1,1,35,0)="|PAGEFEED(argument)|     Causes page breaks to occur in following"
^YTX(1,1,36,0)="                         text, whenever fewer than 'argument'"
^YTX(1,1,37,0)="                         number of lines remain on the current page."
^YTX(1,1,38,0)=" "
^YTX(1,1,39,0)="|PAGESTART(argument)|    Causes text on the following pages to begin"
^YTX(1,1,40,0)="                         at line # 'argument' of the page."
^YTX(1,1,41,0)=" "
^YTX(1,1,42,0)="|SETPAGE(argument)|      Resets page numbering, so that the"
^YTX(1,1,43,0)="                         following page number will be 'argument'+1."
^YTX(1,1,44,0)=" "
^YTX(1,1,45,0)="|BLANK(argument)|        Causes 'argument number of blank lines"
^YTX(1,1,46,0)="                         to be inserted at this point in the text."
^YTX(1,1,47,0)=" "
^YTX(1,1,48,0)="|INDENT(augument)|       Causes following text to be indented"
^YTX(1,1,49,0)="                         'argument' number of spaces from left"
^YTX(1,1,50,0)="                         margin."
^YTX(1,1,51,0)=" "
^YTX(1,1,52,0)="|SETTAB(argument1,argument2,argument3,etc.)|"
^YTX(1,1,53,0)="                         Sets tab positions for following text.  In"
^YTX(1,1,54,0)="                         subsequent lines, the first ""|TAB|"""
^YTX(1,1,55,0)="                         encountered will cause indentation to column"
^YTX(1,1,56,0)="                         position 'argument1' characters from the left"
^YTX(1,1,57,0)="                         margin; the second ""|TAB|"" encountered will"
^YTX(1,1,58,0)="                         cause indentation to 'argument2', and so on."
^YTX(1,1,59,0)="                         In default of any ""SETTAB"" function, the tab"
^YTX(1,1,60,0)="                         settings are 5,10,15,20,25 column positions"
^YTX(1,1,61,0)="                         from the left margin.  If any SETTAB argument"
^YTX(1,1,62,0)="                         is negative, any text following the corres-"
^YTX(1,1,63,0)="                         ponding ""|TAB|"" will be right-justified so"
^YTX(1,1,64,0)="                         that the rightmost column of text will fall"
^YTX(1,1,65,0)="                         in the column that is absolute value of the"
^YTX(1,1,66,0)="                         SETTAB argument."
^YTX(1,1,67,0)=" "
^YTX(1,1,68,0)="|TAB(n)|                 Overrides any ""SETTAB"" specification and"
^YTX(1,1,69,0)="                         causes tabbing to the 'n'th column over from"
^YTX(1,1,70,0)="                         the left margin (or right-justifies on the"
^YTX(1,1,71,0)="                         'n'th column if 'n' is negative)."
^YTX(1,1,72,0)=" "
^YTX(1,1,73,0)="|WIDTH(argument)|        Specifies that the following text"
^YTX(1,1,74,0)="                         will always be printed out in the column"
^YTX(1,1,75,0)="                         'argument' characters wide.  ('Argument',"
^YTX(1,1,76,0)="                         in other words, is the difference between"
^YTX(1,1,77,0)="                         the left margin position and the right"
^YTX(1,1,78,0)="                         margin position, plus 1).  Note that, in"
^YTX(1,1,79,0)="                         the absence of a ""WIDTH"" specification,"
^YTX(1,1,80,0)="                         the output column width is determined"
^YTX(1,1,81,0)="                         by the user (or defaulted by the system)"
^YTX(1,1,82,0)="                         at ""Print"" time."
^YTX(2,0)="PHY"
^YTX(2,1,0)="^^459^459^2881116^^"
^YTX(2,1,1,0)="|12 |8  S YSBLN=""  "",Z=^MR(YSDFN,""PE"",DA,0),YSDOT=9999999-DA,U=""^"""
^YTX(2,1,2,0)="|8  S Y=YSYDT D ENDD^YSUTL|1  Y|11 1"
^YTX(2,1,3,0)="| Name|1  YSNM|   SSN|1  YSSSN|   Age|1  YSAGE|1  YSBLN|1  $P(""FE"",""/"",YSSEX[""F"")_""MALE""|17"
^YTX(2,1,4,0)="|17 | Height|1  $J($P(Z,U,2),3)| in.   Weight|1  $J($P(Z,U,3),3)| lb.  Temp.|1  $J($P(Z,U,4),5)| F."
^YTX(2,1,5,0)="|17 | Height|1  $J($P(Z,U,8),3)| cm.   Weight|1  $J($P(Z,U,9),3)| kg.  Temp.|1  $J($P(Z,U,11),5)| C."
^YTX(2,1,6,0)="|17 | Pulse|1  $P(Z,U,5)|   B.P.|1  $P(Z,U,6)|    Resps.|1  $P(Z,U,7)"
^YTX(2,1,7,0)="|11 1|14 0|8  S YSCLI=$P(Z,U,10,11)"
^YTX(2,1,8,0)="----------------------------- Summary -----------------------------"
^YTX(2,1,9,0)="|14 0|13 0^78|5  '$D(^MR(YSDFN,""PE"",DA,.9)):END"
^YTX(2,1,10,0)="|8  S Z=^MR(YSDFN,""PE"",DA,.9) F I=1:1:18 S @(""V""_I_""=$P(Z,U,I)"")"
^YTX(2,1,11,0)="|8  S YSOC=0 F I=1:1:18 S @(""YSOC=YSOC+(2=V""_I_"")!(4=V""_I_"")"")"
^YTX(2,1,12,0)="|8  S YSAC=0 F I=1:1:18 S @(""YSAC=YSAC+(3=V""_I_"")!(5=V""_I_"")"")"
^YTX(2,1,13,0)="|18 -| Omitted or Partially Omitted Examinations:"
^YTX(2,1,14,0)="|1  $S(V1'=2:"""",1:""HEAD."")"
^YTX(2,1,15,0)="|1  $S((V2'=2)&(V2'=4):"""",1:""EYES."")"
^YTX(2,1,16,0)="|1  $S((V3'=2)&(V3'=4):"""",1:""EARS."")"
^YTX(2,1,17,0)="|1  $S(V4'=2:"""",1:""NOSE."")"
^YTX(2,1,18,0)="|1  $S(V5'=2:"""",1:""MOUTH."")"
^YTX(2,1,19,0)="|1  $S(V6'=2:"""",1:""NECK."")"
^YTX(2,1,20,0)="|1  $S(V7'=2:"""",1:""CHEST AND BREASTS."")"
^YTX(2,1,21,0)="|1  $S(V8'=2:"""",1:""LUNGS."")"
^YTX(2,1,22,0)="|1  $S(V9'=2:"""",1:""HEART."")"
^YTX(2,1,23,0)="|1  $S(V10'=2:"""",1:""ABDOMEN."")"
^YTX(2,1,24,0)="|1  $S((V11'=2)&(V11'=4):"""",1:""GENITALIA."")"
^YTX(2,1,25,0)="|1  $S(V12'=2:"""",1:""PELVIC."")"
^YTX(2,1,26,0)="|1  $S(V13'=2:"""",1:""RECTUM."")"
^YTX(2,1,27,0)="|1  $S(V14'=2:"""",1:""BACK."")"
^YTX(2,1,28,0)="|1  $S(V15'=2:"""",1:""EXTREMITIES."")"
^YTX(2,1,29,0)="|1  $S(V16'=2:"""",1:""NEUROLOGICAL."")"
^YTX(2,1,30,0)="|1  $S(V17'=2:"""",1:""SKIN."")"
^YTX(2,1,31,0)="|1  $S(V18'=2:"""",1:""LYMPH NODES."")"
^YTX(2,1,32,0)="|1  $S(YSOC:"""",1:""None."")"
^YTX(2,1,33,0)="|14 2|18 -"
^YTX(2,1,34,0)="Abnormal Findings:"
^YTX(2,1,35,0)=" "
^YTX(2,1,36,0)="|17 |5  V1'=3:1"
^YTX(2,1,37,0)=" "
^YTX(2,1,38,0)="|17 | HEAD: |2  ^MR(YSDFN,""PE"",DA,1)^9"
^YTX(2,1,39,0)="|0"
^YTX(2,1,40,0)=" "
^YTX(2,1,41,0)="|5  V2'=3&(V2'=5):1"
^YTX(2,1,42,0)="|17 | EYES: |2  ^MR(YSDFN,""PE"",DA,2)^9"
^YTX(2,1,43,0)="|0"
^YTX(2,1,44,0)=" "
^YTX(2,1,45,0)="|5  V3'=3&(V3'=5):1"
^YTX(2,1,46,0)="|17 | EARS: |2  ^MR(YSDFN,""PE"",DA,3)^9"
^YTX(2,1,47,0)="|0"
^YTX(2,1,48,0)="|5  V4'=3:1"
^YTX(2,1,49,0)="|17 | NOSE: |2  ^MR(YSDFN,""PE"",DA,4)^9"
^YTX(2,1,50,0)="|0"
^YTX(2,1,51,0)="|5  V5'=3:1"
^YTX(2,1,52,0)="|17 | MOUTH: |2  ^MR(YSDFN,""PE"",DA,5)^9"
^YTX(2,1,53,0)="|0"
^YTX(2,1,54,0)="|5  V6'=3:1"
^YTX(2,1,55,0)="|17 | NECK: |2  ^MR(YSDFN,""PE"",DA,6)^9"
^YTX(2,1,56,0)="|0"
^YTX(2,1,57,0)="|5  V7'=3:1"
^YTX(2,1,58,0)="|17 | CHEST AND BREASTS: |2  ^MR(YSDFN,""PE"",DA,7)^9"
^YTX(2,1,59,0)="|0"
^YTX(2,1,60,0)="|5  V8'=3:1"
^YTX(2,1,61,0)="|17 | LUNGS: |2  ^MR(YSDFN,""PE"",DA,8)^9"
^YTX(2,1,62,0)="|0"
^YTX(2,1,63,0)="|5  V9'=3:1"
^YTX(2,1,64,0)="|17 | HEART: |2  ^MR(YSDFN,""PE"",DA,9)^9"
^YTX(2,1,65,0)="|0"
^YTX(2,1,66,0)="|5  V10'=3:1"
^YTX(2,1,67,0)="|17 | ABDOMEN: |2  ^MR(YSDFN,""PE"",DA,10)^9"
^YTX(2,1,68,0)="|0"
^YTX(2,1,69,0)=" "
^YTX(2,1,70,0)="|5  V11'=3&(V11'=5):1"
^YTX(2,1,71,0)="|17 | GENITALIA: |2  ^MR(YSDFN,""PE"",DA,11)^9"
^YTX(2,1,72,0)="|0"
^YTX(2,1,73,0)="|5  V12'=3:1"
^YTX(2,1,74,0)="|17 | PELVIC EXAM: |2  ^MR(YSDFN,""PE"",DA,12)^9"
^YTX(2,1,75,0)="|0"
^YTX(2,1,76,0)="|5  V13'=3:1"
^YTX(2,1,77,0)="|17 | RECTUM: |2  ^MR(YSDFN,""PE"",DA,13)^9"
^YTX(2,1,78,0)="|0"
^YTX(2,1,79,0)="|5  V14'=3:1"
^YTX(2,1,80,0)="|17 | BACK: |2  ^MR(YSDFN,""PE"",DA,14)^9"
^YTX(2,1,81,0)="|0"
^YTX(2,1,82,0)="|5  V15'=3:1"
^YTX(2,1,83,0)="|17 | EXTREMITIES: |2  ^MR(YSDFN,""PE"",DA,15)^9"
^YTX(2,1,84,0)="|0"
^YTX(2,1,85,0)="|5  V16'=3:1"
^YTX(2,1,86,0)="|17 | NEUROLOGICAL: |2  ^MR(YSDFN,""PE"",DA,16)^9"
^YTX(2,1,87,0)="|0"
^YTX(2,1,88,0)="|5  V17'=3:1"
^YTX(2,1,89,0)="|17 | SKIN: |2  ^MR(YSDFN,""PE"",DA,17)^9"
^YTX(2,1,90,0)="|0"
^YTX(2,1,91,0)="|5  V18'=3:1"
^YTX(2,1,92,0)="|17 | LYMPH NODES: |2  ^MR(YSDFN,""PE"",DA,18)^9"
^YTX(2,1,93,0)="|0"
^YTX(2,1,94,0)="|5  YSAC'=0:1"
^YTX(2,1,95,0)="None"
^YTX(2,1,96,0)="|0"
^YTX(2,1,97,0)="|17 |14 0|18 -"
^YTX(2,1,98,0)="|18 -| ------------------------------------------------------------------"
^YTX(2,1,99,0)="|17 |11 1|10 25^Physical Examination|17 |13 5^78"
^YTX(2,1,100,0)="|14 2|18 -| General Appearance -|1  $S($D(^MR(YSDFN,""PE"",DA,.8)):$P(^(.8),U,1),1:"""")"
^YTX(2,1,101,0)="|5  '$D(ASQ):1"
^YTX(2,1,102,0)="|19"
^YTX(2,1,103,0)="|0"
^YTX(2,1,104,0)=" "
^YTX(2,1,105,0)="|18 -"
^YTX(2,1,106,0)="Head -"
^YTX(2,1,107,0)="|5  V1'=1:1"
^YTX(2,1,108,0)="Normal shape and size, no tenderness, deformity, trauma, or other abnormalities."
^YTX(2,1,109,0)="|0"
^YTX(2,1,110,0)="|5  V1'=2:1"
^YTX(2,1,111,0)="Exam omitted."
^YTX(2,1,112,0)="|0"
^YTX(2,1,113,0)="|5  V1'=3:1"
^YTX(2,1,114,0)="Examined for  shape, size, tenderness, deformity, trauma, and other abnormalities."
^YTX(2,1,115,0)="|17 | NORMAL EXCEPT FOR"
^YTX(2,1,116,0)="|2  ^MR(YSDFN,""PE"",DA,1)^9 :1"
^YTX(2,1,117,0)="|0  "
^YTX(2,1,118,0)="|18 -"
^YTX(2,1,119,0)="Eyes -"
^YTX(2,1,120,0)="|5  V2'=1:1"
^YTX(2,1,121,0)="Conjunctivae, corneae, and sclerae normal.  No icterus.  External ocular movements"
^YTX(2,1,122,0)="normal.  Pupils equal, regular, and react normally to light and accommodation."
^YTX(2,1,123,0)="Fundi normal including discs and vessels.  No hemorrhages or exudates."
^YTX(2,1,124,0)="|0"
^YTX(2,1,125,0)="|5  V2'=2:1"
^YTX(2,1,126,0)="Exam omitted."
^YTX(2,1,127,0)="|0"
^YTX(2,1,128,0)="|5  V2<3:9|8  S Z="""""
^YTX(2,1,129,0)="Examined for conjunctivitis, corneal scars, icterus"
^YTX(2,1,130,0)="|8  S Z="""" I $D(^MR(YSDFN,""PE"",DA,2)) S Z=^(2)|5  $P(Z,U,1)=2:1"
^YTX(2,1,131,0)=", extraocular movements"
^YTX(2,1,132,0)="|0"
^YTX(2,1,133,0)="|5  $P(Z,U,2)=2:1"
^YTX(2,1,134,0)=", pupillary size"
^YTX(2,1,135,0)="|0"
^YTX(2,1,136,0)="|5  $P(Z,U,3)=2:1"
^YTX(2,1,137,0)=", and response to light and accommodation"
^YTX(2,1,138,0)=" "
^YTX(2,1,139,0)="|0"
^YTX(2,1,140,0)="|5  $P(Z,U,4)=2:1"
^YTX(2,1,141,0)="Fundi were visualized."
^YTX(2,1,142,0)="|0"
^YTX(2,1,143,0)="|5  V2<4:4|17 "
^YTX(2,1,144,0)="Omitted examinations-"
^YTX(2,1,145,0)="|5  $P(Z,U,1)=1:1|17 "
^YTX(2,1,146,0)="Extraocular movements."
^YTX(2,1,147,0)="|0"
^YTX(2,1,148,0)="|5  $P(Z,U,2)=1:1|17 "
^YTX(2,1,149,0)="Pupillary size."
^YTX(2,1,150,0)="|0"
^YTX(2,1,151,0)="|5  $P(Z,U,3)=1:1|17 "
^YTX(2,1,152,0)="Response to light and accommodation."
^YTX(2,1,153,0)="|0"
^YTX(2,1,154,0)="|5  $P(Z,U,4)=1:1"
^YTX(2,1,155,0)="Fundi visualizsion."
^YTX(2,1,156,0)="|0"
^YTX(2,1,157,0)="|5  V2=4:1"
^YTX(2,1,158,0)="|17 | NORMAL EXCEPT FOR"
^YTX(2,1,159,0)="|2  ^MR(YSDFN,""PE"",DA,2)^9 :2"
^YTX(2,1,160,0)="|0  "
^YTX(2,1,161,0)="|18 -"
^YTX(2,1,162,0)="Ears -"
^YTX(2,1,163,0)="|5  V3'=1:1"
^YTX(2,1,164,0)="External meatus normal.  Drums visualized and normal without scars,"
^YTX(2,1,165,0)="inflammation, or perforations.  Hearing grossly normal."
^YTX(2,1,166,0)="|0"
^YTX(2,1,167,0)="|5  V3'=2:1"
^YTX(2,1,168,0)="Exam omitted."
^YTX(2,1,169,0)="|0"
^YTX(2,1,170,0)="|5  V3<3:8|8  S Z="""""
^YTX(2,1,171,0)="|8  S Z="""" I $D(^MR(YSDFN,""PE"",DA,3)) S Z=^(3)|5  $P(Z,U,1)=2:1"
^YTX(2,1,172,0)="Examined for gross hearing."
^YTX(2,1,173,0)="|0"
^YTX(2,1,174,0)="|5  $P(Z,U,2)=2:1"
^YTX(2,1,175,0)="The external meatus were visualized."
^YTX(2,1,176,0)="|0"
^YTX(2,1,177,0)="|5  $P(Z,U,3)=2:1"
^YTX(2,1,178,0)="The drums were visualized."
^YTX(2,1,179,0)="|0"
^YTX(2,1,180,0)="|5  V3<4:4"
^YTX(2,1,181,0)="|17 | OMITTED EXAMINATIONS-"
^YTX(2,1,182,0)="|0"
^YTX(2,1,183,0)="|5  $P(Z,U,1)=1:1|17  "
^YTX(2,1,184,0)="Hearing."
^YTX(2,1,185,0)="|0"
^YTX(2,1,186,0)="|5  $P(Z,U,2)=1:1|17 "
^YTX(2,1,187,0)="External meatus."
^YTX(2,1,188,0)="|0"
^YTX(2,1,189,0)="|5  $P(Z,U,3)=1:1|17 "
^YTX(2,1,190,0)="Drums."
^YTX(2,1,191,0)="|0"
^YTX(2,1,192,0)="|5  V3=4:1"
^YTX(2,1,193,0)="|17 | NORMAL EXCEPT FOR"
^YTX(2,1,194,0)="|2  ^MR(YSDFN,""PE"",DA,3)^9 :3"
^YTX(2,1,195,0)="|0  "
^YTX(2,1,196,0)="|18 -"
^YTX(2,1,197,0)="Nose -"
^YTX(2,1,198,0)="|5  V4'=1:1"
^YTX(2,1,199,0)="Normal mucosa and airways, no septal deviation."
^YTX(2,1,200,0)="|0"
^YTX(2,1,201,0)="|5  V4'=2:1"
^YTX(2,1,202,0)="Exam omitted."
^YTX(2,1,203,0)="|0"
^YTX(2,1,204,0)="|5  V4'=3:1"
^YTX(2,1,205,0)="Examined for inflammation, obstructions  and septal deviation."
^YTX(2,1,206,0)="|17 | NORMAL EXCEPT FOR"
^YTX(2,1,207,0)="|2  ^MR(YSDFN,""PE"",DA,4)^9 :4"
^YTX(2,1,208,0)="|0  "
^YTX(2,1,209,0)="|18 -"
^YTX(2,1,210,0)="Mouth -"
^YTX(2,1,211,0)="|5  V5'=1:1"
^YTX(2,1,212,0)="Normal lips, breath, teeth, gums, tonsils, pharynx, and tongue."
^YTX(2,1,213,0)="|0"
^YTX(2,1,214,0)="|5  V5'=2:1"
^YTX(2,1,215,0)="Exam omitted."
^YTX(2,1,216,0)="|0"
^YTX(2,1,217,0)="|5  V5'=3:1"
^YTX(2,1,218,0)="This included the breath, lips, teeth, gums, tongue, tonsils, and pharynx."
^YTX(2,1,219,0)="|17 | NORMAL EXCEPT FOR"
^YTX(2,1,220,0)="|2  ^MR(YSDFN,""PE"",DA,5)^9 :5"
^YTX(2,1,221,0)="|0  "
^YTX(2,1,222,0)="|18 -"
^YTX(2,1,223,0)="Neck -"
^YTX(2,1,224,0)="|5  V6'=1:1"
^YTX(2,1,225,0)="Normal motion of neck, trachea in midline, thyroid normal size, no bruit,"
^YTX(2,1,226,0)="no masses or other abnormalities."
^YTX(2,1,227,0)="|0"
^YTX(2,1,228,0)="|5  V6'=2:1"
^YTX(2,1,229,0)="Exam omitted."
^YTX(2,1,230,0)="|0"
^YTX(2,1,231,0)="|5  V6'=3:1"
^YTX(2,1,232,0)="Examined for motion, tracheal position, carotid bruit, masses and thyroid."
^YTX(2,1,233,0)="|17 | NORMAL EXCEPT FOR"
^YTX(2,1,234,0)="|2  ^MR(YSDFN,""PE"",DA,6)^9 :6"
^YTX(2,1,235,0)="|0  "
^YTX(2,1,236,0)="|18 -"
^YTX(2,1,237,0)="Chest and breasts -"
^YTX(2,1,238,0)="|5  V7'=1:1"
^YTX(2,1,239,0)="Chest normal shape and symmetrical.  No masses, tenderness, or other"
^YTX(2,1,240,0)="abnormalities of breasts or nipples."
^YTX(2,1,241,0)="|0"
^YTX(2,1,242,0)="|5  V7'=2:1"
^YTX(2,1,243,0)="Exam omitted."
^YTX(2,1,244,0)="|0"
^YTX(2,1,245,0)="|5  V7'=3:1"
^YTX(2,1,246,0)="The chest was examined for shape and symmetry.  The breasts were"
^YTX(2,1,247,0)="examined for masses, tenderness, and discharge."
^YTX(2,1,248,0)="|17 | NORMAL EXCEPT FOR"
^YTX(2,1,249,0)="|2  ^MR(YSDFN,""PE"",DA,7)^9 :7"
^YTX(2,1,250,0)="|0  "
^YTX(2,1,251,0)="|18 -"
^YTX(2,1,252,0)="Lungs -"
^YTX(2,1,253,0)="|5  V8'=1:1"
^YTX(2,1,254,0)="Normal to inspection, palpation, and auscultation."
^YTX(2,1,255,0)="|0"
^YTX(2,1,256,0)="|5  V8'=2:1"
^YTX(2,1,257,0)="Exam omitted."
^YTX(2,1,258,0)="|0"
^YTX(2,1,259,0)="|5  V8'=3:1"
^YTX(2,1,260,0)="Examined by inspection, palpation, and auscultation."
^YTX(2,1,261,0)="|17 | NORMAL EXCEPT FOR"
^YTX(2,1,262,0)="|2  ^MR(YSDFN,""PE"",DA,8)^9 :8"
^YTX(2,1,263,0)="|0  "
^YTX(2,1,264,0)="|18 -"
^YTX(2,1,265,0)="Heart -"
^YTX(2,1,266,0)="|5  V9'=1:1"
^YTX(2,1,267,0)="Normal to inspection, palpation, and auscultation."
^YTX(2,1,268,0)="Sinus rhythm, S1 and S2 normal, no murmurs, gallops, clicks or rubs."
^YTX(2,1,269,0)="|0"
^YTX(2,1,270,0)="|5  V9'=2:1"
^YTX(2,1,271,0)="Exam omitted."
^YTX(2,1,272,0)="|0"
^YTX(2,1,273,0)="|5  V9'=3:1"
^YTX(2,1,274,0)="Examined by inspection, palpaton, and auscultation for abnormalities"
^YTX(2,1,275,0)="in rhythm and sounds."
^YTX(2,1,276,0)="|17 | NORMAL EXCEPT FOR"
^YTX(2,1,277,0)="|2  ^MR(YSDFN,""PE"",DA,9)^9 :9"
^YTX(2,1,278,0)="|0  "
^YTX(2,1,279,0)="|18 -"
^YTX(2,1,280,0)="Abdomen -"
^YTX(2,1,281,0)="|5  V10'=1:1"
^YTX(2,1,282,0)="No tenderness.  Spleen and"
^YTX(2,1,283,0)="liver not enlarged.  No palpable masses.  Bowel sounds normal."
^YTX(2,1,284,0)="|0"
^YTX(2,1,285,0)="|5  V10'=2:1"
^YTX(2,1,286,0)="Exam omitted."
^YTX(2,1,287,0)="|0"
^YTX(2,1,288,0)="|5  V10'=3:1"
^YTX(2,1,289,0)="Examined for tenderness, scars, masses, organomegaly, bowel sounds,"
^YTX(2,1,290,0)="hernias, and bruits."
^YTX(2,1,291,0)="|17 | NORMAL EXCEPT FOR"
^YTX(2,1,292,0)="|2  ^MR(YSDFN,""PE"",DA,10)^9"
^YTX(2,1,293,0)="|0  "
^YTX(2,1,294,0)=" "
^YTX(2,1,295,0)="|5  YSSEX[""F"":FEMALE|18 -"
^YTX(2,1,296,0)="Genitalia -"
^YTX(2,1,297,0)="|5  V11'=1:1"
^YTX(2,1,298,0)="Testes, epididymi, and penis normal.  No masses, lesions."
^YTX(2,1,299,0)="|  No hernias. |5  1:FEMALE"
^YTX(2,1,300,0)="|0"
^YTX(2,1,301,0)="|5  V11'=2:1"
^YTX(2,1,302,0)="| EXAM OMITTED. |5  1:FEMALE"
^YTX(2,1,303,0)="|0"
^YTX(2,1,304,0)="|5  V11<3:11|8  S Z="""" I $D(^MR(YSDFN,""PE"",DA,11)) S Z=^(11)"
^YTX(2,1,305,0)="Examined"
^YTX(2,1,306,0)="|0"
^YTX(2,1,307,0)="|5  $P(Z,U,1)=2:1"
^YTX(2,1,308,0)="testes,"
^YTX(2,1,309,0)="|0"
^YTX(2,1,310,0)="|5  $P(Z,U,2)=2:1"
^YTX(2,1,311,0)="epididymi,"
^YTX(2,1,312,0)="|0"
^YTX(2,1,313,0)="|5  $P(Z,U,3)=2:1"
^YTX(2,1,314,0)="penis,"
^YTX(2,1,315,0)="|0"
^YTX(2,1,316,0)="|5  $P(Z,U,4)=2:1"
^YTX(2,1,317,0)="prostate"
^YTX(2,1,318,0)="|0"
^YTX(2,1,319,0)="|0   "
^YTX(2,1,320,0)="|5  V11<4:5"
^YTX(2,1,321,0)="omitted examinations-"
^YTX(2,1,322,0)="|0"
^YTX(2,1,323,0)="|5  $P(Z,U,1)=1:1"
^YTX(2,1,324,0)="testes."
^YTX(2,1,325,0)="|0"
^YTX(2,1,326,0)="|5  $P(Z,U,2)=1:1"
^YTX(2,1,327,0)="Epididymi."
^YTX(2,1,328,0)="|0"
^YTX(2,1,329,0)="|5  $P(Z,U,3)=1:1"
^YTX(2,1,330,0)="Penis."
^YTX(2,1,331,0)="|0"
^YTX(2,1,332,0)="|5  $P(Z,U,4)=1:1"
^YTX(2,1,333,0)="Prostate."
^YTX(2,1,334,0)="|0"
^YTX(2,1,335,0)="|5  V11=4:1"
^YTX(2,1,336,0)="|17 | NORMAL EXCEPT FOR"
^YTX(2,1,337,0)="|2  ^MR(YSDFN,""PE"",DA,11)^9 :11"
^YTX(2,1,338,0)="|0  "
^YTX(2,1,339,0)="|0  FEMALE"
^YTX(2,1,340,0)="|5  YSSEX[""M"":REST|18 -"
^YTX(2,1,341,0)="Pelvic exam -"
^YTX(2,1,342,0)="|5  V12'=1:1"
^YTX(2,1,343,0)="Normal introitus, vagina, cervix, uterus and adnexa."
^YTX(2,1,344,0)="|0"
^YTX(2,1,345,0)="|5  V12'=2:1"
^YTX(2,1,346,0)="Exam omitted."
^YTX(2,1,347,0)="|0"
^YTX(2,1,348,0)="|5  V12<3:3"
^YTX(2,1,349,0)="|5  V12>3:1"
^YTX(2,1,350,0)="A vaginal examination was done."
^YTX(2,1,351,0)="|0"
^YTX(2,1,352,0)="The uterus and adnexa were palpated."
^YTX(2,1,353,0)="|0"
^YTX(2,1,354,0)="|5  V12<3:1"
^YTX(2,1,355,0)="|17 | NORMAL EXCEPT FOR"
^YTX(2,1,356,0)="|2  ^MR(YSDFN,""PE"",DA,12)^9 :12"
^YTX(2,1,357,0)="|0  REST"
^YTX(2,1,358,0)="|18 -"
^YTX(2,1,359,0)="Rectum -"
^YTX(2,1,360,0)="|5  YSSEX'[""M"":4"
^YTX(2,1,361,0)="|5  V13'=1:1"
^YTX(2,1,362,0)="No fissures, hemorrhoids, or masses. Prostate normal size and consistency."
^YTX(2,1,363,0)="Stool for occult blood negative."
^YTX(2,1,364,0)="|0"
^YTX(2,1,365,0)="|5  V13'=2:1"
^YTX(2,1,366,0)="Exam omitted."
^YTX(2,1,367,0)="|0"
^YTX(2,1,368,0)="|5  V13'=3:1"
^YTX(2,1,369,0)="Examined for fissures, hemorrhoids, occult blood, and masses. Prostate examined."
^YTX(2,1,370,0)="|17 | NORMAL EXCEPT FOR"
^YTX(2,1,371,0)="|2  ^MR(YSDFN,""PE"",DA,13)^9 :13"
^YTX(2,1,372,0)="|0"
^YTX(2,1,373,0)="|5  1:4"
^YTX(2,1,374,0)="|0"
^YTX(2,1,375,0)="|5  V13'=1:1"
^YTX(2,1,376,0)="No fissures, hemorrhoids, or masses."
^YTX(2,1,377,0)="|0"
^YTX(2,1,378,0)="|5  V13'=2:1"
^YTX(2,1,379,0)="Exam omitted."
^YTX(2,1,380,0)="|0"
^YTX(2,1,381,0)="|5  V13'=3:1"
^YTX(2,1,382,0)="Examined for fissures, hemorrhoids, and masses."
^YTX(2,1,383,0)="|17 | NORMAL EXCEPT FOR"
^YTX(2,1,384,0)="|2  ^MR(YSDFN,""PE"",DA,13)^9 :13"
^YTX(2,1,385,0)="|0  "
^YTX(2,1,386,0)="|18 -"
^YTX(2,1,387,0)="Back -"
^YTX(2,1,388,0)="|5  V14'=1:1"
^YTX(2,1,389,0)="Normal curvature and mobility.  No pain or tenderness."
^YTX(2,1,390,0)="No costovertebral angle tenderness."
^YTX(2,1,391,0)="|0"
^YTX(2,1,392,0)="|5  V14'=2:1"
^YTX(2,1,393,0)="Exam omitted."
^YTX(2,1,394,0)="|0"
^YTX(2,1,395,0)="|5  V14'=3:1"
^YTX(2,1,396,0)="Examined for curvature, mobility, pain, and costovertebral tenderness."
^YTX(2,1,397,0)="|17 | NORMAL EXCEPT FOR"
^YTX(2,1,398,0)="|2  ^MR(YSDFN,""PE"",DA,14)^9 :14"
^YTX(2,1,399,0)="|0  "
^YTX(2,1,400,0)="|18 -"
^YTX(2,1,401,0)="Extremities -"
^YTX(2,1,402,0)="|5  V15'=1:1"
^YTX(2,1,403,0)="Normal joints, radial and pedal pulsations.  No edema, varicosities,"
^YTX(2,1,404,0)="cyanosis, deformity or trauma."
^YTX(2,1,405,0)="|0"
^YTX(2,1,406,0)="|5  V15'=2:1"
^YTX(2,1,407,0)="Exam omitted."
^YTX(2,1,408,0)="|0"
^YTX(2,1,409,0)="|5  V15'=3:1"
^YTX(2,1,410,0)="The joints and the radial and pedal pulsations were examined.  The"
^YTX(2,1,411,0)="extremities were inspected for edema, varicosities, cyanosis, and lesion"
^YTX(2,1,412,0)="|17 | NORMAL EXCEPT FOR"
^YTX(2,1,413,0)="|2  ^MR(YSDFN,""PE"",DA,15)^9 :15"
^YTX(2,1,414,0)="|0  "
^YTX(2,1,415,0)="|18 -"
^YTX(2,1,416,0)="Neurological -"
^YTX(2,1,417,0)="|5  V16'=1:1"
^YTX(2,1,418,0)="Cranial nerves, muscle strength, sensation, deep tendon reflexes,"
^YTX(2,1,419,0)="coordination, gait & station, position, and vibratory sense normal."
^YTX(2,1,420,0)="|0"
^YTX(2,1,421,0)="|5  V16'=2:1"
^YTX(2,1,422,0)="Exam omitted."
^YTX(2,1,423,0)="|0"
^YTX(2,1,424,0)="|5  V16'=3:1"
^YTX(2,1,425,0)="Cranial nerves, muscle strength, sensation, deep tendon reflexes, coordination,"
^YTX(2,1,426,0)="gait & station, position, and vibratory sense were all examined."
^YTX(2,1,427,0)="|17 | NORMAL EXCEPT FOR"
^YTX(2,1,428,0)="|2  ^MR(YSDFN,""PE"",DA,16)^9 :16"
^YTX(2,1,429,0)="|0  "
^YTX(2,1,430,0)="|18 -"
^YTX(2,1,431,0)="Skin -"
^YTX(2,1,432,0)="|5  V17'=1:1"
^YTX(2,1,433,0)="Normal color and texture."
^YTX(2,1,434,0)="|0"
^YTX(2,1,435,0)="|5  V17'=2:1"
^YTX(2,1,436,0)="Exam omitted."
^YTX(2,1,437,0)="|0"
^YTX(2,1,438,0)="|5  V17'=3:1"
^YTX(2,1,439,0)="|17 | NORMAL EXCEPT FOR"
^YTX(2,1,440,0)="|2  ^MR(YSDFN,""PE"",DA,17)^9 :17"
^YTX(2,1,441,0)="|0  "
^YTX(2,1,442,0)="|18 -"
^YTX(2,1,443,0)="Lymph nodes -"
^YTX(2,1,444,0)="|5  V18'=1:1:1"
^YTX(2,1,445,0)="No enlargement or tenderness of cervical, axillary, or inguinal nodes."
^YTX(2,1,446,0)="|0  "
^YTX(2,1,447,0)="|5  V18'=2:1"
^YTX(2,1,448,0)="Exam omitted."
^YTX(2,1,449,0)="|0"
^YTX(2,1,450,0)="|5  V18'=3:1"
^YTX(2,1,451,0)="Cervical, axillary, and inguinal nodes examined for enlargement or tenderness."
^YTX(2,1,452,0)="| |17 | NORMAL EXCEPT FOR|2  ^MR(YSDFN,""PE"",DA,18)^9 :18"
^YTX(2,1,453,0)="|0"
^YTX(2,1,454,0)="|18 -"
^YTX(2,1,455,0)="|8  S YSIM=0 S:$D(^MR(YSDFN,""PE"",YSIDT,20,1,0)) YSIM=1"
^YTX(2,1,456,0)="|5  YSIM'=1:1"
^YTX(2,1,457,0)="|18 -| Initial Impression:|11 1"
^YTX(2,1,458,0)="|0"
^YTX(2,1,459,0)="|19"
^YTX(3,0)="PHY SHORT"
^YTX(3,1,0)="104^^99^99^2861027^"
^YTX(3,1,1,0)="|12 |8  S YSBLN=""  "",Z=^MR(YSDFN,""PE"",DA,0),YSDOT=9999999-DA,U=""^"""
^YTX(3,1,2,0)="|8  S Y=YSYDT D ENDD^YSUTL|1  Y|11 1"
^YTX(3,1,3,0)="| Name|1  YSNM|   SSN|1  YSSSN|   Age|1  YSAGE|1  YSBLN|1  $P(""FE"",""/"",YSSEX[""F"")_""MALE""|17"
^YTX(3,1,4,0)="|17 | Height|1  $J($P(Z,U,2),3)| in.   Weight|1  $J($P(Z,U,3),3)| lb.  Temp.|1  $J($P(Z,U,4),5)| F."
^YTX(3,1,5,0)="|17 | Height|1  $J($P(Z,U,8),3)| cm.   Weight|1  $J($P(Z,U,9),3)| kg.  Temp.|1  $J($P(Z,U,11),5)| C."
^YTX(3,1,6,0)="|17 | Pulse|1  $P(Z,U,5)|   B.P.|1  $P(Z,U,6)|    Resps.|1  $P(Z,U,7)"
^YTX(3,1,7,0)="|11 1|14 0|8  S YSCLI=$P(Z,U,10,11)"
^YTX(3,1,8,0)="----------------------------- Summary -----------------------------"
^YTX(3,1,9,0)="|14 0|13 0^78|5  '$D(^MR(YSDFN,""PE"",DA,.9)):END"
^YTX(3,1,10,0)="|8  S Z=^MR(YSDFN,""PE"",DA,.9) F I=1:1:18 S @(""V""_I_""=$P(Z,U,I)"")"
^YTX(3,1,11,0)="|8  S YSOC=0 F I=1:1:18 S @(""YSOC=YSOC+(2=V""_I_"")!(4=V""_I_"")"")"
^YTX(3,1,12,0)="|8  S YSAC=0 F I=1:1:18 S @(""YSAC=YSAC+(3=V""_I_"")!(5=V""_I_"")"")"
^YTX(3,1,13,0)="|18 -| Omitted or Partially Omitted Examinations:"
^YTX(3,1,14,0)="|1  $S(V1'=2:"""",1:""HEAD."")"
^YTX(3,1,15,0)="|1  $S((V2'=2)&(V2'=4):"""",1:""EYES."")"
^YTX(3,1,16,0)="|1  $S((V3'=2)&(V3'=4):"""",1:""EARS."")"
^YTX(3,1,17,0)="|1  $S(V4'=2:"""",1:""NOSE."")"
^YTX(3,1,18,0)="|1  $S(V5'=2:"""",1:""MOUTH."")"
^YTX(3,1,19,0)="|1  $S(V6'=2:"""",1:""NECK."")"
^YTX(3,1,20,0)="|1  $S(V7'=2:"""",1:""CHEST AND BREASTS."")"
^YTX(3,1,21,0)="|1  $S(V8'=2:"""",1:""LUNGS."")"
^YTX(3,1,22,0)="|1  $S(V9'=2:"""",1:""HEART."")"
^YTX(3,1,23,0)="|1  $S(V10'=2:"""",1:""ABDOMEN."")"
^YTX(3,1,24,0)="|1  $S((V11'=2)&(V11'=4):"""",1:""GENITALIA."")"
^YTX(3,1,25,0)="|1  $S(V12'=2:"""",1:""PELVIC."")"
^YTX(3,1,26,0)="|1  $S(V13'=2:"""",1:""RECTUM."")"
^YTX(3,1,27,0)="|1  $S(V14'=2:"""",1:""BACK."")"
^YTX(3,1,28,0)="|1  $S(V15'=2:"""",1:""EXTREMITIES."")"
^YTX(3,1,29,0)="|1  $S(V16'=2:"""",1:""NEUROLOGICAL."")"
^YTX(3,1,30,0)="|1  $S(V17'=2:"""",1:""SKIN."")"
^YTX(3,1,31,0)="|1  $S(V18'=2:"""",1:""LYMPH NODES."")"
^YTX(3,1,32,0)="|1  $S(YSOC:"""",1:""None."")"
^YTX(3,1,33,0)="|14 2|18 -"
^YTX(3,1,34,0)="Abnormal Findings:"
^YTX(3,1,35,0)=" "
^YTX(3,1,36,0)="|17 |5  V1'=3:1"
^YTX(3,1,37,0)=" "
^YTX(3,1,38,0)="|17 | HEAD: |2  ^MR(YSDFN,""PE"",DA,1)^9"
^YTX(3,1,39,0)="|0"
^YTX(3,1,40,0)=" "
^YTX(3,1,41,0)="|5  V2'=3&(V2'=5):1"
^YTX(3,1,42,0)="|17 | EYES: |2  ^MR(YSDFN,""PE"",DA,2)^9"
^YTX(3,1,43,0)="|0"
^YTX(3,1,44,0)=" "
^YTX(3,1,45,0)="|5  V3'=3&(V3'=5):1"
^YTX(3,1,46,0)="|17 | EARS: |2  ^MR(YSDFN,""PE"",DA,3)^9"
^YTX(3,1,47,0)="|0"
^YTX(3,1,48,0)="|5  V4'=3:1"
^YTX(3,1,49,0)="|17 | NOSE: |2  ^MR(YSDFN,""PE"",DA,4)^9"
^YTX(3,1,50,0)="|0"
^YTX(3,1,51,0)="|5  V5'=3:1"
^YTX(3,1,52,0)="|17 | MOUTH: |2  ^MR(YSDFN,""PE"",DA,5)^9"
^YTX(3,1,53,0)="|0"
^YTX(3,1,54,0)="|5  V6'=3:1"
^YTX(3,1,55,0)="|17 | NECK: |2  ^MR(YSDFN,""PE"",DA,6)^9"
^YTX(3,1,56,0)="|0"
^YTX(3,1,57,0)="|5  V7'=3:1"
^YTX(3,1,58,0)="|17 | CHEST AND BREASTS: |2  ^MR(YSDFN,""PE"",DA,7)^9"
^YTX(3,1,59,0)="|0"
^YTX(3,1,60,0)="|5  V8'=3:1"
^YTX(3,1,61,0)="|17 | LUNGS: |2  ^MR(YSDFN,""PE"",DA,8)^9"
^YTX(3,1,62,0)="|0"
^YTX(3,1,63,0)="|5  V9'=3:1"
^YTX(3,1,64,0)="|17 | HEART: |2  ^MR(YSDFN,""PE"",DA,9)^9"
^YTX(3,1,65,0)="|0"
^YTX(3,1,66,0)="|5  V10'=3:1"
^YTX(3,1,67,0)="|17 | ABDOMEN: |2  ^MR(YSDFN,""PE"",DA,10)^9"
^YTX(3,1,68,0)="|0"
^YTX(3,1,69,0)=" "
^YTX(3,1,70,0)="|5  V11'=3&(V11'=5):1"
^YTX(3,1,71,0)="|17 | GENITALIA: |2  ^MR(YSDFN,""PE"",DA,11)^9"
^YTX(3,1,72,0)="|0"
^YTX(3,1,73,0)="|5  V12'=3:1"
^YTX(3,1,74,0)="|17 | PELVIC EXAM: |2  ^MR(YSDFN,""PE"",DA,12)^9"
^YTX(3,1,75,0)="|0"
^YTX(3,1,76,0)="|5  V13'=3:1"
^YTX(3,1,77,0)="|17 | RECTUM: |2  ^MR(YSDFN,""PE"",DA,13)^9"
^YTX(3,1,78,0)="|0"
^YTX(3,1,79,0)="|5  V14'=3:1"
^YTX(3,1,80,0)="|17 | BACK: |2  ^MR(YSDFN,""PE"",DA,14)^9"
^YTX(3,1,81,0)="|0"
^YTX(3,1,82,0)="|5  V15'=3:1"
^YTX(3,1,83,0)="|17 | EXTREMITIES: |2  ^MR(YSDFN,""PE"",DA,15)^9"
^YTX(3,1,84,0)="|0"
^YTX(3,1,85,0)="|5  V16'=3:1"
^YTX(3,1,86,0)="|17 | NEUROLOGICAL: |2  ^MR(YSDFN,""PE"",DA,16)^9"
^YTX(3,1,87,0)="|0"
^YTX(3,1,88,0)="|5  V17'=3:1"
^YTX(3,1,89,0)="|17 | SKIN: |2  ^MR(YSDFN,""PE"",DA,17)^9"
^YTX(3,1,90,0)="|0"
^YTX(3,1,91,0)="|5  V18'=3:1"
^YTX(3,1,92,0)="|17 | LYMPH NODES: |2  ^MR(YSDFN,""PE"",DA,18)^9"
^YTX(3,1,93,0)="|0"
^YTX(3,1,94,0)="|5  YSAC'=0:1"
^YTX(3,1,95,0)="None"
^YTX(3,1,96,0)="|0"
^YTX(3,1,97,0)="|17 |14 0|18 -"
^YTX(3,1,98,0)="|18 -| ------------------------------------------------------------------"
^YTX(3,1,99,0)="|19"
^YTX("B","HELP",1)=""
^YTX("B","PHY",2)=""
^YTX("B","PHY SHORT",3)=""