RMPOLZC ;EDS/PAK - HOME OXYGEN LETTERS ;7/24/98
Source file <RMPOLZC.m>
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) | ;
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|