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

Package: Incident Reporting

Routine: QANBENE0


Information

QANBENE0 ;HISC/GJC-SPECIAL INCIDENTS INVOL. A BENEFICIARY ;4/13/93 08:24

Source Information

Source file <QANBENE0.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Incident Reporting 4 VALID^QANBENE  EN1^QANBENE1  HDH^QANBENE2  HDH^QANBENE3  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Quality Assurance Integration 1 K^QAQDATE  
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 QANBENE  QANBENE1  QANBENE2  

Entry Points

Name Comments DBIA/ICR reference
EN1 ;/*** Catagorize incidents ***/
TASK ;Call to %ZTLOAD
START ;IO requests
EXIT ;
KILL ;Kill and quit.
GO ;Set up variables.
LGIC ;Set up valid incidents
HDR ;Header generator.
LGIC1 ;Sorting wards into categories.
QLOOP ;Save variables for %ZTLOAD.
WARD ;determine if record should be included in report
TALLY ;create and increment globals for report
NOBEN ;process those records without valid ward information for exception
PRNOBEN ;print list of records excluded from report
HDH2 ;header for exception report

External References

Name Field # of Occurrence
^%ZIS TASK+2
HOME^%ZIS EXIT+1
^%ZISC EXIT+1
^%ZTLOAD TASK+4
^DIR EN1+8
VALID^QANBENE LGIC+3
EN1^QANBENE1 GO+14
HDH^QANBENE2 PRNOBEN+11
HDH^QANBENE3 START+7
K^QAQDATE KILL+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: TASK+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: TASK+2
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled!"),!
  • Line Location: TASK+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: @IOF,!?69,TODAY,!?69,"Page: ",PAGE,!!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: ?(IOM-$L(QANHEAD(0))\2),QANHEAD(0),!,?(IOM-$L(QANHEAD(1))\2),QANHEAD(1),!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?(IOM-$L(QANHEAD(2))\2),QANHEAD(2),!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !?(IOM-$L(QANHEAD(3))\2),QANHEAD(3)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !?(IOM-$L(QANHEAD(4))\2),QANHEAD(4)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!?QANTAB(5),"Total",?QANTAB(6),"Resulted in"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !?QANTAB(2),"Incident",?QANTAB(4),"Severity",?QANTAB(5),"Number",?QANTAB(6),"Investigation",!?QANTAB(2),"--------",?QANTAB(4),"--------",?QANTAB(5),"------",?QANTAB(6),"-------------"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !!?QANTAB(2),QANLBL_" (cont)"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !!!?25,"EXCEPTION REPORT"
  • Line Location: PRNOBEN+3
Function Call: WRITE
  • Prompt: !?10,"The following records were excluded from this report."
  • Line Location: PRNOBEN+4
Function Call: WRITE
  • Prompt: !?10,"_____________________________________________________"
  • Line Location: PRNOBEN+5
Function Call: WRITE
  • Prompt: !!?5,"Incident Number",?35,"Reason for Exclusion"
  • Line Location: PRNOBEN+6
Function Call: WRITE
  • Prompt: !?5,"---------------",?35,"--------------------"
  • Line Location: PRNOBEN+7
Function Call: WRITE
  • Prompt: !?6,$P(QANLINE,U),?32,$P(QANLINE,U,2)
  • Line Location: PRNOBEN+12
Function Call: WRITE
  • Prompt: !!!?25,"End of Report."
  • Line Location: PRNOBEN+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDH2+1
Function Call: WRITE
  • Prompt: !?(IOM-$L(QANHEAD(0))\2),QANHEAD(0)
  • Line Location: HDH2+2
Function Call: WRITE
  • Prompt: !?(IOM-$L(QANHEAD(1))\2),QANHEAD(1)
  • Line Location: HDH2+3
Function Call: WRITE
  • Prompt: !!?(IOM-$L(QANHEAD(2))\2),QANHEAD(2)
  • Line Location: HDH2+4
Routine Call
  • %ZIS
  • Line Location:
    • TASK+2
Routine Call
  • %ZIS
  • Line Location:
    • EXIT+1
Routine Call
  • DIR
  • Line Location:
    • EN1+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" TASK+1
^DIC(42 - [#42] WARD+3
^QA(740 - [#740] LGIC+9
^QA(742 - [#742] GO+8, GO+9, LGIC1+1, LGIC1+2
^QA(742.4 - [#742.4] GO+3, GO+5, GO+6, LGIC+1
^SC - [#44] LGIC1+9, WARD+1
^TMP("QANBEN" START+6!, START+10, KILL+10!, GO+11*, NOBEN+3*, PRNOBEN+1, PRNOBEN+9, PRNOBEN+10

Label References

Name Line Occurrences
EXIT TASK+4, START+8
GO START+7, START+9
HDH2 PRNOBEN+2
HDR GO+13
KILL EN1+9, TASK+3
LGIC GO+6
LGIC1 GO+9
NOBEN LGIC1+7, LGIC1+12
PRNOBEN START+10
QLOOP TASK+4
WARD LGIC1+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS TASK+2!*, KILL+1!
%ZIS("A" TASK+2*
D KILL+1!
DIC KILL+1!
DIR EN1+1!, EN1+8!
DIR("?" EN1+2*, EN1+3*, EN1+4*, EN1+5*, EN1+6*, EN1+7*
DIR("A" EN1+1*
DIR(0 EN1+1*
DIRUT EN1+9, KILL+1!
DT TASK+1
I KILL+1!, QLOOP+1*
IO START+1
IO("Q" TASK+4
IOF START+4, HDR+1, HDH2+1
IOM HDR+2, HDR+3, HDR+4, HDR+5, HDH2+2, HDH2+3, HDH2+4
IOP TASK+2!
IOSL PRNOBEN+11
PAGE START+5*, KILL+1!, HDR+1*
POP TASK+3, KILL+1!
QAN START+3*, KILL+2!
QAN("INC" LGIC+1*, LGIC+2
QAN1DIV KILL+3!, LGIC+8
QAN742 KILL+2!, LGIC1+2*, LGIC1+3
QAN7424 KILL+2!, LGIC+1*, LGIC+4, LGIC+6, LGIC1+5, LGIC1+10
QANAA KILL+2!, TALLY+1, TALLY+2
QANAB KILL+2!
QANBB KILL+2!
QANBENE KILL+2!, LGIC+4*, LGIC+5
QANCC KILL+2!
QANCONT KILL+2!, HDR+8
QANCOUNT START+6!, KILL+3!
QANCOUNT("INV" TALLY+2*
QANCOUNT("SLEV" TALLY+1*
QANDATE KILL+3!
QANDIV KILL+3!, GO+11, LGIC+6*, LGIC+7*, LGIC+8, LGIC+9*, LGIC+10*
QANDTH KILL+3!
QANDV KILL+3!
QANDVFLG KILL+3!, GO+13, LGIC+10, HDR+5
>> QANE PRNOBEN+8*, PRNOBEN+9*, PRNOBEN+10
QANFLG KILL+4!
QANFLG("IR ST AT" , LGIC+5
QANFLG("WARD A" , START+2*, START+3, START+9, WARD+6
QANFLG("WARD" EN1+10*, START+2, START+3*, GO+12, WARD+6
QANHEAD KILL+4!
QANHEAD(0 HDR+2, HDH2+2
QANHEAD(1 HDR+2, HDH2+3
QANHEAD(2 HDR+3, HDH2+4
QANHEAD(3 GO+12*, HDR+4
QANHEAD(4 HDR+5
QANHLOC KILL+4!
QANINPT KILL+4!
>> QANINUM LGIC1+5*, LGIC1+10*, NOBEN+3
QANINVST KILL+6!, TALLY+2
QANLBL KILL+4!, HDR+8, TALLY+1, TALLY+2
>> QANLINE PRNOBEN+10*, PRNOBEN+12
QANLP KILL+4!, GO+2*, GO+3*, GO+5
QANLP(1 GO+4*, GO+5*, GO+6, GO+8, GO+11, LGIC+1
QANLP(2 GO+7*, GO+8*, GO+9, GO+11, LGIC1+1, LGIC1+2
QANLWLT KILL+4!, GO+2
>> QANOWARD GO+1*, NOBEN+2*, NOBEN+3
QANPTTY KILL+5!, LGIC1+3*
QANQUIT START+3, START+7, START+8, KILL+5!, GO+6*, GO+10*, LGIC+2*, LGIC+3*, LGIC+5*, LGIC+8*
, LGIC1+8*, LGIC1+13*, WARD+7*, PRNOBEN+11
QANSITE KILL+6!
QANSLEV KILL+5!, LGIC1+3*, TALLY+1, TALLY+2
QANSTAT KILL+5!, LGIC+4*, LGIC+5
QANSWCH KILL+6!, LGIC+3
QANTAB KILL+5!
QANTAB(2 HDR+7, HDR+8
QANTAB(4 HDR+7
QANTAB(5 HDR+6, HDR+7
QANTAB(6 HDR+6, HDR+7
QANUPLT KILL+5!, GO+3
QANWARD KILL+5!, GO+11, LGIC1+3*, LGIC1+4, LGIC1+9, WARD+1*, WARD+2*, WARD+3*, WARD+4*, WARD+5*
, WARD+6
QANWHICH KILL+6!
>> QANWHY LGIC1+6*, LGIC1+11*, NOBEN+3
>> QANXXX WARD+6*, WARD+7
QAQNBEG KILL+7!
QAQNEND KILL+7!
TODAY TASK+1*, KILL+8!, HDR+1
U LGIC+1, LGIC+4, LGIC+6, LGIC1+3, LGIC1+5, LGIC1+10, WARD+3, PRNOBEN+12
X KILL+8!
Y EN1+10, TASK+1*, KILL+8!
ZTDESC TASK+4*, KILL+8!
ZTRTN TASK+4*, KILL+8!
ZTSAVE KILL+8!
ZTSAVE( QLOOP+1*
ZTSK TASK+4, KILL+8!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All