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

Package: IHS Changes To Scheduling

Routine: BSDWKR1


Information

BSDWKR1 ; IHS/ANMC/LJF - WORKLOAD STATS; [ 01/04/2005 4:42 PM ]

Source Information

Source file <BSDWKR1.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 4 ^%ZISC  ($$FMDIFF,$$FMTE)^XLFDT  $$REPEAT^XLFSTR  DISP^XQORM1  
Registration 3 EN^VALM  TERM^VALM0  CLEAR^VALM1  
IHS Changes To ADT 1 ($$BROWSE,$$RANGE,$$READ,MSG,ZIS)^BDGF  
IHS Changes To Scheduling 1 ($$PRIN,$$PRV,$$TEAM,CLINIC,PCASK)^BSDU  
IHS VA Utilities 1 $$VAL^XBDIQ1  
VA Fileman 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
IHS Changes To Scheduling 4 BSDAMR2  BSDAMR3  BSDAMR4  BSDWKR2  

Entry Points

Name Comments DBIA/ICR reference
HDR ; -- header code
PAD(D,L) ;EP -- SUBRTN to pad length of data
; -- D=data L=length
SP(N) ; -- SUBRTN to pad N number of spaces
HDG ; heading for paper report
EXPND ; -- expand code
PRINT ; print report to paper
HELP ; -- help code
SUB2(D,P) ; -- returns value of 2nd sort if asked for
INIT ; -- init variables and list array
ASK ; -- ask user questions
EXIT ; -- exit code
SUB21(X) ; returns external category
EN ; -- main entry point for BSDRM WORK STATS
INCR(SUB,TYPE,NAME,SUB2,APPT) ; increment totals
START ;EP; -- re-entry for printing to paper
SET(LINE,NUM) ; -- sets display line into array
SUB22(X) ; returns 2nd value of 2nd subcategory
HELP2 ;EP; help for assume patient seen question
HELP3 ;EP; help for print individual dates question
HELP1 ;EP; help for subtotal question
TYPE(C,D,N,P,S) ; -- return type of appt.
; returns column #
; 1=sched, 2=same day, 3=walk-in, 4=overbook, 5=inpt, 6=no-show
SUB1(C,N) ; -- return name of subcategory for clinic C

External References

Name Field # of Occurrence
^%ZISC PRINT+5
$$BROWSE^BDGF ASK+20
$$RANGE^BDGF HDR+2
$$READ^BDGF ASK+3, ASK+10, ASK+11, ASK+13, ASK+15, ASK+18
MSG^BDGF HELP1+1, HELP1+2, HELP1+3, HELP1+4, HELP1+5, HELP1+6, HELP1+7, HELP1+8, HELP2+1, HELP2+2
, HELP2+3, HELP2+4, HELP2+5, HELP2+6, HELP2+7, HELP3+1, HELP3+2, HELP3+3, HELP3+4
ZIS^BDGF ASK+21
$$PRIN^BSDU SUB1+1
$$PRV^BSDU SUB1+2
$$TEAM^BSDU SUB1+3
CLINIC^BSDU ASK+7
PCASK^BSDU ASK+8
$$GET1^DIQ INIT+8, INIT+11, INIT+13, SUB2+3, SUB2+4
EN^VALM EN+2
TERM^VALM0 EN+1
CLEAR^VALM1 EN+1, EN+3
$$VAL^XBDIQ1 INIT+24
$$FMDIFF^XLFDT SUB2+3
$$FMTE^XLFDT INIT+76
$$REPEAT^XLFSTR HDG+3, HDG+6, PAD+2
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,^TMP("BSDWKR1",$J,X,0)
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: @IOF,?30,"Workload Statistics"
  • Line Location: HDG+1
Function Call: WRITE
  • Prompt: !,VALMHDR(I)
  • Line Location: HDG+2
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",80)
  • Line Location: HDG+3
Function Call: WRITE
  • Prompt: !,"Category Names",?28,"SCHED",?34,"SAMEDAY",?43,"WALKIN"
  • Line Location: HDG+4
Function Call: WRITE
  • Prompt: ?51,"OVERBK",?61,"INPT",?70,"TOTAL SEEN"
  • Line Location: HDG+5
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",80)
  • Line Location: HDG+6
Routine Call
  • VALM
  • Line Location:
    • EN+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^SC - [#44] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] TYPE+5
^SC - [#44] INIT+18, INIT+22, INIT+23, TYPE+6, TYPE+7, TYPE+8, TYPE+9
^SC("AIHSPC" INIT+12
^TMP("BSD" INIT+1!, INIT+38, INIT+42, INIT+43, INIT+50, INIT+51, INIT+56, INIT+59, INIT+60, INIT+68
, INIT+69, INIT+73, INIT+74, INIT+77, INIT+78, INIT+83, INIT+84, INIT+87!, INCR+2*, INCR+3*
, INCR+4*, INCR+5*, INCR+6*, INCR+7*, INCR+8*, INCR+9*, INCR+10*, INCR+11*, INCR+12*, INCR+13*
^TMP("BSDWKR1" INIT+1!, SET+2*, EXIT+1!, PRINT+2, PRINT+4

Label References

Name Line Occurrences
$$PAD INIT+40, INIT+43, INIT+49, INIT+51, INIT+58, INIT+60, INIT+67, INIT+69, INIT+76, INIT+78
, INIT+82, INIT+84, SP+1
$$SP HDR+1, HDR+2, INIT+42, INIT+50, INIT+58, INIT+59, INIT+67, INIT+68, INIT+76, INIT+77
, INIT+83
$$SUB1 INIT+14
$$SUB2 INIT+30
$$SUB21 INIT+47, INIT+65
$$SUB22 INIT+47, INIT+65
$$TYPE INIT+29
EN ASK+20
EXIT PRINT+5
HDG PRINT+1, PRINT+3
HDR HDG+1
INCR INIT+33
INIT START+1
PRINT START+1
SET INIT+44, INIT+52, INIT+53, INIT+61, INIT+70, INIT+79, INIT+80, INIT+85

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APPN INIT+5~, INIT+21*, INIT+22*, INIT+23, INIT+29
APPT INIT+5~, INIT+17*, INIT+18*, INIT+22, INIT+23, INIT+24, INIT+29, INIT+30, INIT+33, INCR~
, INCR+1
BSDAR INIT+2~*, INIT+6
BSDBD ASK+1~, ASK+10*, HDR+2, INIT+17
BSDDET ASK+1~, ASK+13*, INCR+12, INCR+13
BSDED ASK+1~, ASK+11*, HDR+2, INIT+17
BSDI INIT+37~, INIT+47*, INIT+48, INIT+65*, INIT+66
BSDJ INIT+37~, INIT+47*, INIT+48, INIT+65*, INIT+66
>> BSDQ ASK+7, ASK+8
BSDSEEN ASK+1~, ASK+18*, INIT+27
BSDSRT ASK+1~, ASK+15*, ASK+16*, INIT+46, INIT+47, INIT+64, INIT+65, SUB2+1, SUB2+2, SUB2+3
, SUB2+4
BSDSUB ASK+1~, ASK+3*, ASK+4, ASK+7, ASK+8, SUB1+1, SUB1+2, SUB1+3
BSDTT ASK+1~
C SUB1~, TYPE~, TYPE+6, TYPE+7, TYPE+8, TYPE+9
CLN INIT+5~, INIT+6*, INIT+8, INIT+11, INIT+12, INIT+13, INIT+14, INIT+18, INIT+22, INIT+23
, INIT+29, SUB1+1, SUB1+2, SUB1+3
D SUB2~, SUB2+2, SUB2+3, TYPE~, TYPE+5, TYPE+6, TYPE+7, TYPE+8, TYPE+9, PAD~
, PAD+2
DATE INCR+1~*, INCR+12, INCR+13
END INIT+5~, INIT+17*, INIT+18
I INIT+37~, INIT+42*, INIT+50*, INIT+59*, INIT+68*, INIT+77*, INIT+83*, HDG+2*
IO PRINT+1
IOF HDG+1
IOSL PRINT+3
J INIT+37~, INIT+48*, INIT+49, INIT+50, INIT+51, INIT+66*, INIT+67, INIT+68, INIT+69
L PAD~, PAD+2
LINE INIT+37~, INIT+40*, INIT+42*, INIT+43*, INIT+44, INIT+49*, INIT+50*, INIT+51*, INIT+52, INIT+58*
, INIT+59*, INIT+60*, INIT+61, INIT+67*, INIT+68*, INIT+69*, INIT+70, INIT+76*, INIT+77*, INIT+78*
, INIT+79, INIT+82*, INIT+83*, INIT+84*, INIT+85, SET~, SET+2
N SUB1~, SUB1+4, TYPE~, TYPE+6, TYPE+7, TYPE+8, TYPE+9, SP~, SP+1
NAME INIT+5~, INIT+13*, INIT+14, INIT+33, INCR~, INCR+6, INCR+7, INCR+10, INCR+11, INCR+12
, INCR+13
NUM SET~, SET+1*, SET+2
P SUB2~, SUB2+3, SUB2+4, TYPE~, TYPE+5
PAT INIT+5~, INIT+23*, INIT+24, INIT+29, INIT+30
POP ASK+1~
S TYPE~, TYPE+3, TYPE+4
S1 INIT+37~, INIT+38*, INIT+40, INIT+42, INIT+43, INIT+50, INIT+51, INIT+56, INIT+57, INIT+59
, INIT+60, INIT+68, INIT+69, INIT+73, INIT+74, INIT+77, INIT+78
S2 INIT+37~, INIT+56*, INIT+57, INIT+58, INIT+59, INIT+60, INIT+68, INIT+69, INIT+73, INIT+74
, INIT+77, INIT+78
S3 INIT+37~, INIT+73*, INIT+74, INIT+75, INIT+77, INIT+78
S4 INIT+37~, INIT+74*, INIT+76, INIT+77, INIT+78
STATUS INIT+5~, INIT+24*, INIT+25, INIT+26, INIT+27, INIT+29
SUB INIT+5~, INIT+14*, INIT+33, INCR~, INCR+3, INCR+5, INCR+6, INCR+7, INCR+8, INCR+9
, INCR+10, INCR+11, INCR+12, INCR+13
SUB2 INIT+5~, INIT+30*, INIT+33, INCR~, INCR+8, INCR+9, INCR+10, INCR+11, INCR+12, INCR+13
TYPE INIT+5~, INIT+29*, INIT+33, INCR~, INCR+2, INCR+3, INCR+4, INCR+5, INCR+6, INCR+7
, INCR+9, INCR+11, INCR+13
U ASK+4, ASK+13, ASK+16, ASK+18, SUB1+2, SUB1+3, TYPE+5, TYPE+6, TYPE+7, TYPE+8
VALMCNT EN+1~, INIT+1*, INIT+44, INIT+52, INIT+53, INIT+61, INIT+70, INIT+79, INIT+80, INIT+85
>> VALMHDR( HDG+2
>> VALMHDR(1 HDR+1*
>> VALMHDR(2 HDR+2*
VAUTC ASK+1~, INIT+2
VAUTD ASK+1~, INIT+11
VAUTD( INIT+11
X INIT+37~, INIT+75*, INIT+76, SUB2+2~*, SUB2+3~*, SUB21~, SUB21+1, SUB22~, SUB22+1, TYPE+5~*
, TYPE+6, TYPE+7, TYPE+8, TYPE+10, HELP+1*, PRINT+2~*, PRINT+4
Y ASK+1~, ASK+20*, SUB2+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