RMPOLZC ;EDS/PAK - HOME OXYGEN LETTERS ;7/24/98
Source file <RMPOLZC.m>
Package | Total | Call Graph |
---|---|---|
VA FileMan | 2 | (C,NOW)^%DTC YN^DICN |
Prosthetics | 1 | UPDLTR^RMPOLZA |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Prosthetics | 1 | RMPOLZ |
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 |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^RMPR(665 - [#665] | PURGE+1, PURGE+2, RXAC+6, RXAC+7 |
^RMPR(669.9 - [#669.9] | LST+8, LST+9, LST+10, LTRCR+14, LTRCR+15 |
^TMP($J | LTRCR+21* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | LST+7*, LST1+1*, LST2*, LTRCR+12~, RXAC+1~ |
%H | LTRCR+12~, RXAC+1~ |
%I | LTRCR+12~, RXAC+1~ |
%T | LTRCR+12~ |
HEAD | LTRCR+12~ |
>> JOB | LST+12, LTRCR+18 |
>> LST | LST+7*, LST+12*, LST1+1*, LST2* |
LTRIEN | LTRCR+12~, LTRCR+14*, LTRCR+15 |
>> LTRX("A" | LTRCR+22* |
>> LTRX("B" | LTRCR+22* |
>> LTRX("C" | LTRCR+23* |
>> LTRX("D" | LTRCR+28* |
REC | LTRCR+12~, LTRCR+15*, LTRCR+18, LTRCR+19, LTRCR+21, LTRCR+27 |
>> RL | LST+7*, LST1+1*, LST2 |
>> RMBAT1 | LST+8*, LST+11 |
>> RMBAT2 | LST+9*, LST+11 |
>> RMBAT3 | LST+10*, LST+11 |
RMDACT | RXAC+1~, RXAC+8*, RXAC+10 |
RMDEXP | RXAC+1~, RXAC+9*, RXAC+11, RXAC+12 |
>> RMLSTF | LST+7*, LST+11*, LST1 |
>> RMPODFN | PURGE+2* |
>> RMPOGEN | LTRCR+19*, LTRCR+20 |
>> RMPOLCD | LTRCR+19*, LTRCR+20, LTRCR+22, LTRCR+23, LTRCR+28 |
>> RMPOLTR | PURGE+1*, PURGE+2, LTRCR+19*, LTRCR+20, LTRCR+21, LTRCR+22, LTRCR+23 |
RMPONOW | LTRCR+12~, LTRCR+13*, LTRCR+27 |
>> RMPOXITE | LST+8, LST+9, LST+10, LTRCR+14, LTRCR+15, LTRCR+21 |
RMPRIEN | RXAC+1~, RXAC+4*, RXAC+6, RXAC+11*, RXAC+12*, RXAC+15 |
RMPROK | RXAC+1~ |
RMPRPAT | RXAC~, RXAC+6, RXAC+7 |
RMPRS | RXAC+1~, RXAC+7*, RXAC+8, RXAC+9 |
RMPRX | RXAC+1~, RXAC+5*, RXAC+6*, RXAC+7, RXAC+11, RXAC+12 |
TODAY | RXAC+1~, RXAC+3*, RXAC+10, RXAC+12 |
U | LTRCR+18, LTRCR+19, LTRCR+21, LTRCR+27 |
X | LTRCR+12~, LTRCR+13, LTRCR+28, RXAC+1~, RXAC+3 |
X1 | LTRCR+12~, LTRCR+27* |
X2 | LTRCR+12~, LTRCR+27* |