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: MCPFTE

Package: Medicine

Routine: MCPFTE


Information

MCPFTE ;WISC/TJK-PULMONARY FUNCTION TEST ENTER/EDIT ;7/9/99 10:08

Source Information

Source file <MCPFTE.m>

Entry Points

Name Comments DBIA/ICR reference
DIC ; Pulmonary Function Test Enter/Edit
EXIT ; Leave gracefully
ORDERA
ORDER
ORDER1
IM
PVFASS ;Entry point to Associate Predicted Value Formulas
PVFEDT ;Entry point to Enter/Edit Predicited Value Formulas
DISP
BACK ;Set Y to the new record and allow the user to edit the new record

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?35,"REFERENCE: ",$P(MCX,U,3)
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !,?5,"SEX: ",$S($P(MCX,U,4)="F":"Female",$P(MCX,U,4)="M":"Male",1:"")
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: !,?5,"CI: ",$P(MCX,U,5),?18,"SEE: ",$P(MCX,U,6)
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !,?5,"METHOD: ",$P(MCX,U,7)
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !,?5,"DEMOGRAPHICS: ",$P(MCX,U,8)
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !,?5,"SMOKERS INCLUDED: ",$S($P(MCX,U,9)="N":"NO",$P(MCX,U,9)="Y":"YES",1:""),?30,"ALTITUDE: ",$P(MCX,U,10),!
  • Line Location: DISP+6

FileMan Files Accessed Via FileMan Db Call

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