DVBCPWC1 ;ALB ISC/THM-POW EXAM, CONTINUED ; 5/14/91 1:05 PM
;;2.7;AMIE;;Apr 10, 1995
G EN
;
L I $Y>55 D HD2^DVBCPWCK
Q
;
EN F I="bleeding","lumps or masses","vertigo","syncope","pruritis","rash","diabetes mellitus","thyroid disorders","cancer" S CNT=CNT+1 W ?($S(CNT<10:7,1:6)),CNT,". ",I,!! D L
W ?4,"b. Head, eye, ear, nose and throat",!! S CNT=0 F I="skull","scalp","vison/changes","diplopia","eye pain","conjunctivae","cornea","sclera","lens","pupils","fundi" S CNT=CNT+1 W ?($S(CNT<10:7,1:6)),CNT,". ",I,!! D L
W ?4,"Ears:",!! S CNT=0 F I="hearing loss","external ear","canals/drums","tinnitus" S CNT=CNT+1 W ?($S(CNT<10:7,1:6)),CNT,". ",I,!! D L
W ?4,"Nose:",!! S CNT=0 F I="external","mucosa","septum","turbinates" S CNT=CNT+1 W ?($S(CNT<10:7,1:6)),CNT,". ",I,!! D L
W ?4,"Mouth-throat:",!! S CNT=0 F I="lips","breath","teeth - dentures","bleeding gums","tongue","mucosa","tonsils","pharynx","speech","salivary glands","hoarseness" S CNT=CNT+1 W ?($S(CNT<10:7,1:6)),CNT,". ",I,!! D L
W ?4,"c. Neck:",!! S CNT=0 F I="range of motion","appearance","trachea","thyroid","masses" S CNT=CNT+1 W ?($S(CNT<10:7,1:6)),CNT,". ",I,!! D L
W ?4,"d. Breasts:",!! S CNT=0 F I="lumps","pain or tenderness","nipple discharge" S CNT=CNT+1 W ?($S(CNT<10:7,1:6)),CNT,". ",I,!! D L
W ?4,"e. Nodes:",!! S CNT=0 F I="cervical","axillary","inguinal" S CNT=CNT+1 W ?($S(CNT<10:7,1:6)),CNT,". ",I,!! D L
W ?4,"Musculoskeletal - spine,upper and lower extremeties:",!!
S CNT=0 F I="mobility, tenderness, pain of spine","joint pain","stiffness","joint swelling","muscle weakness","edema","ambulation","coordination" S CNT=CNT+1 W ?($S(CNT<10:7,1:6)),CNT,". ",I,!! D L
W ?4,"g. Respiratory:",!! S CNT=0 F I="cough","sputum","rheumatic fever","pleurisy","pneumonia","tuberculosis","shortness of breath","wheezing","asthma","pulmonary embolus" S CNT=CNT+1 W ?($S(CNT<10:7,1:6)),CNT,". ",I,!! D L
F I="configuration of thorax","respiratiory movements","percussion","inspiratory breath sounds","expiratiory breath sounds" S CNT=CNT+1 W ?($S(CNT<10:7,1:6)),CNT,". ",I,!! D L
W ?4,"h. Cardiovasular:",!!
S CNT=0 F I="heart inpulse","palpation, rhythm, auscultation","hypertension","rheumatic fever","chest pain/discomfort","shortness of breath","paroxysmal nocturnal dyspnea" S CNT=CNT+1 W ?($S(CNT<10:7,1:6)),CNT,". ",I,!! D L
F I="murmurs","edema","pulses","neck veins","peripheral veins","claudication","thrombophlebitis" S CNT=CNT+1 W ?($S(CNT<10:7,1:6)),CNT,". ",I,!! D L
W ?4,"i. Gastrointestinal:",!!
S CNT=0 F I="dysphagia","heartburn","nausea and vomiting","hematemesis","melena","abdominal wall/distention/tenderness","food intolerance","bowel sounds","ventral hernia","hepatitis" S CNT=CNT+1 W ?($S(CNT<10:7,1:6)),CNT,". ",I,!! D L
F I="gastric/marginal/duodenal ulcer","pancreatitis" S CNT=CNT+1 W ?($S(CNT<10:7,1:6)),CNT,". ",I,!! D L
W ?4,"j. Genitourinary:",!! S CNT=0 F I="nocturia/dysuria","incontinence","dribbling","polyuria","urinary infection","stones","veneral disease","discharge","impotence","penis" S CNT=CNT+1 W ?($S(CNT<10:7,1:6)),CNT,". ",I,!! D L
F I="scrotum","testes","epididymis","inguinal canal" S CNT=CNT+1 W ?($S(CNT<10:7,1:6)),CNT,". ",I,!! D L
W ?4,"Female:",!! F I="external genitalia","uretha","vagina","uterus","adnexa","abnormal menses","vaginal discharge","menorrhagia","dyspareunia","menopause","contraception" S CNT=CNT+1 W ?($S(CNT<10:7,1:6)),CNT,". ",I,!! D L
W ?4,"k. Rectal:",!! S CNT=0 F I="anus and sphincter","rectum","prostate","test for occult blood" S CNT=CNT+1 W ?($S(CNT<10:7,1:6)),CNT,". ",I,!! D L
W ?4,"l. Neurological:",!!
G ^DVBCPWC4
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBCPWC1 3626 printed Dec 13, 2024@01:45:25 Page 2
DVBCPWC1 ;ALB ISC/THM-POW EXAM, CONTINUED ; 5/14/91 1:05 PM
+1 ;;2.7;AMIE;;Apr 10, 1995
+2 GOTO EN
+3 ;
L IF $Y>55
DO HD2^DVBCPWCK
+1 QUIT
+2 ;
EN FOR I="bleeding","lumps or masses","vertigo","syncope","pruritis","rash","diabetes mellitus","thyroid disorders","cancer"
SET CNT=CNT+1
WRITE ?($SELECT(CNT<10:7,1:6)),CNT,". ",I,!!
DO L
+1 WRITE ?4,"b. Head, eye, ear, nose and throat",!!
SET CNT=0
FOR I="skull","scalp","vison/changes","diplopia","eye pain","conjunctivae","cornea","sclera","lens","pupils","fundi"
SET CNT=CNT+1
WRITE ?($SELECT(CNT<10:7,1:6)),CNT,". ",I,!!
DO L
+2 WRITE ?4,"Ears:",!!
SET CNT=0
FOR I="hearing loss","external ear","canals/drums","tinnitus"
SET CNT=CNT+1
WRITE ?($SELECT(CNT<10:7,1:6)),CNT,". ",I,!!
DO L
+3 WRITE ?4,"Nose:",!!
SET CNT=0
FOR I="external","mucosa","septum","turbinates"
SET CNT=CNT+1
WRITE ?($SELECT(CNT<10:7,1:6)),CNT,". ",I,!!
DO L
+4 WRITE ?4,"Mouth-throat:",!!
SET CNT=0
FOR I="lips","breath","teeth - dentures","bleeding gums","tongue","mucosa","tonsils","pharynx","speech","salivary glands","hoarseness"
SET CNT=CNT+1
WRITE ?($SELECT(CNT<10:7,1:6)),CNT,". ",I,!!
DO L
+5 WRITE ?4,"c. Neck:",!!
SET CNT=0
FOR I="range of motion","appearance","trachea","thyroid","masses"
SET CNT=CNT+1
WRITE ?($SELECT(CNT<10:7,1:6)),CNT,". ",I,!!
DO L
+6 WRITE ?4,"d. Breasts:",!!
SET CNT=0
FOR I="lumps","pain or tenderness","nipple discharge"
SET CNT=CNT+1
WRITE ?($SELECT(CNT<10:7,1:6)),CNT,". ",I,!!
DO L
+7 WRITE ?4,"e. Nodes:",!!
SET CNT=0
FOR I="cervical","axillary","inguinal"
SET CNT=CNT+1
WRITE ?($SELECT(CNT<10:7,1:6)),CNT,". ",I,!!
DO L
+8 WRITE ?4,"Musculoskeletal - spine,upper and lower extremeties:",!!
+9 SET CNT=0
FOR I="mobility, tenderness, pain of spine","joint pain","stiffness","joint swelling","muscle weakness","edema","ambulation","coordination"
SET CNT=CNT+1
WRITE ?($SELECT(CNT<10:7,1:6)),CNT,". ",I,!!
DO L
+10 WRITE ?4,"g. Respiratory:",!!
SET CNT=0
FOR I="cough","sputum","rheumatic fever","pleurisy","pneumonia","tuberculosis","shortness of breath","wheezing","asthma","pulmonary embolus"
SET CNT=CNT+1
WRITE ?($SELECT(CNT<10:7,1:6)),CNT,". ",I,!!
DO L
+11 FOR I="configuration of thorax","respiratiory movements","percussion","inspiratory breath sounds","expiratiory breath sounds"
SET CNT=CNT+1
WRITE ?($SELECT(CNT<10:7,1:6)),CNT,". ",I,!!
DO L
+12 WRITE ?4,"h. Cardiovasular:",!!
+13 SET CNT=0
FOR I="heart inpulse","palpation, rhythm, auscultation","hypertension","rheumatic fever","chest pain/discomfort","shortness of breath","paroxysmal nocturnal dyspnea"
SET CNT=CNT+1
WRITE ?($SELECT(CNT<10:7,1:6)),CNT,". ",I,!!
DO L
+14 FOR I="murmurs","edema","pulses","neck veins","peripheral veins","claudication","thrombophlebitis"
SET CNT=CNT+1
WRITE ?($SELECT(CNT<10:7,1:6)),CNT,". ",I,!!
DO L
+15 WRITE ?4,"i. Gastrointestinal:",!!
+16 SET CNT=0
FOR I="dysphagia","heartburn","nausea and vomiting","hematemesis","melena","abdominal wall/distention/tenderness","food intolerance","bowel sounds","ventral hernia","hepatitis"
SET CNT=CNT+1
WRITE ?($SELECT(CNT<10:7,1:6)),CNT,". ",I,!!
DO L
+17 FOR I="gastric/marginal/duodenal ulcer","pancreatitis"
SET CNT=CNT+1
WRITE ?($SELECT(CNT<10:7,1:6)),CNT,". ",I,!!
DO L
+18 WRITE ?4,"j. Genitourinary:",!!
SET CNT=0
FOR I="nocturia/dysuria","incontinence","dribbling","polyuria","urinary infection","stones","veneral disease","discharge","impotence","penis"
SET CNT=CNT+1
WRITE ?($SELECT(CNT<10:7,1:6)),CNT,". ",I,!!
DO L
+19 FOR I="scrotum","testes","epididymis","inguinal canal"
SET CNT=CNT+1
WRITE ?($SELECT(CNT<10:7,1:6)),CNT,". ",I,!!
DO L
+20 WRITE ?4,"Female:",!!
FOR I="external genitalia","uretha","vagina","uterus","adnexa","abnormal menses","vaginal discharge","menorrhagia","dyspareunia","menopause","contraception"
SET CNT=CNT+1
WRITE ?($SELECT(CNT<10:7,1:6)),CNT,". ",I,!!
DO L
+21 WRITE ?4,"k. Rectal:",!!
SET CNT=0
FOR I="anus and sphincter","rectum","prostate","test for occult blood"
SET CNT=CNT+1
WRITE ?($SELECT(CNT<10:7,1:6)),CNT,". ",I,!!
DO L
+22 WRITE ?4,"l. Neurological:",!!
+23 GOTO ^DVBCPWC4
