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

Package: Incident Reporting

Routine: QANBENE2


Information

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

Source Information

Source file <QANBENE2.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Incident Reporting 3 HDR^QANBENE0  (EN1,PRINT,SPECIAL)^QANBENE3  INST^QANRPT1  
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  QANBENE3  

Entry Points

Name Comments DBIA/ICR reference
EN1 ;sort through divisions, if integrated
EN2 ;Format of the print for our Beneficiary Report.
DEATH ;Prints for deaths.
RGLAR ;Regular w/o Severity Levels.
RGLAR2 ;Regular w/o severity levels - (homicide & suicide)
STNDRD ;Printing 'Severity Level'
HDH ;End of screen interface.

External References

Name Field # of Occurrence
^DIR HDH+2
HDR^QANBENE0 HDH+4
EN1^QANBENE3 EN2+33
PRINT^QANBENE3 EN2+23
SPECIAL^QANBENE3 EN2+6
INST^QANRPT1 EN1+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?QANTAB(1),"(1)",?QANTAB(2),"Alleged Patient Abuse"
  • Line Location: EN2+3
Function Call: WRITE
  • Prompt: !!?QANTAB(1),"(2)",?QANTAB(2),"Proven Patient Abuse"
  • Line Location: EN2+6
Function Call: WRITE
  • Prompt: !!?QANTAB(1),"(3)",?QANTAB(2),"Deaths"
  • Line Location: EN2+8
Function Call: WRITE
  • Prompt: !!?QANTAB(1),"(4)",?QANTAB(2),"Failure to Obtain",!?QANTAB(2),"Informed Consent"
  • Line Location: EN2+11
Function Call: WRITE
  • Prompt: !!?QANTAB(1),"(5)",?QANTAB(2),"Falls"
  • Line Location: EN2+14
Function Call: WRITE
  • Prompt: !!?QANTAB(1),"(6)",?QANTAB(2),"Homicide"
  • Line Location: EN2+18
Function Call: WRITE
  • Prompt: !!?QANTAB(1),"(7)",?QANTAB(2),"Medication Errors"
  • Line Location: EN2+22
Function Call: WRITE
  • Prompt: !!?QANTAB(1),"(8)",?QANTAB(2),"Missing Patient"
  • Line Location: EN2+27
Function Call: WRITE
  • Prompt: !!?QANTAB(1),"(9)",?QANTAB(2),"Patient on Patient",!?QANTAB(2),"Assault"
  • Line Location: EN2+31
Function Call: WRITE
  • Prompt: !?QANTAB(3),"In Operating Room",?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,3),0),?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,3),0)
  • Line Location: DEATH+2
Function Call: WRITE
  • Prompt: !?QANTAB(3),"In Recovery Room",?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,3),0),?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,3),0)
  • Line Location: DEATH+5
Function Call: WRITE
  • Prompt: !?QANTAB(3),"During induction"
  • Line Location: DEATH+7
Function Call: WRITE
  • Prompt: !?QANTAB(3)," of anesthesia",?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,3),0),?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,3),0)
  • Line Location: DEATH+8
Function Call: WRITE
  • Prompt: !?QANTAB(3),"Within 48 hrs. of"
  • Line Location: DEATH+10
Function Call: WRITE
  • Prompt: !?QANTAB(3)," surgery",?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,3),0),?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,3),0)
  • Line Location: DEATH+11
Function Call: WRITE
  • Prompt: !?QANTAB(3),"In conjunction with"
  • Line Location: DEATH+13
Function Call: WRITE
  • Prompt: !?QANTAB(3)," a procedure",?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,3),0),?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,3),0)
  • Line Location: DEATH+14
Function Call: WRITE
  • Prompt: !?QANTAB(3),"Equipment mal-"
  • Line Location: DEATH+16
Function Call: WRITE
  • Prompt: !?QANTAB(3)," function",?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,3),0),?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,3),0)
  • Line Location: DEATH+17
Function Call: WRITE
  • Prompt: !?QANTAB(3),"Due to failure to"
  • Line Location: DEATH+19
Function Call: WRITE
  • Prompt: !?QANTAB(3)," diagnose or treat",?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,3),0),?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,3),0)
  • Line Location: DEATH+20
Function Call: WRITE
  • Prompt: !?QANTAB(3),"Cases accepted by",!?QANTAB(3)," Medical Examiner"
  • Line Location: DEATH+22
Function Call: WRITE
  • Prompt: ?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,3),0),?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,3),0)
  • Line Location: DEATH+23
Function Call: WRITE
  • Prompt: !?QANTAB(3),"On medical center",!?QANTAB(3)," grounds while not"
  • Line Location: DEATH+24
Function Call: WRITE
  • Prompt: !?QANTAB(3)," being treated",?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,3),0),?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,3),0)
  • Line Location: DEATH+25
Function Call: WRITE
  • Prompt: ?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,2),0),?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,2),0)
  • Line Location: RGLAR+1
Function Call: WRITE
  • Prompt: ?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,3),0),?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,3),0)
  • Line Location: RGLAR2+1
Function Call: WRITE
  • Prompt: !?QANTAB(3),"Severity Level 0",?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,0),0)
  • Line Location: STNDRD+1
Function Call: WRITE
  • Prompt: ?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,0),0)
  • Line Location: STNDRD+2
Function Call: WRITE
  • Prompt: !?QANTAB(3),"Severity Level 1",?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,1),0)
  • Line Location: STNDRD+4
Function Call: WRITE
  • Prompt: ?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,1),0)
  • Line Location: STNDRD+5
Function Call: WRITE
  • Prompt: !?QANTAB(3),"Severity Level 2",?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,2),0)
  • Line Location: STNDRD+7
Function Call: WRITE
  • Prompt: ?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,2),0)
  • Line Location: STNDRD+8
Function Call: WRITE
  • Prompt: !?QANTAB(3),"Severity Level 3",?QANTAB(5),$G(QANCOUNT("SLEV",QANCC,QANLBL,3),0)
  • Line Location: STNDRD+10
Function Call: WRITE
  • Prompt: ?QANTAB(6),$G(QANCOUNT("INV",QANCC,QANLBL,3),0)
  • Line Location: STNDRD+11
Routine Call
  • DIR
  • Line Location:
    • HDH+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("QANBEN" EN1+3

Label References

Name Line Occurrences
DEATH EN2+8
EN2 EN1+7
HDH EN1+6, EN2+2, EN2+5, EN2+7, EN2+10, EN2+13, EN2+15, EN2+17, EN2+19, EN2+21
, EN2+24, EN2+26, EN2+28, EN2+30, EN2+32, DEATH+3, DEATH+6, DEATH+9, DEATH+12, DEATH+15
, DEATH+18, DEATH+21, DEATH+26, RGLAR+2, RGLAR2+2, STNDRD+3, STNDRD+6, STNDRD+9, STNDRD+12
RGLAR EN2+11
RGLAR2 EN2+18
STNDRD EN2+3, EN2+14, EN2+22, EN2+27, EN2+31

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR HDH+2!
DIR(0 HDH+2*
IOSL EN2+2, EN2+5, EN2+7, EN2+10, EN2+13, EN2+15, EN2+17, EN2+19, EN2+21, EN2+24
, EN2+26, EN2+28, EN2+30, EN2+32, DEATH+3, DEATH+6, DEATH+9, DEATH+12, DEATH+15, DEATH+18
, DEATH+21, DEATH+26, RGLAR+2, RGLAR2+2, STNDRD+3, STNDRD+6, STNDRD+9, STNDRD+12
IOST EN2+23, HDH+2
>> PAGE EN2+23
>> QANCC EN1+2*, EN1+3*, EN1+4, EN1+9*, DEATH+2, DEATH+5, DEATH+8, DEATH+11, DEATH+14, DEATH+17
, DEATH+20, DEATH+23, DEATH+25, RGLAR+1, RGLAR2+1, STNDRD+1, STNDRD+2, STNDRD+4, STNDRD+5, STNDRD+7
, STNDRD+8, STNDRD+10, STNDRD+11
>> QANCOUNT("INV" DEATH+2, DEATH+5, DEATH+8, DEATH+11, DEATH+14, DEATH+17, DEATH+20, DEATH+23, DEATH+25, RGLAR+1
, RGLAR2+1, STNDRD+2, STNDRD+5, STNDRD+8, STNDRD+11
>> QANCOUNT("SLEV" DEATH+2, DEATH+5, DEATH+8, DEATH+11, DEATH+14, DEATH+17, DEATH+20, DEATH+23, DEATH+25, RGLAR+1
, RGLAR2+1, STNDRD+1, STNDRD+4, STNDRD+7, STNDRD+10
>> QANDIV EN1+9*
>> QANDV EN1+4, EN1+5, EN1+9*
>> QANDVFLG EN1+1, EN1+9
>> QANHEAD(4 EN1+5*
>> QANLBL EN2+1*, EN2+4*, EN2+9*, EN2+12*, EN2+16*, EN2+20*, EN2+25*, EN2+29*, DEATH+1*, DEATH+2
, DEATH+4*, DEATH+5, DEATH+7*, DEATH+8, DEATH+10*, DEATH+11, DEATH+13*, DEATH+14, DEATH+16*, DEATH+17
, DEATH+19*, DEATH+20, DEATH+22*, DEATH+23, DEATH+24*, DEATH+25, RGLAR+1, RGLAR2+1, STNDRD+1, STNDRD+2
, STNDRD+4, STNDRD+5, STNDRD+7, STNDRD+8, STNDRD+10, STNDRD+11
>> QANQUIT EN1+6, EN1+7, EN1+8, EN2+2, EN2+3, EN2+5, EN2+6, EN2+7, EN2+8, EN2+10
, EN2+11, EN2+13, EN2+14, EN2+15, EN2+17, EN2+18, EN2+19, EN2+21, EN2+22, EN2+24
, EN2+26, EN2+27, EN2+28, EN2+30, EN2+31, EN2+32, EN2+33, DEATH+3, DEATH+6, DEATH+9
, DEATH+12, DEATH+15, DEATH+18, DEATH+21, DEATH+26, RGLAR+2, RGLAR2+2, STNDRD+3, STNDRD+6, STNDRD+9
, STNDRD+12, HDH+1, HDH+2*, HDH+3
>> QANTAB(1 EN2+3, EN2+6, EN2+8, EN2+11, EN2+14, EN2+18, EN2+22, EN2+27, EN2+31
>> QANTAB(2 EN2+3, EN2+6, EN2+8, EN2+11, EN2+14, EN2+18, EN2+22, EN2+27, EN2+31
>> QANTAB(3 DEATH+2, DEATH+5, DEATH+7, DEATH+8, DEATH+10, DEATH+11, DEATH+13, DEATH+14, DEATH+16, DEATH+17
, DEATH+19, DEATH+20, DEATH+22, DEATH+24, DEATH+25, STNDRD+1, STNDRD+4, STNDRD+7, STNDRD+10
>> QANTAB(5 DEATH+2, DEATH+5, DEATH+8, DEATH+11, DEATH+14, DEATH+17, DEATH+20, DEATH+23, DEATH+25, RGLAR+1
, RGLAR2+1, STNDRD+1, STNDRD+4, STNDRD+7, STNDRD+10
>> QANTAB(6 DEATH+2, DEATH+5, DEATH+8, DEATH+11, DEATH+14, DEATH+17, DEATH+20, DEATH+23, DEATH+25, RGLAR+1
, RGLAR2+1, STNDRD+2, STNDRD+5, STNDRD+8, STNDRD+11
>> Y HDH+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All