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
Print Page as PDF
Routine: SROA30

Package: Surgery

Routine: SROA30


Information

SROA30 ;BIR/MAM - 30 DAY LETTERS AND MAIL MESSAGE ;01/26/06

Source Information

Source file <SROA30.m>

Entry Points

Name Comments DBIA/ICR reference
ONE
SDATE
EDATE
IO
BEG ; Entry point when manually queued
EN ; Entry point when tasked daily
SRTN
MSG
END
ADD ; Lines 2 and 3 of street address

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SROA30+2
Function Call: WRITE
  • Prompt: @IOF,!,?(80-$L(X)\2),X,!
  • Line Location: SROA30+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ONE+0
Function Call: WRITE
  • Prompt: !!,"This option will allow you to reprint the 30 day follow up letters for the date",!,"that they were originally printed. When printed automatically, the letters",!,"print 25 days after the date of operation."
  • Line Location: ONE+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SDATE+0
Function Call: WRITE
  • Prompt: !,"Enter the EARLIEST date for which you want letters printed."
  • Line Location: SDATE+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: EDATE+0
Function Call: WRITE
  • Prompt: !,"Enter the LATEST date for which you want letters printed."
  • Line Location: EDATE+1
Function Call: WRITE
  • Prompt: !!,"The ENDING date must be later than the BEGINNING date. Please try again."
  • Line Location: EDATE+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: IO+0
Function Call: WRITE
  • Prompt: !!,"The 30 Day Letter will not print because the case selected has been cancelled.",!!,"Press <RET> to continue "
  • Line Location: IO+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: IO+1
Function Call: WRITE
  • Prompt: !!,"The 30 Day Letter will not print because for the case selected,",!,"the field, TIME PATIENT OUT OF OR, has not been filled in.",!!,"Press <RET> to continue "
  • Line Location: IO+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: IO+2
Function Call: WRITE
  • Prompt: !!,"The 30 Day Letter will not print because the patient has a date of death.",!!,"Press <RET> to continue "
  • Line Location: IO+2
Function Call: WRITE
  • Prompt: !
  • Line Location: IO+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Info |  Source |  Entry Points |  Interaction Calls