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

Package: Clinical Monitoring System

Routine: QAMEDT5


Information

QAMEDT5 ;HISC/DAD-EDIT MANUALLY ENROLL A FALL OUT ;2/10/92 07:33

Source Information

Source file <QAMEDT5.m>

Entry Points

Name Comments DBIA/ICR reference
MONITOR ;
PATIENT ;
DATE ;
ASKEDIT
ASKREC
ASKADD
EDIT ;
EXIT ;
LOOP0
LOOP1
DICW

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"*** THIS MONITOR IS STILL UNDER CONSTRUCTION, CANNOT CONTINUE ***",*7
  • Line Location: MONITOR+3
Function Call: WRITE
  • Prompt: !!?5,"*** THIS MONITOR'S ON/OFF SWITCH IS TURNED OFF, CANNOT CONTINUE ***",*7
  • Line Location: MONITOR+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !!,"Searching FALL OUT file for this patient/monitor...",!
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: !,"No fall outs found for this patient/monitor."
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: !!?5,"*** OUTSIDE START/END DATE RANGE OF MONITOR ***",*7
  • Line Location: DATE+4
Function Call: WRITE
  • Prompt: !?5,"*** START DATE: ",$S(Y]"":Y,1:"NONE")
  • Line Location: DATE+5
Function Call: WRITE
  • Prompt: " END DATE: ",$S(Y]"":Y,1:"NONE")," ***"
  • Line Location: DATE+5
Function Call: WRITE
  • Prompt: !!,"Searching FALL OUT file for this patient/monitor...",!
  • Line Location: DATE+6
Function Call: WRITE
  • Prompt: !,"No fall outs found for this patient/monitor."
  • Line Location: DATE+7
Function Call: WRITE
  • Prompt: !!,"Do you want to edit ",$S(QAMFOUND>1:"one of these records",1:"this record")
  • Line Location: ASKEDIT+0
Function Call: WRITE
  • Prompt: !!?5,"Please answer Y(es) or N(o)"
  • Line Location: ASKEDIT+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Record number: "
  • Variable: QAMREC
  • Timeout: DTIME
  • Line Location: ASKREC+0
Function Call: WRITE
  • Prompt: !!,"Enter the record number you wish to edit.",!
  • Line Location: ASKREC+1
Function Call: WRITE
  • Prompt: !!,*7,"Are you adding:"
  • Line Location: ASKADD+0
Function Call: WRITE
  • Prompt: !?3,$P(QAMDFN(0),"^"),?38,VA("PID"),?58,QAMEVENT(0),!?3,$P(QAMZERO,"^",2),?38,$P(QAMZERO,"^"),$S($P(QAMZERO,"^",4):" (a)",1:" (m)"),!,"as a new Fall Out record"
  • Line Location: ASKADD+1
Function Call: WRITE
  • Prompt: !!?5,"Please answer Y(es) or N(o)"
  • Line Location: ASKADD+2
Function Call: WRITE
  • Prompt: !?5,QAMD1,?15,Y
  • Line Location: LOOP1+0
Function Call: WRITE
  • Prompt: !?7,"*** FALL OUTS ***"
  • Line Location: DICW+1
Function Call: WRITE
  • Prompt: !?5
  • Line Location: DICW+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^QA(743 - [#743] Classic Fileman Calls
^QA(743.1 - [#743.1] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call