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

Package: Prosthetics

Routine: RMPOLET0


Information

RMPOLET0 ;EDS/PAK - HOME OXYGEN LETTERS ;7/24/98

Source Information

Source file <RMPOLET0.m>

Entry Points

Name Comments DBIA/ICR reference
START ;
SITE() ;find the site if the site is not multidivisional
LST() ;Check Letters List
LTRCR ; build local array CROSS REFERENCE of H.O. letter Code to Letter
GENLST ; generate patient letter list
GENOLST(BTYP) ; Generate work file from current patient letter list
NACT() ; check if new patient letter or inactivation letter is required
EXPR ; check if prescription is pending expiry
EXTRCT(BTYP)
FNDTRX
PURGE ; Purge current patient letter list
LOCK(TXT)
UPDLTR(DA,VAL)
EXIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SITE+4
Function Call: WRITE
  • Prompt: !!,*7,"You must choose a Home Oxygen Site.",!!
  • Line Location: SITE+5
Function Call: WRITE
  • Prompt: !,"A list of patient letters to be printed already exists",!
  • Line Location: LST+6
Function Call: WRITE
  • Prompt: !,"Do you wish to reprint the current list"
  • Line Location: LST+7
Function Call: WRITE
  • Prompt: !,"Do you wish to generate a new list which will discard any edits"
  • Line Location: LST+9
Function Call: WRITE
  • Prompt: !,"Cannot "_TXT_" list as list edit or printing is in progress"
  • Line Location: LOCK+2

FileMan Files Accessed Via FileMan Db Call

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