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

Package: Prosthetics

Routine: RMPOLZC


Information

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

Source Information

Source file <RMPOLZC.m>

Entry Points

Name Comments DBIA/ICR reference
LST ; Check Letters List
; Input:
; JOB - 1: job, 0: interactive
; Output:
; LST(list parameters) - 0: no action
; 1: use current list
; 2: create new list
LST1
LST2
PURGE ; Purge current patient letter list
LTRCR() ; build local array CROSS REFERENCE of H.O. letter Code to Letter
; ! assumes a letter code can have many letter templates but one !
; ! template is of a particluar type e.g. a 30,60,90 & 120 Day H.O. !
; ! letters are all of type "B" : prescription pending expiry. !
; Input:
; JOB - 1: job, 0: interactive
; Output:
; LTRX("A",Letter Code,Prosthetics Letter IEN)
; LTRX("B",Prosthetics Letter IEN)=Letter Code
; LTRX("C",Letter Code)=Prosthetics Letter IEN
; LTRX("D",Letter Code)=days till expiry (patch 55)
; ^TMP($J,RMPOXITE,"HEADER",RMPOLTR)= 0: No Letter header
RXAC(RMPRPAT) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"A list of patient letters to be printed already exists",!,"Do you wish to manage the current list"
  • Line Location: LST1+0
Function Call: WRITE
  • Prompt: !,"Answer with 'Y' or 'N' "
  • Line Location: LST1+1
Function Call: WRITE
  • Prompt: !,"Do you wish to generate a new list which will discard any edits"
  • Line Location: LST2+0
Function Call: WRITE
  • Prompt: !,"Answer with 'Y' or 'N' "
  • Line Location: LST2+0
Info |  Source |  Entry Points |  Interaction Calls