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

Package: Scheduling

Routine: SDAMOL


Information

SDAMOL ;ALB/CAW - Retroactive Appt. List; 4/15/92

Source Information

Source file <SDAMOL.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Scheduling 4 CLINIC^SDAMO0  MAIN^SDAMOL1  ASK2^SDDIV  DATE^SDUTL  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Registration 1 FIRST^VAUTOMA  
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: 1

Package Total Caller Graph
Scheduling 1 SDAM RPT RETROACTIVE LIST  

Entry Points

Name Comments DBIA/ICR reference
EN ; main entry point
ENQ
INIT() ; -- init vars
RANGE() ; select date range
; input: none
; output: SDBEG := begin date
; SDEND := end date
; return: was selection made [ 1|yes 0|no]
DIV() ; -- get division data
; input: none
; output: VAUTD := divs selected (VAUTD=1 for all)
; return: was selection made [ 1|yes 0|no]
STOP() ; -- get stop code data
; input: none
; output: VAUTS := stop codes selected (VAUTS=1 for all)
; return: was selection made [ 1|yes 0|no]
SELECT() ; -- get selection criteria
; input: none
; output: SDSEL := criteria selected
; return: was selection made [ 1|yes 0|no]
CLINIC() ; -- get clinic data
; input: VAUTD := divisions selected
; output: VAUTC := clinic selected (VAUTC=1 for all)
; return: was selection made [ 1|yes 0|no]
CLINICQ
NPDB() ; -- get which type of database check (credit or database)
; input: none
; output: SDNPDB -- type of database check [WORLOAD | DATABASE]
; return: was selection made [ 1|yes 0|no]
LINE(STR) ; -- print line
; input: STR := text to insert
; output: none
; return: text to use
QUE() ; -- que job
; return: did job que [ 1|yes 0|no ]

External References

Name Field # of Occurrence
^%ZIS EN+10
^%ZISC ENQ
^%ZTLOAD QUE+6
^DIR SELECT+8, NPDB+8
CLINIC^SDAMO0 CLINIC+6
MAIN^SDAMOL1 EN+11
ASK2^SDDIV DIV+6
DATE^SDUTL RANGE+9
FIRST^VAUTOMA STOP+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !!,$$LINE("Date Range Selection")
  • Line Location: RANGE+6
Function Call: WRITE
  • Prompt: !!,$$LINE("Division Selection")
  • Line Location: DIV+5
Function Call: WRITE
  • Prompt: !!,$$LINE("Stop Code Selection")
  • Line Location: STOP+5
Function Call: WRITE
  • Prompt: !!,$$LINE("Visit Selection Criteria")
  • Line Location: SELECT+5
Function Call: WRITE
  • Prompt: !!,$$LINE("Clinic Selection")
  • Line Location: CLINIC+5
Function Call: WRITE
  • Prompt: !!,$$LINE("NPDB Close-Out Check Selection")
  • Line Location: NPDB+5
Routine Call
  • %ZIS
  • Line Location:
    • EN+10
Routine Call
  • DIR
  • Line Location:
    • SELECT+8
    • NPDB+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(40.7 - [#40.7] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("SDRAL" ENQ+1!
^TMP("SDRL" ENQ+1!

Label References

Name Line Occurrences
$$CLINIC EN+9
$$DIV EN+6
$$INIT EN+3
$$LINE RANGE+6, DIV+5, STOP+5, SELECT+5, CLINIC+5, NPDB+5
$$NPDB EN+4
$$QUE EN+12
$$RANGE EN+5
$$SELECT EN+7
$$STOP EN+8
ENQ EN+3, EN+4, EN+5, EN+6, EN+7, EN+8, EN+9, EN+10, EN+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS EN+10*
BEGDATE RANGE+7~
DIC EN+2~, STOP+7*
DIC("S" STOP+7*
DIC(0 STOP+7*
DIR SELECT+8!, NPDB+8!
DIR("A" SELECT+7*, NPDB+7*
DIR("B" SELECT+7*, NPDB+7*
DIR(0 SELECT+6*, NPDB+6*
>> DIRUT SELECT+8, NPDB+11
ENDDATE RANGE+7~
IO("Q" EN+11, QUE+3!
IOM LINE+7
>> POP EN+10
SDBD EN+2~, RANGE+9
SDBEG EN+2~, RANGE+8*, RANGE+9*
>> SDDIV INIT+1*
SDED EN+2~, RANGE+9
SDEND EN+2~, RANGE+8*, RANGE+9*, RANGE+10
SDNPDB EN+2~, NPDB+11*, NPDB+12
SDSEL EN+2~, EN+8, EN+9, SELECT+8*, SELECT+9
>> SDT00 RANGE+9*
STR LINE~, LINE+6*, LINE+7, LINE+8
VAUTC EN+2~, CLINIC+7!, CLINICQ
VAUTD EN+2~, DIV+6!, DIV+7
>> VAUTNI STOP+6*
VAUTS EN+2~, STOP+8!, STOP+9
>> VAUTSTR STOP+6*
>> VAUTVB STOP+6*
X LINE+5~, LINE+7*, LINE+8, QUE+5*
>> Y EN+12*, DIV+6, STOP+8, SELECT+8, CLINIC+7, NPDB+11
>> ZTDESC QUE+4*
>> ZTQUEUED ENQ
>> ZTRTN QUE+4*
>> ZTSAVE( QUE+5*
ZTSK QUE+3!, QUE+6, QUE+7
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