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

Package: Prosthetics

Routine: RMPOLG


Information

RMPOLG ;HIN-CIOFO/RVD - HOME OXYGEN LETTERS (MANAGE LETTER) ;7/24/98

Source Information

Source file <RMPOLG.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; -- main entry point for manage letter list.
; Input:
; RMPOLCD - Selected Home Oxygen Letter code
; Called by:
; RMPOLZ - H.O. Letter Control module
HDR ; -- header code
INIT ; -- init variables and list array
HELP ; -- help code
EXIT ; -- exit code
EN02 ; Delete list entry and code deleted in #665
ADD ; Add patient to the list entry.
DIC
GETPAT ;get patient information(demographics)
AMEND ; delete listman data and rebuild list from amended work file

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ADD+1
Function Call: WRITE
  • Prompt: !,"Patient has no current prescription!!"
  • Line Location: DIC+2
Function Call: WRITE
  • Prompt: !,"Rx prescription has expired - Unable to ADD patient to the list !!",!
  • Line Location: DIC+4
Function Call: WRITE
  • Prompt: !,"Patient was not added!!!"
  • Line Location: GETPAT+9

FileMan Files Accessed Via FileMan Db Call

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