Call Graph
Call Graph Total: 4
| Package | Total | Call Graph |
|---|---|---|
| VA FileMan | 2 | FILE^DICN ^DIR |
| CPT HCPCS Codes | 1 | $$CPT^ICPTCOD |
| IFCAP | 1 | $$REUSABLE^PRCPU441 |
PRCPCUT1 ;WISC/RFJ-case cart & instrument kit utilities ; 06/23/2009 2:09 PM
Source file <PRCPCUT1.m>
| Package | Total | Call Graph |
|---|---|---|
| VA FileMan | 2 | FILE^DICN ^DIR |
| CPT HCPCS Codes | 1 | $$CPT^ICPTCOD |
| IFCAP | 1 | $$REUSABLE^PRCPU441 |
| 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 |
|---|---|---|
| FILENUMB(ITEMDA) | ; return file number for item
|
|
| CHECK(INVPT,NOWRITE) | ; check inventory point keeping perpetual and history
; if $g(nowrite)=1 do not write information on screen ; return 1 if keep perpetual or keep tran reg is no |
|
| ADDCCIK(INVPT,CCIKITEM,ITEMDA,QUANTITY) | ; add case cart or instrument kit
; add itemda to ccikitem in invpt with quantity |
|
| GETDEF(FILE,ITEMDA) | ; get definition of items in cc (file=445.7) or ik (file=445.8)
; return: ; ^tmp($j,"prcplist",itemda)=qty <- both reusable and disposable ; ^tmp($j,"prcplist-disp",itemda)=qty <- disposables only |
|
| QUANTITY(HIGHNUM,TYPE) | ; enter quantity to assemble or disassemble
; highnum=high range ; type='A'ssemble or 'D'isassemble |
|
| ICPT(DA,PRCDT) | ; ef - return icpt code and name
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PRCP( | GETDEF+6 |
| ^PRCP(445 - [#445] | CHECK+4, ADDCCIK+3, ADDCCIK+4 |
| ^PRCP(445.7 - [#445.7] | FILENUMB+1 |
| ^PRCP(445.8 - [#445.8] | FILENUMB+2 |
| ^TMP($J | GETDEF+5!, GETDEF+6* |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | ADDCCIK+4* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | CHECK+3~, CHECK+4*, CHECK+5, CHECK+6, GETDEF+4~, GETDEF+6* |
| CCIKITEM | ADDCCIK~, ADDCCIK+3, ADDCCIK+4, ADDCCIK+5 |
| D0 | ADDCCIK+2~ |
| DA | ADDCCIK+2~, ICPT~, ICPT+1 |
| DA(1 | ADDCCIK+5* |
| DA(2 | ADDCCIK+5* |
| DD | ADDCCIK+2~ |
| DI | ADDCCIK+2~ |
| DIC | ADDCCIK+2~, ADDCCIK+5* |
| DIC("DR" | ADDCCIK+6* |
| DIC(0 | ADDCCIK+5* |
| DIE | ADDCCIK+2~ |
| >> DINUM | ADDCCIK+5* |
| DIR | QUANTITY+3~, QUANTITY+6! |
| DIR("A" | QUANTITY+4*, QUANTITY+5* |
| DIR("B" | QUANTITY+4* |
| DIR(0 | QUANTITY+4* |
| DLAYGO | ADDCCIK+2~, ADDCCIK+5* |
| DQ | ADDCCIK+2~ |
| DR | ADDCCIK+2~ |
| FILE | GETDEF~, GETDEF+6 |
| HIGHNUM | QUANTITY~, QUANTITY+4, QUANTITY+5 |
| INVPT | CHECK~, CHECK+4, ADDCCIK~, ADDCCIK+3, ADDCCIK+4, ADDCCIK+5 |
| ITEMDA | FILENUMB~, FILENUMB+1, FILENUMB+2, ADDCCIK~, ADDCCIK+5, GETDEF~, GETDEF+6 |
| NOWRITE | CHECK~, CHECK+5, CHECK+6 |
| PRCDT | ICPT~, ICPT+1 |
| PRCPFLAG | CHECK+3~, CHECK+4*, CHECK+5*, CHECK+6*, CHECK+7 |
| QTY | GETDEF+4~, GETDEF+6* |
| QUANTITY | ADDCCIK~, ADDCCIK+6 |
| TYPE | QUANTITY~, QUANTITY+4, QUANTITY+5 |
| U | ICPT+1 |
| X | ADDCCIK+2~, ADDCCIK+5*, QUANTITY+3~ |
| Y | ADDCCIK+2~, QUANTITY+3~, QUANTITY+7 |
