653 lines
28 KiB
Plaintext
653 lines
28 KiB
Plaintext
FirstRelease WVEHR VER VOE1.0
|
|
Cache 31-Jan-2008 23:07:04 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)=""
|