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

Package: Scheduling

Routine: SDRRUTL


Information

SDRRUTL ;10N20/MAH - UTILITIES FOR RECALL REMINDERS ;FEB 04, 2016

Source Information

Source file <SDRRUTL.m>

Entry Points

Name Comments DBIA/ICR reference
ASKDIV(SDRRDIV) ;
ASKSTOP(SDRRSC,SDRRST,SDRRND) ;
ASKCLIN(SDRRCLIN,SDRRDIV,SDRRST,SDRRND) ;
DELIM() ;
REVERSE(SDRRST,SDRRND) ; Given starting and ending dates return reverse starting and ending dates
DRANGE(SDRRST,SDRRND,SDRRSTX,SDRRNDX,SDRRABORT,SDRRMIN,SDRRMAX,SDRRFUTR) ;
; Set SDRRFUTR=1 if dates in the future are OK.
ASKDATE(SDRRST,SDRRSTX,SDRRABORT,SDRRMIN,SDRRMAX,SDRRFUTR) ;
FYRANGE(SDRRST,SDRRND,SDRRSTX,SDRRNDX,SDRRABORT,SDRRMIN,SDRRMAX) ;
ASKFY(SDRRMIN,SDRRMAX,SDRRDEF,SDRRPRMPT) ; Function asks user which FY.
FY(SDRRDT) ; Pass in a date (default = today's date),
; and this function returns what FY we are in,
; followed by the FY start date and FY end date.
; ie. S X=$$FY^SDRRUTL(3050208) results in X="FY 2005^3041000^3051000"
ASKMON(SDRRMON) ; Function asks user which month.
; SDRRMON - (optional) default month
MON(SDRRDT) ; Pass in a date (default = today's date),
; and this function returns the first and last dates of the month.
BDAY ;
SCREEN() ;SD*571 for new RRs, screen provider for key and status
MSG1 ;SD*571 print Inactive provider warning message to user
MSG2 ;SD*571 print Security Key warning message to user
FDA ;SD*571 insure original provider pointer is back in 403.5 record
SCREEN1() ; SD*582 screen clinic for add/edits - don't allow if clinic
; type is not clinic OR
; already inactive OR
; scheduled to be inactivated on OR
; before recall date OR not being reactivated until after selected recall date.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKDIV+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKSTOP+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKCLIN+4
Function Call: WRITE
  • Prompt: " ",$P(SDRRFY,U)
  • Line Location: ASKFY+12
Function Call: WRITE
  • Prompt: !,"GDAYS=",GDAYS
  • Line Location: BDAY+2
Function Call: WRITE
  • Prompt: !,"JDAYS=",JDAYS
  • Line Location: BDAY+3
Function Call: WRITE
  • Prompt: !,"YR1DAYS=",YR1DAYS
  • Line Location: BDAY+4
Function Call: WRITE
  • Prompt: !,"99th Birthday= ",$$FMADD^XLFDT(3050830,YR1DAYS\4)
  • Line Location: BDAY+5
Function Call: WRITE
  • Prompt: !,"100th Birthday=",$$FMADD^XLFDT(3050830,(YR1DAYS+365)\4)
  • Line Location: BDAY+6
Function Call: WRITE
  • Prompt: !,"101st Birthday=",$$FMADD^XLFDT(3050830,YR1DAYS+730\4)
  • Line Location: BDAY+7
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: MSG1+1
Function Call: WRITE
  • Prompt: !?10,"Provider selected is Inactive."
  • Line Location: MSG1+2
Function Call: WRITE
  • Prompt: !?10,"Please contact your Recall Coordinator.",!
  • Line Location: MSG1+3
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: MSG2+1
Function Call: WRITE
  • Prompt: !?10,"Provider selected is assigned Security Key"
  • Line Location: MSG2+2
Function Call: WRITE
  • Prompt: !?10,"which you do not hold."
  • Line Location: MSG2+3
Function Call: WRITE
  • Prompt: !?10,"Please contact your Recall Coordinator.",!
  • Line Location: MSG2+4
Function Call: WRITE
  • Prompt: *7,!!,?5,"The type of location assigned is not a clinic, please re-enter it.",!
  • Line Location: SCREEN1+10
Function Call: WRITE
  • Prompt: *7,!!,?5,"Clinic Inactive effective "_SDIDT_".",!
  • Line Location: SCREEN1+25
Function Call: WRITE
  • Prompt: *7,!!,?5,"Clinic Inactive until "_SDIDT_".",!
  • Line Location: SCREEN1+31

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
^SC - [#44] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call