Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 4 ^%DT  (HELP,NOW)^%DTC  ^DIC  (FILE,YN)^DICN  
Clinical Monitoring System 1 (,AUDIT)^QAMEDT5A  
Registration 1 PID^VADPT6  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Clinical Monitoring System 1 QAM FALL OUT EDIT  

Entry Points

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

External References

Name Field # of Occurrence
^%DT DATE+3
HELP^%DTC DATE+2
NOW^%DTC DATE+1
^DIC MONITOR+1, PATIENT+1
FILE^DICN ASKADD+3
YN^DICN ASKEDIT+1, ASKADD+2
^QAMEDT5A EDIT+1
AUDIT^QAMEDT5A ASKADD+3
PID^VADPT6 ASKADD

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
Routine Call
  • DIC
  • Line Location:
    • MONITOR+1
    • PATIENT+1

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DATE+3, DATE+5, LOOP1
^DD(2 DICW
^DD(743.1 DICW+2
^DPT - [#2] DICW
^QA(743 - [#743] MONITOR+2
^QA(743.1 - [#743.1] LOOP0, LOOP1, DICW+1, DICW+2

Label References

Name Line Occurrences
ASKADD DATE+7, ASKEDIT+1, ASKADD+2
ASKEDIT DATE+2, ASKEDIT+1
ASKREC ASKREC+1
DATE DATE+2, DATE+3, DATE+5, ASKEDIT+1
EDIT ASKEDIT+2, ASKREC
EXIT MONITOR+1
LOOP0 DATE+2, DATE+6, ASKREC+1
LOOP1 LOOP0
MONITOR MONITOR+3, MONITOR+4, PATIENT+1
PATIENT DATE+1, ASKEDIT+1, ASKREC, ASKADD+2, EDIT+1

Naked Globals

Name Field # of Occurrence
^(0 MONITOR+2, DICW, DICW+2
^(1 MONITOR+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DATE+1, ASKEDIT+1*, ASKADD+2*, EXIT+1!
%DT DATE+1!*, DATE+3!, EXIT+1!
%DT("A" DATE+1*
%DT(0 DATE+1*
%Y ASKADD+2, EXIT+2!
D0 EXIT+1!
D1 EXIT+1!
DA EXIT+1!
DD ASKADD+3!
DFN ASKADD*, EXIT+2!
DGT EXIT+2!
DI EXIT+2!
DIC MONITOR+1!*, PATIENT+1!*, ASKADD+3!*, EXIT+1!, DICW+1~*
DIC("A" MONITOR+1*, PATIENT+1*
DIC("DR" ASKADD+3*
DIC("W" PATIENT+1*
DIC(0 MONITOR+1*, PATIENT+1*, ASKADD+3*
DIE EXIT+1!
DINUM ASKADD+3!
DIQ EXIT+2!
DIRUT EXIT+1!
DLAYGO ASKADD+3*, EXIT+1!
DO ASKADD+3!
DQ EXIT+2!
DR EXIT+1!
DTIME DATE+1, ASKREC
DTOUT EXIT+1!
MAX EXIT+2!
QA EXIT+1!, DICW+2*
QADA EXIT+2!
QADIROUT EXIT+2!
QADIRPNT EXIT+2!
QAM EXIT+1!, DICW*, DICW+2*
QAMD0 MONITOR+1*, MONITOR+2, ASKADD+3, EXIT+1!, LOOP0, LOOP1
QAMD1 EXIT+1!, LOOP1*
QAMDA EXIT+2!
QAMDD EXIT+2!
QAMDFLT DATE+2*, DATE+6*, EXIT+1!, LOOP0
QAMDFN PATIENT+1*, ASKADD, ASKADD+3, EXIT+1!, LOOP0, LOOP1
QAMDFN(0 PATIENT+1*, ASKADD+1
QAMDIR EXIT+2!
QAMDT DATE+1*, EXIT+1!, LOOP0*, LOOP1
QAMDTPT EXIT+2!
QAME1 EXIT+2!
QAMELEM EXIT+2!
QAMEVENT DATE+3*, DATE+4, DATE+6, ASKADD+3, EXIT+1!
QAMEVENT(0 DATE+3*, ASKADD+1
QAMFIELD EXIT+2!
QAMFLD EXIT+1!
QAMFOUND DATE+2, DATE+7, ASKEDIT, ASKEDIT+2, EXIT+1!, LOOP0*, LOOP1*
QAMID EXIT+2!, DICW*, DICW+2*
QAMID(0 DICW*, DICW+2*
QAMIDENT EXIT+2!, DICW*, DICW+2*
QAMIEN EXIT+1!
QAMLEVL EXIT+2!
QAMLIST ASKEDIT+2, ASKREC, EXIT+1!, LOOP0*, LOOP1*
QAMONE MONITOR+2*, MONITOR+4, DATE+4, DATE+5, EXIT+1!
QAMPCENT EXIT+1!
QAMQUIT EXIT+1!
QAMREC ASKEDIT+2*, ASKREC*, ASKADD+3*, EXIT+1!
QAMX1 DATE+1*, DATE+2, ASKEDIT+1, EXIT+1!
QAMXFORM EXIT+1!
QAMY EXIT+2!, DICW*, DICW+1, DICW+2
QAMZERO MONITOR+2*, MONITOR+3, ASKADD+1, EXIT+1!
>> QAUDIT("ACTION" ASKADD+3*
>> QAUDIT("COMMENT" ASKADD+3*
VA EXIT+2!
VA("PID" ASKADD+1
VAERR EXIT+2!
X DATE+1*, ASKADD+3*, EXIT+1!
Y MONITOR+1, PATIENT+1, DATE+3, DATE+5*, ASKADD+3, EXIT+1!, LOOP1*, DICW~*, DICW+2*
Y(0 PATIENT+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All