Routine: MCBPFTP1

Information

MCBPFTP1 ;WISC/TJK,ALG-PFT BRIEF REPORT-DEMO INFO ;1/23/03 18:18

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"SEX: ",MCSEX," AGE:",AGE,?30,HT1," in/",WT1," lb",?60,"AMBIENT: ",$P(MCPFT0,U,12),"C/",$P(MCPFT0,U,7),"T" Line Location: MCBPFTP1+33
Function Call: WRITE	Prompt: !,"RACE: ",RACE Line Location: MCBPFTP1+34
Function Call: WRITE	Prompt: ! Condition for execution: $L(RACE)>60 Line Location: MCBPFTP1+34
Function Call: WRITE	Prompt: ?60,"TECH: ",$E(TECH,1,14) Line Location: MCBPFTP1+35
Function Call: WRITE	Prompt: !,$S($P(MCPFT0,U,8)="Y":"SMOKER",$P(MCPFT0,U,8)="N":"NON-SMOKER",1:"") Line Location: MCBPFTP1+36
Function Call: WRITE	Prompt: ?30 Line Location: MCBPFTP1+37
Function Call: WRITE	Prompt: "CURRENT BRONCHODILATOR USE" Condition for execution: $P(MCPFT0,U,9)="Y" Line Location: MCBPFTP1+37
Function Call: WRITE	Prompt: ?60,"EFFORT: ",MCEFF Line Location: MCBPFTP1+38
Function Call: WRITE	Prompt: !!,"CONSULT DX: " Line Location: MCBPFTP1+40
Function Call: WRITE	Prompt: ?15,^("E"),! Line Location: MCBPFTP1+41
Function Call: WRITE	Prompt: !,MCDOT Line Location: MCBPFTP1+42

FileNo	Call Tags
^MCAR(700 - [#700]	Classic Fileman Calls