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 |  Local Variables  | All
Print Page as PDF
Routine: QANUTL4

Package: Incident Reporting

Routine: QANUTL4


Information

QANUTL4 ;HISC/GJC-Utilities for report generation ;6/16/93 12:05

Source Information

Source file <QANUTL4.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 4 ^DIC  MIX^DIC1  YN^DICN  ^DIE  

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

Package Total Caller Graph
Incident Reporting 2 QANRPT1  QANUTL2  

Entry Points

Name Comments DBIA/ICR reference
QANLOC ;Finding Incident Locations.
QANLOC1 ;
QANLOC2
QANLOC3 ;
WARD ;Grabbing the patient's Ward Location
WARD1
WARD2
WARD3 ;STORING THE WARD LOCATION
INCD ;Grabbing the incident.
INCD1
INCD2
INCD3 ;STORING THE INCIDENT
CHECK ;Check for the final Incident type
CHK1

External References

Name Field # of Occurrence
^DIC QANLOC+7, QANLOC1+5, WARD+4, WARD1
MIX^DIC1 INCD+2, INCD1
YN^DICN CHK1
^DIE CHECK+3, CHK1+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Enter the beginning and ending Incident Locations."
  • Line Location: QANLOC+2
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: QANLOC+10
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: QANLOC1+8
Function Call: WRITE
  • Prompt: !!,$C(7),"The 'Start With' value must fall before the 'End With' value."
  • Line Location: QANLOC2+1
Function Call: WRITE
  • Prompt: !!,"Enter the beginning and ending ward/clinic locations for a patient."
  • Line Location: WARD+2
Function Call: WRITE
  • Prompt: !!,$C(7),"The 'Start with' values must fall before the 'End with' values."
  • Line Location: WARD2+0
Function Call: WRITE
  • Prompt: !!,"Enter the beginning and ending incident for a patient."
  • Line Location: INCD+1
Function Call: WRITE
  • Prompt: !!,$C(7),"The 'Start with' values must fall before the 'End with' values."
  • Line Location: INCD2+0
Function Call: WRITE
  • Prompt: !!,"Is this the final incident type"
  • Line Location: CHK1+0
Function Call: WRITE
  • Prompt: !!,"Enter ""N""o if you wish to enter a new Incident and Severity Level,",!,"""Y""es if the current Incident and Severity Level are correct."
  • Line Location: CHK1+0
Routine Call
  • DIC
  • Line Location:
    • QANLOC+7
    • QANLOC1+5
    • WARD+4
    • WARD1
Routine Call
  • DIE
  • Line Location:
    • CHECK+3
    • CHK1+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^QA(742 - [#742] CHECK+1, CHECK+2
^QA(742.1 - [#742.1] INCD3+4, INCD3+5, CHECK+1
^QA(742.4 - [#742.4] CHECK+5
^QA(742.5 - [#742.5] QANLOC3+4, QANLOC3+5
^SC("B" WARD3+4, WARD3+5
^TMP("QANRPT1" QANLOC3+5*, WARD3+6*, INCD3+5*

Label References

Name Line Occurrences
INCD INCD2
INCD2 INCD1+1
INCD3 INCD2+1
QANLOC QANLOC+11, QANLOC2+4
QANLOC1 QANLOC+8, QANLOC1+9
QANLOC2 QANLOC1+6
QANLOC3 QANLOC1+3
WARD WARD2
WARD2 WARD1+1
WARD3 WARD2+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % CHECK+5*, CHK1CHK1+1, CHK1+2
D INCD+2*!, INCD1*!
DA CHECK+3!*, CHECK+4!, CHK1+2!*
DIC QANLOC+7*!, QANLOC1+5*!, WARD+3*, WARD+4!, WARD1*!, INCD+2*!, INCD1*!
DIC("A" WARD+3*, WARD1*, INCD+2*, INCD1*
DIC("S" WARD+4*, WARD1*
DIC(0 QANLOC+7*, QANLOC1+5*, WARD+3*, WARD1*, INCD+2*, INCD1*
DIE CHECK+3!*, CHECK+4!, CHK1+2!*
DR CHECK+3!*, CHECK+4!, CHK1+2!*
DTIME QANLOC+3, QANLOC1+1
>> DTOUT QANLOC+9, QANLOC1+7, WARD+6, WARD1+2, INCD+4, INCD1+2
>> DUOUT QANLOC+9, QANLOC1+7, WARD+6, WARD1+2, INCD+4, INCD1+2
QANCC QANLOC3+1~, QANLOC3+3*, QANLOC3+4, WARD3+1~, WARD3+3*, WARD3+4, INCD3+1~, INCD3+3*, INCD3+4
>> QANDAT1 QANLOC+8*, WARD+7*, INCD+5*
>> QANDAT2 QANLOC1+6*, WARD1+3*, INCD1+3*
QANDATA1 QANLOC+8*, QANLOC2QANLOC2+2!, QANLOC3+2, WARD+7*, WARD2!, WARD3+2, INCD+5*, INCD2!, INCD3+2
QANDATA2 QANLOC1+3*, QANLOC1+6*, QANLOC2QANLOC2+2!, QANLOC3+3, WARD1+1*, WARD1+3*, WARD2!, WARD3+3, INCD1+1*
INCD1+3*, INCD2!, INCD3+3
>> QANDD QANLOC3+5*, WARD3+5*, WARD3+6, INCD3+5*
>> QANDFN CHECK+1, CHECK+2, CHECK+3
QANEE QANLOC3+1~, QANLOC3+2*, QANLOC3+4*, QANLOC3+5, WARD3+1~, WARD3+2*, WARD3+4*, WARD3+5, WARD3+6, INCD3+1~
INCD3+2*, INCD3+4*, INCD3+5
>> QANFLG QANLOC+1*, QANLOC2+3*, QANLOC2+4, WARD+1*
>> QANIEN CHECK+5, CHK1+2
>> QANINFLG INCD+3*
>> QANIRIN CHECK+1, CHECK+2
>> QANLCFLG QANLOC+5*, WARD+5*
>> QANY QANLOC+1*, QANLOC+4*, QANLOC+9*, QANLOC1+2*, QANLOC1+7*, WARD+1*, WARD+6*, WARD1+2*, INCD+1*, INCD+4*
INCD1+2*
>> QANYN CHK1+1*
U CHECK+1, CHECK+2, CHECK+5
>> X QANLOC+3*, QANLOC+4, QANLOC+5, QANLOC+6*, QANLOC+10, QANLOC1+1*, QANLOC1+2, QANLOC1+3, QANLOC1+4*, QANLOC1+8
WARD+5, WARD1+1, INCD+3, INCD1+1
>> Y QANLOC+8, QANLOC+10, QANLOC1+6, QANLOC1+8, WARD+7, WARD1+3, INCD+5, INCD1+3
>> Y(0 QANLOC+8, QANLOC1+6, WARD+7, WARD1+3, INCD+5, INCD1+3
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 |  Local Variables  | All