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

Package: Incident Reporting

Routine: QANUTL0


Information

QANUTL0 ;HISC/GJC-Utility for Incident Record Manipulation ;9/16/93 08:58

Source Information

Source file <QANUTL0.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 ^DIC  ^DIE  Y^DIQ  ^DIR  
Incident Reporting 1 INCK^QANFULL0  
Kernel 1 $$UP^XLFSTR  
Quality Assurance Integration 1 ^QAQAUDIT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Incident Reporting 1 QAN RECORD MANIPULATION  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
AUDIT ;File changes in the QA Audit File.
EN ;Choose your patient.
HDR ;
EN0
EN1 ;
KILL
HDH ;

External References

Name Field # of Occurrence
^DIC EN+3
^DIE EN+16, EN0+1, EN0+12, EN0+13, AUDIT+2
Y^DIQ EN+9, EN+10, EN1+4, EN1+5
^DIR EN+13, HDH+1
INCK^QANFULL0 EN0+11
^QAQAUDIT EN+17, AUDIT+1
$$UP^XLFSTR EN0+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"Patient: "_$P(PAT2,U),?40," Social Security Number: "_$P(PAT2,U,9)
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!,*7,"The incident global is incomplete, contact you site manager."
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,"Incident: "_QANINC_" on date "_QANDATE_".",!
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !!,*7,"No action taken, premature exit action encountered."
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: " "_$P(^DPT($P(^QA(742,+TEMPY,0),U),0),U,9)_" "_QANINC_" "_QANDATE_" "
  • Line Location: EN1+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDH+3
Function Call: WRITE
  • Prompt: !!,"This option will allow the user to open, close, or delete a record at the local level.",!,"The appropriate patient(s) records are marked to reflect the change for ",!,"incident: "_QANINC_" on date "_QANDATE_".",!
  • Line Location: HDR+1
Routine Call
  • DIE
  • Line Location:
    • EN+16
    • EN0+1
    • EN0+12
    • EN0+13
    • AUDIT+2
Routine Call
  • DIC
  • Line Location:
    • EN+3
Routine Call
  • DIR
  • Line Location:
    • EN+13
    • HDH+1

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)
^DD(742.4 EN+9, EN+10, EN1+4, EN1+5
^DPT - [#2] EN+6, EN1+6
^QA(742 - [#742] EN+6, EN+7, EN0+7, EN0+10, EN1+6
^QA(742.1 - [#742.1] EN0+8
^QA(742.4 - [#742.4] EN+7, EN0, EN1+2, EN1+3

Label References

Name Line Occurrences
AUDIT EN0+10
HDR EN+5, HDH+3
KILL EN+8, EN+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% KILL+1!
C EN+9*, EN+10*, KILL!, EN1+4*, EN1+5*
D KILL!
D0 KILL+1!
DA EN+16*!, EN0+1*, EN0+10*, EN0+12*, EN0+13*, KILL+1!
DD KILL!
DI KILL+1!
DIC EN+2*, EN+3!, KILL!
DIC("A" EN+2*
DIC("W" EN+2*
DIC(0 EN+2*
DIE EN+16*!, EN0+1*, EN0+6!*, EN0+12*, EN0+13*, KILL!
DIR EN+13!, KILL!, HDH+1!
DIR("A" EN+13*
DIR("B" EN+13*
DIR(0 EN+13*, HDH+1*
>> DIROUT EN+14
DR EN+16*!, EN0+1*, EN0+6!*, EN0+12*, EN0+13*, KILL!
DTOUT EN+14, KILL!
DUOUT EN+14, KILL!
IOF EN+5, HDH+3
IOST HDH+1
PAT2 EN+6*, KILL!
QAN EN0+10*, KILL!, AUDIT+1
QAN("Y" EN+15*, EN+16, EN+17, EN0+12
QAN0 EN+7*, EN+8, EN+9, EN+10, EN+12, EN0*, EN0+7, KILL!
QAN7424 KILL!, EN1+3*, EN1+4, EN1+5
QANACT EN0*, EN0+1, EN0+5, EN0+6, KILL+1!, AUDIT+1
QANDATE EN+10*, EN+11, KILL!, EN1+5*, EN1+6, HDR+1
QANDFN EN+4*, EN+6, EN+7, EN0+7, KILL+1!
QANIEN EN+7*, EN+16, EN+17, EN0, EN0+1, EN0+10, EN0+12, EN0+13, KILL!, EN1+2*
, EN1+3
QANINC EN+9*, EN+11, KILL+1!, EN1+4*, EN1+6, HDR+1
QANINCD EN+1~, EN0+9*
QANLSTA EN+12*, EN+13, EN0+1, KILL+1!
QANMSS KILL+1!
QANMSS(0 EN0+2*, EN0+5
QANMSS(1 EN0+3*, EN0+5
QANMSS(2 EN0+4*, EN0+5
QANNCDNT EN0+7*, EN0+8*, EN0+9, KILL+2!
QANOK EN0+11*, EN0+12, EN0+13, KILL+1!
QANSLEV EN0+7*, KILL+1!
QANXIT EN+1~*, HDH+1*, HDH+2
QAUDIT EN+17!, AUDIT+1!
QAUDIT("ACTION" EN+17*, AUDIT+1*
QAUDIT("COMMENT" EN+17*, AUDIT+1*
QAUDIT("DA" EN+17*, AUDIT+1*
QAUDIT("FILE" EN+17*, AUDIT+1*
TEMPY KILL+1!, EN1+1*, EN1+2, EN1+6, EN1+7
U EN+6, EN+7, EN+9, EN+10, EN+12, EN0, EN0+7, EN0+8, EN1+4, EN1+5
, EN1+6
X KILL+1!
Y EN+3, EN+4, EN+9*, EN+10*, EN+15, KILL+1!, EN1+1, EN1+4*, EN1+5*, EN1+7*
, HDH+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 |  Local Variables |  All