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

Package: Clinical Monitoring System

Routine: QAMEDT5A


Information

QAMEDT5A ;HISC/DAD-EDIT MANUALLY ENROLL A FALL OUT ;12/14/92 09:05

Source Information

Source file <QAMEDT5A.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 (FILE,YN)^DICN  ^DIE  EN^DIQ1  ^DIR  
Clinical Monitoring System 2 $$EXIST^QAMUTL1  EN1^QAMUTL2  
Quality Assurance Integration 1 ^QAQAUDIT  

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 QAMEDT5  

Entry Points

Name Comments DBIA/ICR reference
EXIT ;
LOOP1 ; *** LOOP THRU DATA ELEMENTS
DIR
DIRCHK
DONE
DELETE ; *** DELETE DATA FOR DATA ELEMENT
DEL
DEFAULT ; *** COMPUTE DEFAULT VALUE FOR DATA ELEMENT
; *** REQUIRES: QAMDFN, QAMELEM, QAMEVENT
FIN ;
LOOP2 ;
AUDIT ;GENERATE THE AUDIT RECORD FOR THIS EDIT

External References

Name Field # of Occurrence
FILE^DICN LOOP1+3
YN^DICN DEL+1
^DIE QAMEDT5A+2, DONE+2, DEL+2
EN^DIQ1 DEFAULT+7
^DIR DIR
$$EXIST^QAMUTL1 LOOP1+8
EN1^QAMUTL2 LOOP1+4
^QAQAUDIT AUDIT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: QAMEDT5A+2
Function Call: WRITE
  • Prompt: !,$P($G(^QA(743.4,QAMFLD,0)),"^"),":"
  • Line Location: LOOP1+9
Function Call: WRITE
  • Prompt: !!?5,"*** File not found !! ***",*7,!
  • Line Location: LOOP1+10
Function Call: WRITE
  • Prompt: " ??",*7
  • Line Location: DEL+0
Function Call: WRITE
  • Prompt: !!?10,"Please answer Y(es) or N(o)",!
  • Line Location: DEL+1
Routine Call
  • DIE
  • Line Location:
    • QAMEDT5A+2
    • DONE+2
    • DEL+2
Routine Call
  • DIR
  • Line Location:
    • DIR

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^QA(743.1 - [#743.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^QA(743 - [#743] QAMEDT5A+3, LOOP1+1, LOOP1+6
^QA(743.1 - [#743.1] LOOP1+2, LOOP1+3*, LOOP1+5, LOOP1+6, DEL
^QA(743.4 - [#743.4] LOOP1+9, DEFAULT+3, DEFAULT+6

Label References

Name Line Occurrences
AUDIT QAMEDT5A+2
DEFAULT LOOP1+6
DEL DEL+1
DELETE DIRCHK
DIR DIRCHK
DIRCHK LOOP1+8
DONE DIRCHK
EXIT QAMEDT5A+2
FIN DEFAULT+3, DEFAULT+5
LOOP1 QAMEDT5A+3
LOOP2 DEFAULT+6

Naked Globals

Name Field # of Occurrence
^("E" LOOP1+5, DEL
^(0 LOOP1+6, DEFAULT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DEL*, DEL+1, DEL+2
>> D0 LOOP1+3*, DONE+2*, DEL+2*
>> D1 DONE+2*, DEL+2*
DA QAMEDT5A+2*, DONE+2*, DEL+2*, DEFAULT+2!, LOOP2+1*
DA( LOOP2+2*
DA(1 LOOP1+3*, DONE+2*, DEL+2*
DD LOOP1+3!
DIC LOOP1+3!*, DONE+2!, DELETE+1~, DEFAULT+2!, DEFAULT+3*
DIC(0 LOOP1+3*
DIE QAMEDT5A+2*, DONE+2!*, DEL+2!*
DINUM LOOP1+3!
DIQ DEFAULT+2!, DEFAULT+3*
DIQ(0 DEFAULT+3*
DIR LOOP1+1!, DONE+2!, DELETE+1~
DIR("A" LOOP1+4
DIR("B" LOOP1+7*!
DIR(0 LOOP1+4, LOOP1+8, DIR
DIRUT LOOP1+1!, LOOP1+11*, DIR*, DIRCHK!, DONE
>> DLAYGO LOOP1+3*
DO LOOP1+3!
DR QAMEDT5A+2*, DONE+2!*, DEL+2!*, DEFAULT+2!, LOOP2+1*
DR( LOOP2+2*
DTOUT LOOP1+11!, DIRCHK
>> MAX DEFAULT+5*, LOOP2+3*
>> QADA LOOP2+1*, LOOP2+2*, LOOP2+3
QADIROUT LOOP1+11!, DONE+1
>> QADIRPNT DEFAULT+4
>> QAM LOOP1+6*
>> QAMD0 QAMEDT5A+3, LOOP1+1, LOOP1+6
>> QAMD1 QAMEDT5A+3*, LOOP1+1, LOOP1+6
>> QAMDA("MAX" DEFAULT+5*, FIN+1, LOOP2+3*
>> QAMDD DEFAULT+6*, LOOP2+2, LOOP2+3
>> QAMDD("MAX" DEFAULT+5*, FIN+1, LOOP2+3*
>> QAMDFN LOOP1+6*
>> QAMDIR("B" LOOP1+5*, LOOP1+6*, LOOP1+7
QAMDTPT DEFAULT+2!, DEFAULT+5
QAMDTPT( LOOP2+1, LOOP2+2
>> QAME1 DEFAULT+6*
QAMELEM LOOP1+4*, LOOP1+6!*, DEFAULT+3, DEFAULT+6
QAMELEM( FIN+1
>> QAMEVENT LOOP1+6*
>> QAMFIELD DEFAULT+6*, LOOP2+1, LOOP2+2, LOOP2+3
>> QAMFIELD("MAX" DEFAULT+5*, FIN+1, LOOP2+3*
>> QAMFLD LOOP1+1*, LOOP1+2, LOOP1+3, LOOP1+4, LOOP1+9
>> QAMIEN LOOP1+2*, LOOP1+3*, LOOP1+5, DONE+2, DEL, DEL+2
>> QAMLEVL DEFAULT+6*, LOOP2+1, LOOP2+2, LOOP2+3
>> QAMPCENT DIRCHK, DEL*, DEL+1*
>> QAMQUIT QAMEDT5A+3*, DONE*
>> QAMREC QAMEDT5A+2, LOOP1+2, LOOP1+3, LOOP1+5, LOOP1+6, DONE+2, DEL, DEL+2, AUDIT+1
>> QAUDIT("ACTION" QAMEDT5A+2*
>> QAUDIT("COMMENT" QAMEDT5A+2*
>> QAUDIT("DA" AUDIT+1*
>> QAUDIT("FILE" AUDIT+1*
>> X LOOP1+3*, LOOP1+6, LOOP1+11*, DIRCHK, DEFAULT+6*, FIN+1*
>> Y QAMEDT5A+2, LOOP1+3, DIR, DIRCHK*, DONE+2
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