Routine: MCBPFTP2

Information

MCBPFTP2 ;WISC/TJK,ALG-PFT BRIEF REPORT-VOLUMES ;2/24/98 15:42

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?5,$S(TYPE="B":"BODY BOX",TYPE="I":"INERT GAS DILUTION",TYPE="N":"NITROGEN WASH OUT",1:"X-RAY PLANIMETRY") Line Location: VOL+2
Function Call: WRITE	Prompt: !,?5,"(NOTES): ",$P(MCREC,U,6) Line Location: VOL+3
Function Call: WRITE	Prompt: ! Line Location: VOL+5
Function Call: WRITE	Prompt: !,?5,MEAS,?18,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
Function Call: WRITE	Prompt: @IOF,!!,?22,"CONFIDENTIAL PULMONARY FUNCTION REPORT",?70,"Page: ",PG Line Location: HEAD+0
Function Call: WRITE	Prompt: !,VADM(1),?60,SSN Line Location: HEAD+1
Function Call: WRITE	Prompt: !,CLIN,?60,"DATE: "_DATE Line Location: HEAD+2
Function Call: WRITE	Prompt: !,MCDOT Line Location: HEAD+3
Function Call: WRITE	Prompt: !,HEAD1,$E(MCDOT,1,80-$L(HEAD1)),! Line Location: HEAD2+0
Function Call: WRITE	Prompt: @TAB,+$E(X,4,5),"/",+$E(X,6,7),"/",$E(X,2,3) Line Location: PREVDATE+0