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

Package: Incident Reporting

Routine: QANBENE3


Information

QANBENE3 ;HISC/GJC-Special incidents invol. a beneficiary ;3/3/92

Source Information

Source file <QANBENE3.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Incident Reporting 1 (HDH,RGLAR,RGLAR2,STNDRD)^QANBENE2  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Incident Reporting 3 QANBENE0  QANBENE1  QANBENE2  

Entry Points

Name Comments DBIA/ICR reference
EN1 ;Format of the print for our Beneficiary Report.
HDH ;End of report interface.
PRINT ;Print out labels.
SPECIAL ;Special output "Proven Patient Abuse" and "Suicide Attempt"

External References

Name Field # of Occurrence
^DIR HDH+1
HDH^QANBENE2 EN1+2, EN1+5, EN1+8, EN1+11, EN1+14, EN1+17, EN1+20, PRINT+1, SPECIAL+3, SPECIAL+6
, SPECIAL+9
RGLAR^QANBENE2 EN1+12
RGLAR2^QANBENE2 EN1+18
STNDRD^QANBENE2 EN1+3, EN1+6, EN1+9, EN1+21

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?QANTAB(1),"(10)",?QANTAB(2),"Patient on Staff",!?QANTAB(2),"Assault"
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !!?QANTAB(1),"(11)",?QANTAB(2),"Patient Injury",!?QANTAB(2),"(not otherwise listed)"
  • Line Location: EN1+6
Function Call: WRITE
  • Prompt: !!?QANTAB(1),"(12)",?QANTAB(2),"Patient Involved",!?QANTAB(2),"in Fire"
  • Line Location: EN1+9
Function Call: WRITE
  • Prompt: !!?QANTAB(1),"(13)",?QANTAB(2),"Sexual Assault"
  • Line Location: EN1+12
Function Call: WRITE
  • Prompt: !!?QANTAB(1),"(14)",?QANTAB(2),"Suicide Attempt"
  • Line Location: EN1+15
Function Call: WRITE
  • Prompt: !!?QANTAB(1),"(15)",?QANTAB(2),"Suicide"
  • Line Location: EN1+18
Function Call: WRITE
  • Prompt: !!?QANTAB(1),"(16)",?QANTAB(2),"Transfusion Error"
  • Line Location: EN1+21
Function Call: WRITE
  • Prompt: !!!,"No Incidents to report.",!!!
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !,"VA Form 10-0139"_$S(QANFLG("WARD")="D":"E",QANFLG("WARD")="N":"D",QANFLG("WARD")="O":"C",QANFLG("WARD")="I":"B",QANFLG("WARD")="C":"BCDE",1:"")
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !?QANTAB(3),"Severity Level 0",?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,0),0)
  • Line Location: SPECIAL+1
Function Call: WRITE
  • Prompt: ?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,0),0)
  • Line Location: SPECIAL+2
Function Call: WRITE
  • Prompt: !?QANTAB(3),"Severity Level 1",?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,1),0)
  • Line Location: SPECIAL+4
Function Call: WRITE
  • Prompt: ?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,1),0)
  • Line Location: SPECIAL+5
Function Call: WRITE
  • Prompt: !?QANTAB(3),"Severity Level 2",?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,2),0)
  • Line Location: SPECIAL+7
Function Call: WRITE
  • Prompt: ?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,2),0)
  • Line Location: SPECIAL+8
Routine Call
  • DIR
  • Line Location:
    • HDH+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("QANBEN" PRINT+1

Label References

Name Line Occurrences
PRINT EN1+22
SPECIAL EN1+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR HDH+1!
DIR(0 HDH+1*
IOSL EN1+2, EN1+5, EN1+8, EN1+11, EN1+14, EN1+17, EN1+20, SPECIAL+3, SPECIAL+6, SPECIAL+9
IOST EN1+22, HDH+1
>> PAGE EN1+22
>> QANCC SPECIAL+1, SPECIAL+2, SPECIAL+4, SPECIAL+5, SPECIAL+7, SPECIAL+8
>> QANCOUNT("INV" SPECIAL+2, SPECIAL+5, SPECIAL+8
>> QANCOUNT("SLEV" SPECIAL+1, SPECIAL+4, SPECIAL+7
>> QANFLG("WARD" PRINT+2
>> QANLBL EN1+1*, EN1+4*, EN1+7*, EN1+10*, EN1+13*, EN1+16*, EN1+19*, SPECIAL+1, SPECIAL+2, SPECIAL+4
, SPECIAL+5, SPECIAL+7, SPECIAL+8
>> QANQUIT EN1+2, EN1+3, EN1+5, EN1+6, EN1+8, EN1+9, EN1+11, EN1+12, EN1+14, EN1+15
, EN1+17, EN1+18, EN1+20, EN1+21, HDH+1*, SPECIAL+3, SPECIAL+6, SPECIAL+9
>> QANTAB(1 EN1+3, EN1+6, EN1+9, EN1+12, EN1+15, EN1+18, EN1+21
>> QANTAB(2 EN1+3, EN1+6, EN1+9, EN1+12, EN1+15, EN1+18, EN1+21
>> QANTAB(3 SPECIAL+1, SPECIAL+4, SPECIAL+7
>> QANTAB(5 SPECIAL+1, SPECIAL+4, SPECIAL+7
>> QANTAB(6 SPECIAL+2, SPECIAL+5, SPECIAL+8
>> Y HDH+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All