Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: SDAMOCC

Package: Scheduling

Routine: SDAMOCC


Information

SDAMOCC ;IOFIO BAYPINES/TEH - AM Mgt Reports ; 12/1/91

Source Information

Source file <SDAMOCC.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; main entry point
EN1
ASKBDT ;
ASKEDT ;
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]
SELECT() ; -- get selection criteria
; input: none
; output: SDSEL := criteria selected
; 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]
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
STOP() ; -- get stop code data
; output: VAUTC := stop codes selected (VAUTC=1 for all)
; return: was selection made [ 1|yes 0|no]
STOPQ
LINE(STR) ; -- print line
; input: STR := text to insert
; output: none
; return: text to use

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$LINE("Date Range Selection"),!
  • Line Location: ASKBDT+1
Function Call: WRITE
  • Prompt: !!,"Invalid Date!",!
  • Line Location: ASKBDT+5
Function Call: WRITE
  • Prompt: !!,"Invalid Date!",!
  • Line Location: ASKEDT+4
Function Call: WRITE
  • Prompt: !!,"Ending Date must be equal to or greater than Beginning Date."
  • Line Location: ASKEDT+5
Function Call: WRITE
  • Prompt: !!,$$LINE("Date Range Selection")
  • Line Location: RANGE+6
Function Call: WRITE
  • Prompt: !!,$$LINE("Statisitcs Criteria")
  • Line Location: SELECT+5
Function Call: WRITE
  • Prompt: !!,$$LINE("Clinic Selection")
  • Line Location: CLINIC+5
Function Call: WRITE
  • Prompt: !!,$$LINE("Stop Codes Selection")
  • Line Location: STOP+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(40.7 - [#40.7] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call