Routine: MCPFTP2A

Information

MCPFTP2A ;WISC/TJK-PFT REPORT-FLOWS ; 17 Jan 2017 4:41 PM

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+6
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+10
Function Call: WRITE	Prompt: ?35,$J(ACT*100,5,0) Line Location: FLOW1+10
Function Call: WRITE	Prompt: ! Line Location: DIF+2
Function Call: WRITE	Prompt: ?3,"METHOD: ",$S(MC17A=1:"SINGLE BREATH",MC17A=2:"STEADY STATE",1:"") Line Location: DIF+3
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