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

Package: Prosthetics

Routine: RMPOLZ


Information

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

Source Information

Source file <RMPOLZ.m>

Entry Points

Name Comments DBIA/ICR reference
FORGD ; Foreground processing of list
BCKGD ; Background processing of list
EXIT ;
GNLST ; generate new or recreate original list
; Input: None
; Output:
; ^TMP($J,RMPOXITE,"RMPOLST",RMPOLCD,RMPONAM)=RMPOLTR^RMPODFN^RMPO
NEWLST ; generate NEW patient letter list
ORGLST ; Generate work file using ORIGINAL patient letter list
FNDTRX ; find letter TRX & hold in local array
; output: ^TMP($J,DFN,H.O. Letter Code,Prosthetics Letter,Transaction Printed Date)
INCLUDE(RMPODFN,RMPOLCD,LTRX,RMDPRT,RMFPRT,RMPORX,RMDACT) ;
CHECKA ; check if patient needs all types of letter.
CHECK1 ; check if patient needs a letter (only one type of letter).
PRTCHK

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Generating a new list..."
  • Line Location: NEWLST+1
Function Call: WRITE
  • Prompt: !,"Generating an original list..."
  • Line Location: ORGLST+1
Info |  Source |  Entry Points |  Interaction Calls