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

Package: IHS Changes To Scheduling

Routine: BSDCCR0


Information

BSDCCR0 ; IHS/ANMC/LJF - CLINIC CAPACITY REPORT ;

Source Information

Source file <BSDCCR0.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
IHS Changes To Scheduling 3 ($$MON,$$WHEN,EXIT,QDIS,SCHED)^BSDCCR4  CP^BSDCCRL  (CLINIC,EXPNDPC)^BSDU  
Kernel 3 (,KILL)^%ZTLOAD  $$NOW^XLFDT  EN^XUTMDEVQ  
Scheduling 2 $$DIVA^SCRPW17  (SUBT,TITL)^SCRPW50  
VA Fileman 2 ^%DT  ^DIR  
MailMan 1 ^XMD  
Registration 1 $$SITE^VASITE  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To Scheduling 1 BSDCCR2  

Entry Points

Name Comments DBIA/ICR reference
QQ
XMTX(SDX) ;Set mail message line
RQUE(SDEX) ;Schedule extract for repetitive run
NAVA(SDY) ;format next available appointment information
SORT(SDSORT) ;Gather sort values for detailed report
CL ;Select clinics for detail
REQUE ;Entry point for initiating repetitive tasking of extracts
QUEUE(SDMON) ;Queue extraction for re-run
VCP(Y) ;Validate credit pair
QUE ;I SDBDT'>DT W !!,"This report requires 132 column output!" ;IHS/ANMC/LJF 10/6/2000
TXXM ;Transmit extract data
EDT
EXXM(XMG) ;Send extract mail message
CP ;Get credit pairs for detail
RESEND ;Entry point for manually initiating extracts for the current month

External References

Name Field # of Occurrence
^%DT BSDCCR0+17, EDT, QUEUE+4
^%ZTLOAD QUEUE+7
KILL^%ZTLOAD RQUE+11
$$MON^BSDCCR4 RESEND+14, RQUE+13
$$WHEN^BSDCCR4 RQUE+13
EXIT^BSDCCR4 BSDCCR0+15, BSDCCR0+17, EDT, EDT+5, EDT+16, EDT+17, EDT+18, QUE+2
QDIS^BSDCCR4 RESEND+4, REQUE+2
SCHED^BSDCCR4 RQUE+14
CP^BSDCCRL CP+1
CLINIC^BSDU CL+9
EXPNDPC^BSDU CL+13
^DIR EDT+5, EDT+16, CP+9, RESEND+8, RESEND+15, REQUE+3, REQUE+11, RQUE+10
$$DIVA^SCRPW17 BSDCCR0+15
SUBT^SCRPW50 BSDCCR0+16, EDT+3
TITL^SCRPW50 BSDCCR0+14
$$SITE^VASITE TXXM+2
$$NOW^XLFDT RQUE+4
^XMD EXXM+5
EN^XUTMDEVQ QUE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: BSDCCR0+17
Function Call: WRITE
  • Prompt: !
  • Line Location: EDT+0
Function Call: WRITE
  • Prompt: !!,$C(7),"End date cannot be before begin date!",!
  • Line Location: EDT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EDT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EDT+16
Function Call: WRITE
  • Prompt: !!,"This report requires 132 column output!"
  • Line Location: QUE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: CP+8
Function Call: WRITE
  • Prompt: " Invalid credit pair!"
  • Line Location: CP+11
Function Call: WRITE
  • Prompt: !!,$C(7),"NOTE: Use of this utility will result in the transmission of extract data to"
  • Line Location: RESEND+2
Function Call: WRITE
  • Prompt: !,"Austin. It should only be used if automatically queued extracts failed to run."
  • Line Location: RESEND+3
Function Call: WRITE
  • Prompt: !
  • Line Location: REQUE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: REQUE+11
Function Call: WRITE
  • Prompt: !!,"Scheduled for: ",Y,", task number: ",$G(SDXTMP("EXTRACT",SDEX,"TASK"))
  • Line Location: RQUE+7
Function Call: WRITE
  • Prompt: !
  • Line Location: QUEUE+4
Function Call: WRITE
  • Prompt: !!,"Extract not queued!!!",!
  • Line Location: QQ+0
Function Call: WRITE
  • Prompt: !!,"Task number: ",ZTSK,!
  • Line Location: QQ+1
Routine Call
  • DIR
  • Line Location:
    • EDT+5
    • EDT+16
    • CP+9
    • RESEND+8
    • RESEND+15
    • REQUE+3
    • REQUE+11
    • RQUE+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" BSDCCR0+18, EDT+2, RQUE+7, QUEUE+3
^DIC(40.7 - [#40.7] VCP+4, VCP+6
^SD(404.91 - [#404.91] TXXM+3
^TMP("SD" TXXM+5, TXXM+6, TXXM+7, TXXM+10, TXXM+11
^TMP("SDNAVA" TXXM+18
^TMP("SDXM" TXXM+25, EXXM+6!, XMTX+2*
^XTMP("SD53P192" RESEND+4, REQUE+2, RQUE+12!

Label References

Name Line Occurrences
$$NAVA TXXM+19
$$SORT EDT+17
$$VCP CP+11
@( SORT+8
EDT EDT+1
EXXM TXXM+8, TXXM+25
QQ QUEUE+4
QUEUE RESEND+15
RQUE RESEND+8, REQUE+3, REQUE+11, RQUE+2
XMTX TXXM+13, TXXM+17, TXXM+20, TXXM+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT BSDCCR0+17*, QUEUE+2~, QUEUE+4*
%DT("A" BSDCCR0+17*, EDT*, QUEUE+3*
%DT("B" QUEUE+3*
DIR BSDCCR0+11~, CP+2~, RESEND+1~, REQUE+1~, REQUE+7!, RQUE+3~
DIR("?" EDT+13*, CP+4*, CP+5*, CP+6*, CP+7*, REQUE+9*
DIR("A" EDT+4*, EDT+12*, CP+3*, RESEND+7*, RESEND+14*, REQUE+4*, REQUE+10*, RQUE+9*
DIR("B" EDT+7*, RESEND+7*, RESEND+11*, REQUE+5*, RQUE+8*
DIR(0 EDT+4*, EDT+12*, CP+3*, RESEND+7*, RESEND+11*, REQUE+4*, REQUE+8*, RQUE+8*
DT RESEND+5, RESEND+13, QUEUE+3
DTOUT BSDCCR0+11~, EDT+5, EDT+16, CP+9, RESEND+5, RESEND+8, RESEND+10, RESEND+12, RESEND+15, REQUE+3
, REQUE+7, REQUE+11, RQUE+2, RQUE+5, RQUE+10
DUOUT BSDCCR0+11~, EDT+5, EDT+16, CP+9, RESEND+5, RESEND+8, RESEND+10, RESEND+12, RESEND+15, REQUE+3
, REQUE+7, REQUE+11, RQUE+2, RQUE+5, RQUE+10
SC TXXM+1~, TXXM+6*, TXXM+7*, TXXM+9, TXXM+10, TXXM+11, TXXM+18
SDA CL+10~, CL+11*, CL+12
>> SDBDT BSDCCR0+18*, EDT+1, TXXM+9
SDCP TXXM+1~, TXXM+5*, TXXM+6*, TXXM+7, TXXM+9, TXXM+10, TXXM+11, TXXM+18
SDDIV BSDCCR0+11~, BSDCCR0+15
>> SDEDT EDT+2*
SDEX BSDCCR0+11~, BSDCCR0+12*, RQUE~, RQUE+2, RQUE+4, RQUE+6, RQUE+7, RQUE+9, RQUE+11, RQUE+12
, RQUE+13, RQUE+14, TXXM+1~, TXXM+3*, TXXM+9, TXXM+17, EXXM+3
>> SDEXDT TXXM+9
SDFAC TXXM+1~, TXXM+2*, TXXM+9
SDFMT BSDCCR0+11~, EDT+7*
SDI RESEND+1~, RESEND+5*, RESEND+6, RESEND+8, RESEND+12*, RESEND+13, RESEND+14, QUEUE+2~, QUEUE+7*, TXXM+1~
, TXXM+10*, TXXM+11, NAVA+3~, NAVA+4*, NAVA+5, NAVA+6
SDIV TXXM+1~, TXXM+2*, TXXM+5*, TXXM+6, TXXM+7, TXXM+9, TXXM+10, TXXM+11, TXXM+18
SDL TXXM+1~, TXXM+2*
SDMAX BSDCCR0+11~, EDT+3*
SDMG TXXM+1~, TXXM+3*, TXXM+4*, TXXM+8, TXXM+25
SDMON RESEND+1~, RESEND+14, RESEND+15, RQUE+3~, RQUE+13, RQUE+14, QUEUE~
SDMON("SDEX" QUEUE+6
SDNOW RQUE+3~, RQUE+4*, RQUE+5
SDOUT BSDCCR0+11~, BSDCCR0+12*, BSDCCR0+15*, BSDCCR0+17*, EDT*, EDT+5*, EDT+16*, EDT+17*, EDT+18, QUE+2*
, CL+1*, CP+2*, CP+8, CP+9*, RQUE+3~, RQUE+4*, RQUE+5, RQUE+10*
SDP TXXM+1~, TXXM+12*
>> SDPAST TXXM+3
>> SDPBDT BSDCCR0+18*
>> SDPEDT EDT+2*
SDQUIT CL+1~*, CP+2~*, CP+8, CP+10*
>> SDRPT RQUE+13*, RQUE+14
SDSIZE TXXM+1~, TXXM+2*, TXXM+8, EXXM+6*, XMTX+2*
SDSORT BSDCCR0+11~, EDT+17*, SORT~, SORT+7*, SORT+8, CL+13
SDSORT( CL+12*, CP+12*
SDT RESEND+1~, RESEND+13*, RESEND+14, RQUE+3~, RQUE+13*, RQUE+14
SDX TXXM+1~, TXXM+9*, TXXM+13*, TXXM+14*, TXXM+17*, TXXM+20*, TXXM+21*, XMTX~, XMTX+2, NAVA+3~
, NAVA+4*, NAVA+5*, NAVA+6*, NAVA+8
>> SDXM TXXM+2*, EXXM+6*, XMTX+2*
SDXTMP RESEND+1~, RESEND+4*, REQUE+1~, REQUE+2*, REQUE+3
SDXTMP("EXTRACT" RESEND+5, RQUE+4, RQUE+7, RQUE+11
SDY TXXM+1~, TXXM+11*, TXXM+12, TXXM+18*, TXXM+19*, TXXM+20, TXXM+21, NAVA~, NAVA+6
SDZ TXXM+1~, TXXM+12*, TXXM+14
U RESEND+14, TXXM+2, TXXM+3, TXXM+9, TXXM+12, TXXM+14, NAVA+6
>> VAUTC( CL+11, CL+12
X BSDCCR0+11~, QUE+1*, CP+10
XMDUN EXXM+2~, EXXM+4*
XMDUZ EXXM+2~, EXXM+4*
XMG EXXM~, EXXM+5
XMSUB EXXM+2~, EXXM+3*
XMTEXT EXXM+2~, EXXM+4*
XMY EXXM+2~
XMY( EXXM+5*
XMZ EXXM+2~
Y BSDCCR0+11~, BSDCCR0+17, BSDCCR0+18, EDT, EDT+1, EDT+2, EDT+3, EDT+7, EDT+17, CP+11
, CP+12, VCP~, VCP+3, VCP+4, VCP+5, VCP+6, RESEND+8, RESEND+15, REQUE+3, REQUE+11
, RQUE+3~, RQUE+4*, RQUE+5, RQUE+7, RQUE+10, RQUE+11, QUEUE+2~, QUEUE+3*, QUEUE+4, QUEUE+5
ZTDESC QUEUE+2~, QUEUE+6*
ZTDTH QUEUE+2~, QUEUE+5*
ZTIO QUEUE+2~, QUEUE+5*
ZTRTN QUEUE+2~, QUEUE+5*
ZTSAVE QUE+1~, QUE+2, QUEUE+2~
ZTSAVE( QUE+1*
ZTSAVE("SDMON(" QUEUE+5*
ZTSK RQUE+11*, QUEUE+2~, QUEUE+7, QQ, QQ+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All