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

Package: Prosthetics

Routine: RMPOLZB


Information

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

Source Information

Source file <RMPOLZB.m>

Entry Points

Name Comments DBIA/ICR reference
START ; Print H.O. correspondence for selected letter type
ONE ;print a single patient
QUED
SINGLE
BODY ; Set up array for filing and print letter
LINE(X)
HDRL ; Define header lines
PHDR ; Print header
DEV() ; Get device. Cannot be home device
DAGAIN
EXIT ;Clean up and quit
; if interactive close printer
QUIT()
COMMON(PIKRTN) ;
PIKSOM ; ALLOW SELECTION FROM DISPLAYED ENTRIES

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Printing...."
  • Line Location: RMPOLZB+23
Function Call: WRITE
  • Prompt: !!,"Printing...."
  • Line Location: ONE+10
Function Call: WRITE
  • Prompt: !!!,"<<< Error"_+X_":"_$P(X,";",2)_" Patient #"_RMPODFN_" ! >>>",*7
  • Line Location: BODY+39
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BODY+48
Function Call: WRITE
  • Prompt: !,?9,X
  • Line Location: LINE+1
Function Call: WRITE
  • Prompt: "Cannot Select Home Device"
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: "Cannot Select Home or Slave Device"
  • Line Location: DAGAIN+1
Info |  Source |  Entry Points |  Interaction Calls