Routine: MCBPFTP3

Information

MCBPFTP3 ;WISC/TJK,ALG-PFT BRIEF REPORT-FLOWS ;6/24/99 08:58

Name	Line Occurrences
Function Call: WRITE	Prompt: ?3,"MACHINE: ",$S(MC17A="F":"FLOW TURBINE",MC17A="P":"PNEUMOTACH",MC17A="A":"ANEMOMETER",MC17A="DS":"DRY WATER SEAL",MC17A="WS":"WATER SEAL",MC17A="W":"WEDGE",1:"") Line Location: FLOW+4
Function Call: WRITE	Prompt: !! Line Location: FLOW1+1
Function Call: WRITE	Prompt: ?5,$S(TYPE="S":"STANDARD STUDY",TYPE="B":"AFTER BRONCHODILATOR",TYPE="I":"AFTER INHALATION CHALLENGE",1:"AFTER EXERCISE") Line Location: FLOW1+3
Function Call: WRITE	Prompt: !,?5,"(NOTES): ",$P(MCREC,U,6) Line Location: FLOW1+4
Function Call: WRITE	Prompt: !,?5,"FEV1/FVC",?17,"%" Line Location: FLOW1+9
Function Call: WRITE	Prompt: ?35,$J(ACT*100,5,0) Line Location: FLOW1+9
Function Call: WRITE	Prompt: !,?5,MEAS,?15,UNITS,?25,$S(PRED:$J(PRED,MCLNG,MCDL),1:""),?35,$J(ACT,MCLNG,MCDL),?45,$S(PRED:$J(ACT/PRED*100,5,1),1:"") Line Location: PRTLINE+1
Function Call: WRITE	Prompt: ?55,$J($P(MCP1,U,PC),MCLNG,MCDL) Condition for execution: $P(MCP1,U,PC) Line Location: PRTLINE+1
Function Call: WRITE	Prompt: ?65,$J($P(MCP2,U,PC),MCLNG,MCDL) Condition for execution: $P(MCP2,U,PC) Line Location: PRTLINE+1