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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: MCPFTP1

Package: Medicine

Routine: MCPFTP1


Information

MCPFTP1 ;WISC/TJK-PFT REPORT-DEMO INFO ;1/17/03 11:57

Source Information

Source file <MCPFTP1.m>

Entry Points

Name Comments DBIA/ICR reference
EXIT
EXIT1 ;
PRED
MCRACE
ORIENTAL
NOTE
CONFID(MCPV,VALUE) ;
PREDV(MCPV,VALUE)
MCPV(MCDA) ; Get the Predicted Value entry
PREDS
BSA(HT,WT) ; Compute BSA
ETHN(MCRSTR,MCETH) ; Get the Race and Ethnicity arrays and concat with Race

Interaction Calls

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^MCAR(700 - [#700] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call