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

Package: IHS Changes To Scheduling

Routine: BSDWKR7


Information

BSDWKR7 ;cmi/anch/maw - BSD Chart Request and Routing Slip Report 2/20/2007 2:42:22 PM

Source Information

Source file <BSDWKR7.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 4 ^%ZISC  $$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 CLINIC^BSDU  
IHS VA Utilities 1 $$VAL^XBDIQ1  
VA Fileman 1 $$GET1^DIQ  

Entry Points

Name Comments DBIA/ICR reference
TYPE(C,D,N,P,S,H) ; -- return type of appt.
; returns column #
; 1=appt, 2=chart request, 3=walk-in
EN ; -- main entry point for BSDRM WORK STATS
INCR(SUB,SUBH,TYPE,RS,MON) ; increment totals
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
PRINT ; print report to paper
EXPND ; -- expand code
HDG ; heading for paper report
START ;EP; -- re-entry for printing to paper
INIT ; -- init variables and list array
EXIT ; -- exit code
SET(LINE,NUM) ; -- sets display line into array
HELP1 ;EP; help for print individual dates question
ASK ; -- ask user questions
MON(MI) ;-- return external month
HELP ; -- help code

External References

Name Field # of Occurrence
^%ZISC PRINT+5
$$BROWSE^BDGF ASK+16
$$RANGE^BDGF HDR+2
$$READ^BDGF ASK+5, ASK+6, ASK+11
MSG^BDGF HELP1+1, HELP1+2, HELP1+3, HELP1+4
ZIS^BDGF ASK+17
CLINIC^BSDU ASK+9
$$GET1^DIQ INIT+11, INIT+12, INIT+14, INIT+15, INIT+16
EN^VALM EN+2
TERM^VALM0 EN+1
CLEAR^VALM1 EN+1, EN+3
$$VAL^XBDIQ1 INIT+26
$$FMTE^XLFDT INIT+34, INIT+62
$$REPEAT^XLFSTR HDG+3, HDG+5, PAD+2
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,^TMP("BSDWKR7",$J,X,0)
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: @IOF,?30,"Routing Slip 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: !,?10,"Routing Slips",?30,"Chart Requests",?50,"Sch Appts",?70,"Walkins"
  • Line Location: HDG+4
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",80)
  • Line Location: HDG+5
Routine Call
  • VALM
  • Line Location:
    • EN+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] INIT+39, INIT+67, TYPE+5, TYPE+8, TYPE+9
^SC - [#44] INIT+20, INIT+24, INIT+25, INIT+48, INIT+52, INIT+53, TYPE+6, TYPE+7
^SC("AIHSPC" INIT+13
^TMP("BSD" INIT+1!, INIT+74, INIT+76, INIT+80, INIT+84, INIT+85, INIT+86, INIT+87, INIT+121!, INCR+3*
, INCR+6*
^TMP("BSDS" INIT+96, INIT+97, INIT+98, INIT+99, INIT+123!, INCR+4*, INCR+7*
^TMP("BSDTOT" INIT+109, INIT+110, INIT+111, INIT+112, INIT+122!, INCR+5*, INCR+8*
^TMP("BSDWKR7" INIT+1!, SET+2*, EXIT+1!, PRINT+2, PRINT+4

Label References

Name Line Occurrences
$$MON INIT+88
$$PAD INIT+88, INIT+89, INIT+90, INIT+91, INIT+92, INIT+100, INIT+101, INIT+102, INIT+103, INIT+114
, INIT+116, INIT+117, INIT+118, INIT+119, SP+1
$$SP HDR+1, HDR+2, INIT+88, INIT+89, INIT+100, INIT+114, INIT+116
$$TYPE INIT+37
EN ASK+16
EXIT PRINT+5
HDG PRINT+1, PRINT+3
HDR HDG+1
INCR INIT+43, INIT+44, INIT+70
INIT START+1
PRINT START+1
SET INIT+77, INIT+78, INIT+93, INIT+104, INIT+105, INIT+106, INIT+107, INIT+120

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCN INIT+51*, INIT+52*, INIT+53
>> APCR INIT+47*, INIT+48*, INIT+52, INIT+53, INIT+62, INIT+63, INIT+67
APPN INIT+5~, INIT+23*, INIT+24*, INIT+25, INIT+37
APPT INIT+5~, INIT+19*, INIT+20*, INIT+24, INIT+25, INIT+26, INIT+34, INIT+35, INIT+37, INIT+39
BSDAR INIT+2~*, INIT+10
BSDBD ASK+1~, ASK+5*, HDR+2, INIT+19, INIT+47
BSDCCR INIT+95~, INIT+97*, INIT+101
BSDCR INIT+83~, INIT+85*, INIT+90
BSDCRS INIT+95~, INIT+96*, INIT+100
BSDCRT INIT+108~, INIT+110*, INIT+117
BSDCSA INIT+95~, INIT+98*, INIT+102
BSDCWI INIT+95~, INIT+99*, INIT+103
BSDDA INIT+73~, INIT+74*, INIT+76, INIT+77, INIT+78, INIT+80, INIT+84, INIT+85, INIT+86, INIT+87
, INIT+88, INIT+89, INIT+94, INIT+96, INIT+97, INIT+98, INIT+99
BSDDET ASK+1~
BSDED ASK+1~, ASK+6*, HDR+2, INIT+19, INIT+47
BSDH INIT+5~, INIT+6*, INIT+7*, INIT+8*, INIT+9*, INIT+37, INIT+43, INIT+44, INIT+70, INIT+113
, INIT+115
BSDIEN INIT+75~, INIT+76*, INIT+78, INIT+80, INIT+84, INIT+85, INIT+86, INIT+87, INIT+89, INIT+96
, INIT+97, INIT+98, INIT+99
>> BSDMON INIT+35*, INIT+43, INIT+44, INIT+63*, INIT+70
BSDOEN INIT+79~, INIT+80*, INIT+84, INIT+85, INIT+86, INIT+87, INIT+88
BSDPC INIT+5~, INIT+16*, INIT+32, INIT+60
>> BSDQ ASK+9
BSDRS INIT+73~, INIT+84*, INIT+88, INIT+89
BSDRSP INIT+38!, INIT+39*, INIT+43, INIT+44, INIT+66!, INIT+67*, INIT+70
BSDRST INIT+108~, INIT+109*, INIT+114, INIT+116
BSDS INIT+5~, INIT+31*, INIT+32*, INIT+33*, INIT+34*, INIT+43, INIT+44, INIT+59*, INIT+60*, INIT+61*
, INIT+62*, INIT+70
BSDSA INIT+83~, INIT+86*, INIT+91
BSDSAT INIT+108~, INIT+111*, INIT+118
BSDSCD INIT+5~, INIT+15*, INIT+33, INIT+61
BSDSEEN ASK+1~
BSDSRT ASK+1~, ASK+11*, ASK+12, INIT+6, INIT+7, INIT+8, INIT+9, INIT+31, INIT+32, INIT+33
, INIT+34, INIT+59, INIT+60, INIT+61, INIT+62
BSDSUB ASK+1~, ASK+3*, ASK+9
BSDTT ASK+1~
BSDWI INIT+83~, INIT+87*, INIT+92
BSDWIT INIT+108~, INIT+112*, INIT+119
C TYPE~, TYPE+6, TYPE+7
CLN INIT+5~, INIT+10*, INIT+11, INIT+12, INIT+13, INIT+14, INIT+15, INIT+16, INIT+20, INIT+24
, INIT+25, INIT+37, INIT+48, INIT+52, INIT+53
D TYPE~, TYPE+5, TYPE+6, TYPE+7, TYPE+8, TYPE+9, PAD~, PAD+2
END INIT+5~, INIT+19*, INIT+20, INIT+47*, INIT+48
H TYPE~, TYPE+7, TYPE+9
>> I HDG+2*
IO PRINT+1
IOF HDG+1
IOSL PRINT+3
L PAD~, PAD+2
LINE INIT+88*, INIT+89*, INIT+90*, INIT+91*, INIT+92*, INIT+93, INIT+100*, INIT+101*, INIT+102*, INIT+103*
, INIT+105, INIT+114*, INIT+116*, INIT+117*, INIT+118*, INIT+119*, INIT+120, SET~, SET+2
MI MON~, MON+1, MON+2*, MON+3, MON+4, MON+5, MON+6, MON+7, MON+8, MON+9
, MON+10, MON+11, MON+12, MON+13, MON+14
>> MO MON+3*, MON+4*, MON+5*, MON+6*, MON+7*, MON+8*, MON+9*, MON+10*, MON+11*, MON+12*
, MON+13*, MON+14*, MON+15
MON INCR~, INCR+3, INCR+6
>> MY MON+1*, MON+15
N TYPE~, TYPE+6, TYPE+7, SP~, SP+1
NAME INIT+5~, INIT+14*, INIT+31, INIT+32, INIT+59, INIT+60
NUM SET~, SET+1*, SET+2
P TYPE~, TYPE+5, TYPE+8, TYPE+9
PAT INIT+5~, INIT+25*, INIT+26, INIT+37, INIT+39, INIT+53*, INIT+67
POP ASK+1~
RS INIT+83~, INCR~, INCR+2
S TYPE~, TYPE+3, TYPE+4
STATUS INIT+5~, INIT+26*, INIT+27, INIT+28, INIT+29, INIT+30, INIT+37
SUB INIT+5~, INCR~, INCR+3, INCR+4, INCR+6, INCR+7
SUB2 INIT+5~
SUBH INCR~, INCR+3, INCR+4, INCR+6, INCR+7
TYPE INIT+5~, INIT+37*, INIT+42, INCR~, INCR+1, INCR+6, INCR+7, INCR+8
U ASK+12, INIT+39, INIT+67, TYPE+5, TYPE+6, TYPE+7, TYPE+8, TYPE+9
VALMCNT EN+1~, INIT+1*, INIT+77, INIT+78, INIT+93, INIT+104, INIT+105, INIT+106, INIT+107, INIT+120
>> VALMHDR( HDG+2
>> VALMHDR(1 HDR+1*
>> VALMHDR(2 HDR+2*
VAUTC ASK+1~, INIT+2
VAUTD ASK+1~, INIT+12
VAUTD( INIT+12
X TYPE+5~*, TYPE+8, TYPE+9, TYPE+10, HELP+1*, PRINT+2~*, PRINT+4
Y ASK+1~, ASK+16*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All