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 |  Marked Items |  All
Print Page as PDF
Routine: SCRPW17

Package: Scheduling

Routine: SCRPW17


Information

SCRPW17 ;RENO/KEITH/MRY - Prompts for clinic related outputs ; 21 JUL 2000 1:45 PM

Source Information

Source file <SCRPW17.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 3 ^%DT  ^DIC  ^DIR  
IHS Changes To Scheduling 1 ($$DIV,$$DIVNM)^BSDU  
Registration 1 $$PRIM^VASITE  

Caller Graph

Caller Graph Total: 14

Package Total Caller Graph
Scheduling 13 SCRPW11  SCRPW14  SCRPW16  SCRPW18  SCRPW2  SCRPW40  SCRPW41  SCRPW45  
SCRPW50  SCRPW6  SCRPW60  SCRPW62  SCRPW70  
IHS Changes To Scheduling 1 BSDCCR0  

Entry Points

Name Comments DBIA/ICR reference
SS2
CLIN
RCE
DT
RS ;Stop Code range selector
Z0009 ;0009;No Procedures defined for encounter (PR1 segment)
RC ;Clinic range selector
DIVA(SDDIV) ;Ask for division(s)
ADDON
END
ERRSUB(SDX) ;Return substitute error message for ^SD(409.76) entry
ADD
SC2
SS ;Stop Code selector
RSE
DIVA1
SC1(SDDICA) ;Select a clinic
SC ;Clinic selector
ORD
ASK(SDADD,SDRES,SD,SDFMT,SDORD,SDSDT) ;Ask for clinic report parameters
SG ;Select clinic group
SS1(SDDICA) ;Select a Stop Code

External References

Name Field # of Occurrence
^%DT DT+1
$$DIV^BSDU DIVA+6
$$DIVNM^BSDU DIVA+7
^DIC CLIN, SS2, SG+1, SC2, DIVA1+1
^DIR ADD, ADD+1, ADD+6, ORD+3, ADDON+1
$$PRIM^VASITE DIVA+11, DIVA+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"Location selected must be a clinic!",!
  • Line Location: CLIN+0
Function Call: WRITE
  • Prompt: !,"Ending clinic must be specified!"
  • Line Location: RCE+0
Function Call: WRITE
  • Prompt: !!,$C(7),"Ending clinic must collate after beginning clinic!"
  • Line Location: RCE+1
Function Call: WRITE
  • Prompt: !,"Ending Stop Code must be specified!"
  • Line Location: RSE+0
Function Call: WRITE
  • Prompt: !!,$C(7),"Ending Stop Code must collate after beginning Stop Code!"
  • Line Location: RSE+1
Function Call: WRITE
  • Prompt: $C(7)," ???"
  • Line Location: SS2+1
Function Call: WRITE
  • Prompt: !,"Only active Stop Codes can be selected!",!
  • Line Location: SS2+2
Function Call: WRITE
  • Prompt: !,"Location selected must be a clinic!",!
  • Line Location: SC2+1
Function Call: WRITE
  • Prompt: !!,$C(7),"No medical center defined in site parameters!"
  • Line Location: DIVA+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DIVA1+0
Routine Call
  • DIC
  • Line Location:
    • CLIN
    • SS2
    • SG+1
    • SC2
    • DIVA1+1
Routine Call
  • DIR
  • Line Location:
    • ADD
    • ADD+1
    • ADD+6
    • ORD+3
    • ADDON+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(40.7 - [#40.7] Classic Fileman Calls
^DG(40.8 - [#40.8] Classic Fileman Calls
^SD(409.67 - [#409.67] Classic Fileman Calls
^SC - [#44] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] DIVA+12
^DG(43 - [#43] DIVA+11

Label References

Name Line Occurrences
$$SC1 SC+1, RC+1, RCE
$$SS1 SS+1, RS+1, RSE
@( ADD+7, ADD+8
ADD DT
ADDON ADD
CLIN ADD+1, CLIN
DIVA1 DIVA+13
END ORD
ORD ADD+2
RCE RCE+1
RSE RSE+1
SC2 SC2+1
SG ADD+9
SS2 SS2+1, SS2+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT ASK+17~, DT+1*
%DT("A" DT+1*, ADDON*
DIC ASK+17~, CLIN*, SS2!*, SG+1!*, SC2!*, DIVA1~*
DIC("A" CLIN*, SS2*, SC2*, DIVA1*
DIC(0 CLIN*, SS2*, SG+1*, SC2*, DIVA1*
DIR ASK+17~, ADD!, ADD+1!, ADD+3!, ORD+1!, ADDON!
DIR("?" ADDON*, ADDON+1*
DIR("A" ADD*, ADD+1*, ADD+5*, ORD+1*
DIR("B" ADD*, ADD+1*, ADD+3*, ADD+4*!, ORD+3*
DIR(0 ADD*, ADD+1*, ADD+5*, ORD+1*, ADDON*
DT SS2+2
DTOUT ASK+17~, DT+1, ADD, ADD+1, ADD+6, ORD+3, CLIN, ADDON+1, SS2, SG+1
, SC2, DIVA1+1
DUOUT ASK+17~, ADD, ADD+1, ADD+6, ORD+3, CLIN, ADDON+1, SS2, SG+1, SC2
, DIVA1+1
SD ASK~
SD("ADDON" ADD!, ADDON+1*
SD("CLINIC" ADD+7!, RCE!, RCE+1!, SC2+2*
SD("DATE" DT*, DT+1*
SD("FORMAT" ADD+2*, ADD+6*, ADD+7, ADD+8, ADD+9
SD("GROUP" ADD+9!, SG+1*
SD("ORDER" ORD*, ORD+3*
SD("RESTART" ADD+1!, CLIN+1*
SD("STOPCODE" ADD+8!, RSE!, RSE+1!, SS2+3*
SDADD ASK~, ADD
SDCL1 ASK+17~, SC+1*, RC+1*, RCE+1
SDCL2 ASK+17~, RCE*, RCE+1
SDDICA ASK+17~, SS1~, SS2, SC1~, SC2
SDDIV DIVA~, DIVA+7*, DIVA+10!, DIVA+12*, DIVA+14*, DIVA+15, DIVA1+2*
SDDIV( DIVA+7*, DIVA1+4*
SDFMT ASK~, ADD+2, ADD+3, ADD+4
SDI ASK+17~, SC+1*, SS+1*
SDORD ASK~, ORD, ORD+2*, ORD+3
SDOUT ASK+17~, SC+1*, SS+1*, SS2*, SC2*, DIVA+10~*, DIVA+13, DIVA1+1*, DIVA1+2*, DIVA1+3*
SDRES ASK~, ADD+1
SDSC1 ASK+17~, SS+1*, RS+1*, RSE+1
SDSC2 ASK+17~, RSE*, RSE+1
SDSDT ASK~, DT
SDX DIVA+10~, DIVA+11*, DIVA+12, DIVA+13*, DIVA1, DIVA1+2, ERRSUB~
U ADD+2, ORD, ORD+2, CLIN, SS2+1, SS2+2, SS2+3, SC2+1, SC2+2, DIVA+7
, DIVA+12, DIVA1+4
X ASK+17~, SS2, SC2, DIVA+6~*, DIVA+7, DIVA1+2, DIVA1+3
Y ASK+17~, DT+1, ADD, ADD+1, ADD+6, ORD+3, CLIN+1, ADDON+1, SS2+3, SG+1
, SC2+2, DIVA1+4
Y(0 CLIN, SS2+1, SS2+2, SS2+3, SC2+1

Marked Items

Name Field # of Occurrence
$T(@(3) ERRSUB+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 |  Marked Items |  All