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 |
| 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* |