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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: QAQAHOC0

Package: Quality Assurance Integration

Routine: QAQAHOC0


Information

QAQAHOC0 ;HISC/DAD-AD HOC REPORTS: MAIN DRIVER ;7/12/95 14:53

Source Information

Source file <QAQAHOC0.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Quality Assurance Integration 3 ENASK^QAQAHOC1  SAVE^QAQAHOC3  EN2^QAQAHOC4  
VA FileMan 2 EN1^DIP  ^DIR  
Kernel 1 HOME^%ZIS  

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

Package Total Caller Graph
PAID 4 PRSDAH1  PRSDAH2  PRSDAH3  PRSDAH4  
Clinical Monitoring System 1 QAMAHOC  
EEO Complaint Tracking 1 EEOEAHOC  
Incident Reporting 1 QANAHOC  
Occurrence Screen 1 QAOSAHOC  
Patient Representative 1 QACADHOC  

Entry Points

Name Comments DBIA/ICR reference
SORT
PRNT
OTHER ; *** Execute OTHER entry point in the Ad Hoc interface routine
DHD ; *** Prompt user for report header
BYFLDS ; *** Process the BY and FLDS strings
EXIT ; *** Exit the Ad Hoc Reoprt Generator
XIT
COMMA(X) ; *** Remove extra commas from X
DHDCHK ; *** Check DHD for MUMPS code

External References

Name Field # of Occurrence
HOME^%ZIS QAQAHOC0+29
EN1^DIP BYFLDS+21
^DIR DHD+4
ENASK^QAQAHOC1 SORTPRNT+1
SAVE^QAQAHOC3 SORT+1, PRNT+2
EN2^QAQAHOC4 PRNTOTHER+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DHD+4
Function Call: WRITE
  • Prompt: !!?3,"Sort too big !!"
  • Line Location: BYFLDS+14
Function Call: WRITE
  • Prompt: !?3,"Skipping sort field number ",QAI,", "
  • Line Location: BYFLDS+15
Function Call: WRITE
  • Prompt: $P(QAQMENU(QAI),"^",2),"."
  • Line Location: BYFLDS+16
Function Call: WRITE
  • Prompt: !
  • Line Location: BYFLDS+21
Routine Call
  • %ZIS
  • Line Location:
    • QAQAHOC0+29
Routine Call
  • DIR
  • Line Location:
    • DHD+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] QAQAHOC0+28

Label References

Name Line Occurrences
$$COMMA BYFLDS+20
@( QAQAHOC0+29, OTHER+3
BYFLDS DHD+1
EXIT QAQAHOC0+28, QAQAHOC0+35, SORT+1, PRNT+2, OTHER+3, DHD+4
OTHER PRNT+2
PRNT SORT+1
XIT QAQAHOC0+29, BYFLDS+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% XIT!
%DT XIT!
%ZIS XIT!
BY QAQAHOC0+37*, BYFLDS+13, BYFLDS+18*, BYFLDS+20*, EXIT+1!
D0 XIT!
D1 XIT!
DA XIT!
DCOPIES OTHER+2!, EXIT+1!
DHD OTHER+2!, DHD+1, DHD+5!*, EXIT+1!
DHIT OTHER+2!, EXIT+1!
DIC BYFLDS+20!*, EXIT+1!
DIK XIT!
DIOBEG OTHER+2!, EXIT+1!
DIOEND OTHER+2!, EXIT+1!
DIR DHD+2!, XIT!
DIR("?" DHD+3*
DIR("A" DHD+3*
DIR(0 DHD+2*
DIROUT DHD+4, XIT!
DIRUT XIT!
DIS OTHER+2!, EXIT+1!
DLAYGO XIT!
DTOUT DHD+4, XIT!
DUOUT DHD+4, XIT!
DUZ(0 DHDCHK+1
FLDS QAQAHOC0+37*, EXIT+1!
FR EXIT+1!
IOP OTHER+2!, EXIT+1!
L BYFLDS+20*, EXIT+1!
PG OTHER+2!, EXIT+1!
POP XIT!
QA QAQAHOC0+30*, QAQAHOC0+31, QAQAHOC0+33, BYFLDS+2*, BYFLDS+3, BYFLDS+6*, BYFLDS+7, XIT!, COMMA+1*, COMMA+2
DHDCHK+1~, DHDCHK+2*
QAI QAQAHOC0+32*, BYFLDS+2*, BYFLDS+3, BYFLDS+4, BYFLDS+6*, BYFLDS+7, BYFLDS+11, BYFLDS+15, BYFLDS+16, XIT!
QAQ XIT!
QAQAGIN XIT!
QAQBEGIN XIT!
QAQBLURB QAQAHOC0+36*, XIT!
QAQCHKSM QAQAHOC0+30*, QAQAHOC0+33*, XIT!
QAQCHKSM(0 QAQAHOC0+31*, QAQAHOC0+32*, QAQAHOC0+33
QAQCHOSN SORT!, PRNT+1!, BYFLDS+1!, XIT!
QAQCHOSN( BYFLDS+4*, BYFLDS+11
QAQD0 XIT!
QAQD1 XIT!
QAQDIC QAQAHOC0+28, BYFLDS+20, EXIT+1!
QAQDIR XIT!
QAQDTIME QAQAHOC0+37*, XIT!
QAQEND XIT!
QAQEXIT XIT!
QAQFIELD XIT!
QAQFLDNO XIT!
QAQFOUND EXIT+1!
QAQLIST XIT!
QAQLST XIT!
QAQMACRO XIT!
QAQMAXOP XIT!
QAQMAXOP("P" QAQAHOC0+38*
QAQMAXOP("S" QAQAHOC0+38*
QAQMENU XIT!
QAQMENU( QAQAHOC0+30, QAQAHOC0+31, BYFLDS+16
QAQMENU(0 QAQAHOC0+29!
QAQMHDR EXIT+1!
QAQMLOAD SORT*, SORT+1, PRNT+1*, PRNT+2, XIT+1!
QAQMMAX QAQAHOC0+30*, QAQAHOC0+31*, QAQAHOC0+35, QAQAHOC0+36, EXIT+1!
QAQMOUTP SORT*, PRNTPRNT+1*, OTHER+1, XIT+1!
QAQMRTN QAQAHOC0+28, QAQAHOC0+29, EXIT+1!
QAQMSAVE SORT*, SORT+1, PRNT+1*, PRNT+2, XIT+1!
QAQNEXT QAQAHOC0+38*, SORTPRNT+1, XIT+1!
QAQNONE XIT+1!
QAQNUMOP XIT+1!
QAQNUMOP("P" QAQAHOC0+38*, PRNT+2*, BYFLDS+2
QAQNUMOP("S" QAQAHOC0+38*, SORT+1*, BYFLDS+6
QAQOK XIT+1!
QAQOPTN XIT+1!
QAQOPTN("P" BYFLDS+2, BYFLDS+3
QAQOPTN("S" BYFLDS+6, BYFLDS+7
QAQORDER XIT+1!
QAQORTN QAQAHOC0+28, OTHER+3, EXIT+1!
QAQPREFX XIT+1!
QAQQUIT QAQAHOC0+38*, SORT+1, PRNT+2, OTHER+3*, XIT+1!
QAQREPLC XIT+1!
QAQSELOP XIT+1!
QAQSEQ SORT*, SORT+1, PRNT+1*, PRNT+2, XIT+1!
QAQSHD BYFLDS+7*, BYFLDS+8, BYFLDS+10*, BYFLDS+11, XIT+1!
QAQSORT QAQAHOC0+30*, QAQAHOC0+31*, QAQAHOC0+35, XIT+1!
QAQSUFFX XIT+1!
QAQTAB XIT+1!
QAQTEMP XIT+1!
QAQTYPE SORT*, PRNT+1*, XIT+1!
QAQTYPE(0 SORT*, PRNT+1*
QAQTYPE(1 SORT*, PRNT+1*
QAQUNDL XIT+1!
QAQYESNO QAQAHOC0+37*, XIT+1!
TO EXIT+1!
X QAQAHOC0+31*, QAQAHOC0+32, BYFLDS+7*, BYFLDS+9*, BYFLDS+11*, BYFLDS+13, BYFLDS+18, XIT+1!, COMMA~, COMMA+1
, COMMA+2, DHDCHK+1, DHDCHK+2!
Y DHD+5, BYFLDS+7*, BYFLDS+10, XIT+1!
ZTDESC XIT+1!
ZTRTN XIT+1!
ZTSAVE XIT+1!
ZTSK XIT+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All