RMPRSTK ;PHX/RFM,RVD-ISSUE FROM STOCK ;8/29/1994
Source file <RMPRSTK.m>
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 |
---|---|---|
VIEW | ||
RES | ;ENTRY POINT TO ADD ADDITIONAL ITEMS FOR ISSUE FROM STOCK
|
|
1 | ;ENTRY POINT TO EDIT ITEM ON ISSUE FROM STOCK
|
|
TRAN | ;TYPE OF TRANSACTION
|
|
PCAT | ||
SPE | ||
2 | ||
HCPCS | ;HCPCS code
|
|
LOCDIC | ||
GI | ||
VEN | ||
VEN0 | ;set HCPCS when PSAS required fields are set
|
|
INV | ||
INDIC | ||
INVITEM | ||
ITDIC | ||
GIP | ;gip on
|
|
V | ||
DEF | ||
HCPCG | ;HCPCS code with GIP
|
|
CAUTION(SELSITE,NAME) | ; issue a caution message only once during the option
; if GIP flag is not set for this division |
|
DYNAMED() | ; If this system is flagged as using DYNAMED for inventory,
; then inform user and then quit. ; DBIA 6394--Lookup DynaMed flag in IFCAP Sys param. Sites using ; DynaMed will continue to use Prosthetics Inventory Package (PIP) ; until a better solution is devised. |
|
ASK(HOLD) | ;ask user 2 continue function
|
Name | Field # of Occurrence |
---|---|
HOME^%ZIS | RMPRSTK+9 |
^DIC | 2+1, HCPCS+2, VEN+1, VEN0+5, INDIC, ITDIC, V+2, DEF, HCPCG+2 |
^DIR | 1+3, TRAN+1, PCAT, SPE, HCPCS+12, GIP+7, ASK+11 |
ITEMLOC^RMPR5NU1 | LOCDIC+1, HCPCG+7 |
CPT^RMPRCPTU | HCPCS+10, HCPCS+13 |
CHK^RMPRED5 | HCPCS+8 |
^RMPRPAT | VIEW+1 |
LINK^RMPRS | RMPRSTK+16 |
DIV4^RMPRSIT | RMPRSTK+10 |
^RMPRSTK | 1+5 |
^RMPRSTL | VEN0+10 |
EXIT^RMPRSTL | RMPRSTK+10, RMPRSTK+14, RMPRSTK+17, VIEW+2, GI |
LIST^RMPRSTL | 1+3, TRAN+1, PCAT, 2+2, HCPCS+2, HCPCS+10, LOCDIC+2, VEN0+2, VEN0+5, INDIC , ITDIC |
GETPAT^RMPRUTIL | RMPRSTK+17 |
$$GET^XPAR | DYNAMED+7 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^PRCP(445 - [#445] | Classic Fileman Calls |
^RMPR(661 - [#661] | Classic Fileman Calls |
^RMPR(661.1 - [#661.1] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PRC(440 - [#440] | VEN+1, V, V+3, DEF |
^PRC(441 - [#441] | VEN+2, V+4 |
^PRCP(445 - [#445] | GI, INVITEM, GIP+1, V, V+1, V+2, V+3 |
^RMPR(661 - [#661] | 2 |
^RMPR(661.1 - [#661.1] | HCPCS+6, LOCDIC, LOCDIC+1, VEN0+1, HCPCG+6, HCPCG+7 |
^RMPR(669.9 - [#669.9] | GI, GI+1, CAUTION+4 |
^TMP($J | CAUTION+3, CAUTION+10* |
Name | Field # of Occurrence |
---|---|
^(0 | V |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> CK | VIEW+3*, 1+5, TRAN+3, PCAT+2, 2+3, HCPCS+4, LOCDIC+3, VEN0+3, VEN0+7, INDIC+1 , ITDIC+2, HCPCG+4, HCPCG+7 |
>> CK1 | VIEW+4*, 1+4, TRAN+2, PCAT+1, SPE, 2+4, HCPCS+3, VEN0+6, INDIC+2, ITDIC+1 , HCPCG+3 |
DA | RES+3! |
DD | RES+3! |
DIC | RES+3!, 2*, 2+6!, HCPCS+1!, HCPCS+2*, LOCDIC+5!, VEN+1*, VEN0+5*, VEN0+9!, INV* , INVITEM+2!*, V+2!*, DEF*, HCPCG+1!, HCPCG+2* |
DIC("A" | 2*, HCPCS+2*, VEN0+5*, INVITEM+4*, HCPCG+2* |
DIC("B" | 2*, HCPCS+2*, VEN!, VEN+1*, VEN+2*, VEN0+4*, VEN0+5*, INV*, DEF*, HCPCG+2* |
DIC("S" | 2+1!, VEN!, INV*, INVITEM+3*, ITDIC+6! |
DIC(0 | 2*, HCPCS+2*, VEN+1*, VEN0+5*, INV*, INVITEM+4*, V+2*, DEF*, HCPCG+2* |
DIR | 1+6!, TRAN+4!, PCAT+3!, GIP+4!, GIP+8!, ASK+8~ |
DIR("?" | RES+6* |
DIR("A" | 1+2*, HCPCS+12*, GIP+6*, ASK+9* |
DIR("B" | 1+2*, TRAN+1*, PCAT*, SPE*, HCPCS+12* |
DIR(0 | 1+2*, TRAN+1*, PCAT*, SPE*, HCPCS+12*, GIP+5*, ASK+9*, ASK+10* |
>> DIRUT | 1+5, TRAN+3, PCAT+2, SPE+1, ASK+12 |
DT | RES+4 |
>> DTOUT | VIEW+2, 1+4, TRAN+2, PCAT+1, SPE, 2+4, HCPCS+3, HCPCS+10, HCPCS+12, HCPCS+13 , VEN0+6, INDIC+2, ITDIC+1, GIP+9, HCPCG+3 |
>> DUOUT | 1+3, 1+5, TRAN+1, PCAT, 2+2, 2+3, HCPCS+2, HCPCS+4, HCPCS+10, HCPCS+12 , HCPCS+13, LOCDIC+2, LOCDIC+3, VEN0+5, VEN0+7, INDIC, INDIC+1, ITDIC, ITDIC+2, GIP+9 , HCPCG+4 |
DUZ | RES+4, GI |
HOLD | ASK~, ASK+9 |
IOF | RMPRSTK+9, 1+3 |
IOST | DYNAMED+8, ASK+6 |
NAME | CAUTION~, CAUTION+8 |
PRC | RES+3! |
>> PRCP("I" | INDIC+4*, INVITEM, GIP+1, V, V+1, V+2, V+3 |
>> PRCP("ITEM" | RES+3!, 1+1!, INDIC+4*, INVITEM, ITDIC+6*, GIP+1, V, V+2, V+3, V+4 |
>> PRCPPRIV | GI+1* |
>> R1("AM" | RES+5*, PCAT, PCAT+3*, PCAT+4*, SPE, SPE+2* |
>> R1("D" | RES+5* |
>> R1(0 | RES+4*, 1+6*, TRAN+1, TRAN+4*, 2, 2+6*, HCPCS+7, GI+1*, VEN+2, VEN0+1* , VEN0+5, VEN0+9*, ITDIC+5*, GIP+1*, V*, V+2, V+3*, HCPCG+6* |
>> R1(1 | RES+5*, 1+1, HCPCS+2, HCPCS+9, HCPCS+10*, HCPCS+13*, LOCDIC+2, LOCDIC+3, VEN0+1*, V+4* , HCPCG+2, HCPCG+6* |
>> R3("D" | VIEW+5*, RES+5*, 1+2, 1+3, 1+7*, TRAN+1, TRAN+5*, 2+2, 2+6*, VEN+2 , VEN0+2, VEN0+5, VEN0+9*, INDIC+4, ITDIC+5*, ITDIC+6 |
>> R4("D" | RES+5*, PCAT, PCAT+3*, PCAT+4*, SPE, SPE+2* |
>> RDA | HCPCS+7*, HCPCS+10, HCPCS+13 |
>> REDIT | HCPCS+9, HCPCS+10, HCPCS+11, INDIC, ITDIC |
RESP | ASK+8~* |
>> RMCPT | HCPCS+8, HCPCS+10, HCPCS+13 |
RMDES | VIEW~ |
>> RMHCDA | LOCDIC+4 |
RMHCPC | RES+3!, HCPCS+6*, HCPCS+7, HCPCS+10, HCPCS+11, LOCDIC, LOCDIC+1, VEN0+1, HCPCG+7* |
RMINVF | RES+3!, RES+7*, LOCDIC*, GIP+11* |
RMITDA | RES+3!, LOCDIC!, LOCDIC+4 |
RMITFLG | 1+1!, LOCDIC+2, VEN0+2, VEN0+3 |
RMLACO | RES+3! |
RMLOC | RES+3!, LOCDIC!, LOCDIC+4, LOCDIC+6, LOCDIC+7, VEN0+4, HCPCG+7 |
>> RMPR | RMPRSTK+10 |
>> RMPR("NAME" | RMPRSTK+15 |
>> RMPR("STA" | RES+4 |
RMPRBAC1 | VIEW~, VIEW+1*! |
>> RMPRDFN | RMPRSTK+16, RMPRSTK+17, RES+2, RES+4 |
>> RMPREVHC | 1+1*, HCPCS+10, HCPCS+11 |
>> RMPRF | RMPRSTK+8*, GI+1* |
>> RMPRG | RMPRSTK+8* |
RMPRGIP | 1+1!, LOCDIC+7*, GI+1* |
>> RMPRI("AMS" | RES+5* |
RMPRIP | 1+1!, INV, INDIC+4* |
>> RMPRKILL | VIEW+2 |
>> RMPRNAM | 1+3 |
>> RMPRSITE | RMPRSTK+15, GI, GI+1 |
>> RMPRUCST | GIP+1*, GIP+3, GIP+10* |
>> RMPRVEN | V+3* |
RMQTY | RES+3! |
RMSAL | RES+3! |
RMSO | RES+3!, 1+6* |
>> RMVEN | VEN0+4 |
>> RO | VEN+2* |
SELSITE | CAUTION~, CAUTION+2, CAUTION+4 |
STOP | ASK+5~*, ASK+11*, ASK+12*, ASK+13 |
SYSINV | DYNAMED+6~, DYNAMED+7*, DYNAMED+8, DYNAMED+13 |
U | RES+4, 1+1, 1+2, 1+3, 1+6, 1+7, TRAN+1, TRAN+4, TRAN+5, PCAT , PCAT+3, PCAT+4, SPE, SPE+2, 2, 2+2, 2+6, HCPCS+2, HCPCS+6, HCPCS+7 , HCPCS+9, HCPCS+10, HCPCS+13, LOCDIC, LOCDIC+1, LOCDIC+2, LOCDIC+3, GI, GI+1, VEN+1 , VEN+2, VEN0+1, VEN0+2, VEN0+5, VEN0+9, INDIC+4, ITDIC+5, ITDIC+6, GIP+1, V , V+1, V+2, V+3, V+4, DEF, HCPCG+2, HCPCG+6, HCPCG+7, CAUTION+4 |
X | RMPRSTK+10, RES+3!, 1+5, 2+6!, VEN+1*, VEN0+9!, V+2*, DEF*, CAUTION+9~*, DYNAMED+12~* |
Y | RES+3!, 1+6, 1+7, TRAN+4, TRAN+5, PCAT+3, PCAT+4, SPE, SPE+2, 2+5 , 2+6!, HCPCS+5, HCPCS+6, HCPCS+13, VEN+1, VEN0+8, VEN0+9!, INDIC+3, INDIC+4, ITDIC+3 , ITDIC+5, GIP+10, V+2, DEF, HCPCG+5, HCPCG+6, HCPCG+7, ASK+11 |