Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: MCPFTP2

Package: Medicine

Routine: MCPFTP2


Information

MCPFTP2 ;WISC/TJK-PFT REPORT-VOLUMES ;4/9/96 09:01

Source Information

Source file <MCPFTP2.m>

Entry Points

Name Comments DBIA/ICR reference
VOL
FLOW
EXIT
SETVAR
PRTLINE
PRTLINU
HEAD
HEAD1
HEAD2
PREVDATE
PRETEST

Interaction Calls

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: !,?5,"RV/TLC",?18,"%"
  • Line Location: VOL+8
Function Call: WRITE
  • Prompt: ?35,$J(ACT*100,5,0)
  • Line Location: VOL+8
Function Call: WRITE
  • Prompt: !
  • Line Location: VOL+9
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: !,?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: PRTLINU+0
Function Call: WRITE
  • Prompt: ?55,$J($P(MCP1,U,PC),MCLNG,MCDL)
  • Condition for execution: $P(MCP1,U,PC)
  • Line Location: PRTLINU+0
Function Call: WRITE
  • Prompt: ?65,$J($P(MCP2,U,PC),MCLNG,MCDL)
  • Condition for execution: $P(MCP2,U,PC)
  • Line Location: PRTLINU+0
Function Call: WRITE
  • Prompt: @IOF,!!,?22,"CONFIDENTIAL PULMONARY FUNCTION REPORT",?70,"Page: ",PG
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,VADM(1),?60,SSN
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !,CLIN,?60,"DATE: "_DATE
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,MCDOT
  • Line Location: HEAD+4
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
Info |  Source |  Entry Points |  Interaction Calls