RCTCSWL1 ;ALB/PAW-Cross Servicing Worklist ;30-SEP-2015
Source file <RCTCSWL1.m>
| Package | Total | Call Graph |
|---|---|---|
| VA FileMan | 3 | ^DIC $$GET1^DIQ ^DIR |
| Kernel | 2 | ^%ZISC $$LJ^XLFSTR |
| List Manager | 1 | SET^VALM10 |
| Registration | 1 | DEM^VADPT |
| 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 |
|---|---|---|
| GETRPT(RCRPT) | ; Create patient report based upon report selection
; required input RCRPT (see comments below for number/report correlation) ; output ^TMP("RCTCSWL",$J), containing auths for group queue |
|
| BLDTMP | ; Build ^TMP("RCTCSWL",$J) for the main list screen
|
|
| BLDWL | ; Format main list screen data lines
; build display lines |
|
| SETL(LINE,DATA,LABEL,COL,LNG) | ; Creates a line of data to be set into the body
; of the worklist ; Input: LINE - Current line being created ; DATA - Information to be added to the end of the current line ; LABEL - Label to describe the information being added ; COL - Column position in line to add information add ; LNG - Maximum length of data information to include on the line ; Returns: Line updated with added information |
|
| EXCEL | ;Format and Print EXCEL file
|
|
| CSTOP(BILL) | ;
; Input: ; BILL - Bill number from #430 - External Value (.01), not IEN ; Output: ; CSTOP - Cross-serviced status (blank = not found, 0 = not stopped, 1 = stopped) |
| 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: READ |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^PRCA(430 - [#430] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PRCA(430 - [#430] | GETRPT+5, GETRPT+6, GETRPT+7, GETRPT+8, GETRPT+10, GETRPT+13, BLDTMP+10, BLDTMP+12, CSTOP+8 |
| ^PRCA(430.5 - [#430.5] | GETRPT+12 |
| ^RCD(340 - [#340] | GETRPT+9, BLDTMP+8 |
| ^TMP("RCTCSWL" | BLDTMP+15*, BLDTMP+17*, BLDTMP+19*, BLDWL+5, BLDWL+6, BLDWL+9, EXCEL+10, EXCEL+11, EXCEL+12 |
| ^TMP("RCTCSWLX" | BLDWL+2!, BLDWL+41* |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | BLDTMP+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %ZIS | EXCEL+24! |
| A1 | BLDTMP+1~, BLDTMP+8* |
| A2 | BLDTMP+1~, BLDTMP+8* |
| BILL | CSTOP~, CSTOP+7, CSTOP+8, CSTOP+9 |
| COL | SETL~, SETL+8 |
| CSTOP | CSTOP+6~, CSTOP+9*, CSTOP+10 |
| DATA | SETL~, SETL+8 |
| DFN | BLDTMP+1~, BLDTMP+3*, BLDTMP+13 |
| >> DIC | EXCEL+49* |
| >> DIC("A" | EXCEL+49* |
| >> DIC(0 | EXCEL+49* |
| DIR | EXCEL+39! |
| DIR("A" | EXCEL+34*, EXCEL+62* |
| DIR("B" | EXCEL+63* |
| DIR("L" | EXCEL+35*, EXCEL+36*, EXCEL+37*, EXCEL+38* |
| DIR(0 | EXCEL+33*, EXCEL+62* |
| DTIME | EXCEL+21 |
| >> DTOUT | EXCEL+42, EXCEL+53, EXCEL+64 |
| >> DUOUT | EXCEL+42, EXCEL+53, EXCEL+64 |
| >> EXCEL | EXCEL+21 |
| >> FILTERS(0 | GETRPT+18, GETRPT+19, EXCEL+3 |
| >> FILTERS(2 | GETRPT+19 |
| FIRST | BLDWL+3~, BLDWL+4* |
| IEN | CSTOP+6~ |
| IOF | EXCEL+1, EXCEL+21 |
| IOP | EXCEL+24! |
| IOST | EXCEL+21 |
| LABEL | SETL~, SETL+8 |
| LINE | BLDWL+3~, BLDWL+8*, BLDWL+20*, BLDWL+21*, BLDWL+22*, BLDWL+23*, BLDWL+24*, BLDWL+27*, BLDWL+28*, BLDWL+29* , BLDWL+30*, BLDWL+31*, BLDWL+34*, BLDWL+35*, BLDWL+36*, BLDWL+37*, BLDWL+38*, BLDWL+40, SETL~, SETL+8* , SETL+9 |
| LNG | SETL~, SETL+8 |
| P | EXCEL+60~, EXCEL+61*, EXCEL+62, EXCEL+65, EXCEL+66, EXCEL+67! |
| PRCA3 | BLDTMP+1~, BLDTMP+8* |
| RCAMT | EXCEL+2~, EXCEL+15*, EXCEL+16*, EXCEL+17*, EXCEL+18, EXCEL+19, EXCEL+20 |
| RCBAL | BLDTMP+1~, BLDTMP+9*, BLDTMP+13 |
| RCBILL | GETRPT+3~, GETRPT+6*, GETRPT+7, GETRPT+8, GETRPT+10, GETRPT+13, BLDTMP+9, BLDTMP+10, BLDTMP+12, BLDTMP+13 , BLDWL+3~, BLDWL+15*, BLDWL+41 |
| RCBILLEX | GETRPT+3~, GETRPT+13*, GETRPT+15, BLDTMP+1~, BLDTMP+10*, BLDTMP+13, BLDTMP+15, BLDTMP+17, BLDTMP+19, BLDWL+3~ , BLDWL+13*, BLDWL+41 |
| RCBIND | BLDTMP+1~, BLDTMP+12*, BLDTMP+13 |
| RCDATE | GETRPT+3~, GETRPT+5*, GETRPT+6, BLDTMP+12, BLDTMP+13, BLDWL+3~, BLDWL+16*, BLDWL+41 |
| RCDBTRN | GETRPT+3~ |
| RCDEBTOR | GETRPT+3~, GETRPT+8*, GETRPT+9, BLDTMP+8, BLDTMP+13, BLDWL+3~, BLDWL+14*, BLDWL+41 |
| RCDFN | GETRPT+3~, GETRPT+9*, GETRPT+18, GETRPT+19, BLDTMP+2, BLDTMP+3, BLDWL+3~, BLDWL+12*, BLDWL+41 |
| RCDIV | GETRPT+3~, GETRPT+15*, GETRPT+16, EXCEL+30!, EXCEL+43*, EXCEL+46, EXCEL+53!, EXCEL+56!, EXCEL+64!, EXCEL+74 |
| RCDIV( | EXCEL+59, EXCEL+65! |
| RCDIV("B" | EXCEL+65!, EXCEL+71*, EXCEL+77, EXCEL+81! |
| RCDIVX | GETRPT+3~, GETRPT+16* |
| RCFND1 | GETRPT+3~ |
| RCLINE | BLDTMP+1~, BLDTMP+13*, BLDTMP+15, BLDTMP+17, BLDTMP+19 |
| RCNAME | BLDTMP+1~, BLDTMP+6*, BLDTMP+7, BLDTMP+8*, BLDTMP+13, BLDTMP+15, BLDTMP+17, BLDWL+3~ |
| RCPATNAM | BLDWL+3~, BLDWL+10*, BLDWL+41 |
| RCPIF | GETRPT+3~ |
| RCPTID | BLDTMP+1~, BLDTMP+7*, BLDTMP+13, BLDWL+3~, BLDWL+11*, BLDWL+41 |
| RCRPT | GETRPT~, GETRPT+21, GETRPT+22, GETRPT+23, GETRPT+24, GETRPT+25, GETRPT+26, GETRPT+27 |
| RCRRSN | BLDWL+3~, BLDWL+17*, BLDWL+41 |
| RCRTCD | GETRPT+3~, GETRPT+10*, GETRPT+11, GETRPT+12 |
| RCRTCDX | GETRPT+3~, GETRPT+12*, GETRPT+21, GETRPT+22, GETRPT+23, GETRPT+24, GETRPT+25, GETRPT+26, GETRPT+27, BLDTMP+13 , BLDTMP+19 |
| RCRTRSN | BLDTMP+1~ |
| RCSPA | GETRPT+3~ |
| RCTRAN | GETRPT+3~ |
| RCUNC | GETRPT+3~ |
| RCX | EXCEL+2~, EXCEL+3*, EXCEL+4, EXCEL+5 |
| RCXX | BLDWL+3~, BLDWL+9*, BLDWL+10, BLDWL+11, BLDWL+12, BLDWL+13, BLDWL+14, BLDWL+15, BLDWL+16, BLDWL+17 , BLDWL+20, BLDWL+21, BLDWL+22, BLDWL+23, BLDWL+24, BLDWL+27, BLDWL+28, BLDWL+29, BLDWL+30, BLDWL+31 , BLDWL+34, BLDWL+35, BLDWL+36, BLDWL+37, BLDWL+38, EXCEL+2~, EXCEL+4*, EXCEL+5*, EXCEL+6 |
| RCY | BLDWL+3~, BLDWL+5*, BLDWL+6, BLDWL+9, EXCEL+2~, EXCEL+10*, EXCEL+11, EXCEL+12 |
| RCYY | BLDWL+3~, BLDWL+6*, BLDWL+9, EXCEL+2~, EXCEL+11*, EXCEL+12 |
| RCZ | EXCEL+2~, EXCEL+12*, EXCEL+15, EXCEL+18, EXCEL+19, EXCEL+20 |
| >> SORTBY | BLDTMP+15, BLDTMP+17, BLDTMP+19, BLDWL+18, BLDWL+25, BLDWL+32, EXCEL+7, EXCEL+8, EXCEL+9, EXCEL+18 , EXCEL+19, EXCEL+20 |
| TRTYP | BLDTMP+1~ |
| U | GETRPT+7, GETRPT+8, GETRPT+9, GETRPT+10, GETRPT+12, GETRPT+13, GETRPT+18, GETRPT+19, BLDTMP+8, BLDTMP+10 , BLDTMP+13, BLDWL+10, BLDWL+11, BLDWL+12, BLDWL+13, BLDWL+14, BLDWL+15, BLDWL+16, BLDWL+17, BLDWL+20 , BLDWL+21, BLDWL+22, BLDWL+23, BLDWL+24, BLDWL+27, BLDWL+28, BLDWL+29, BLDWL+30, BLDWL+31, BLDWL+34 , BLDWL+35, BLDWL+36, BLDWL+37, BLDWL+38, BLDWL+41, EXCEL+3, EXCEL+15, EXCEL+18, EXCEL+19, EXCEL+20 , EXCEL+62, EXCEL+65, EXCEL+71 |
| VA | BLDTMP+1~ |
| VA("BID" | BLDTMP+7 |
| VADM | BLDTMP+1~, BLDTMP+5! |
| VADM(1 | BLDTMP+6 |
| VAERR | BLDTMP+1~, BLDTMP+5 |
| >> VALMCNT | BLDWL+4*, BLDWL+39*, BLDWL+40 |
| >> VAUTD | GETRPT+16 |
| >> VAUTD( | GETRPT+16, EXCEL+70* |
| VCNT | BLDWL+3~, BLDWL+4*, BLDWL+7*, BLDWL+8, BLDWL+40, BLDWL+41 |
| X | EXCEL+21*, EXCEL+49!, EXCEL+56, EXCEL+75~, EXCEL+77*, EXCEL+78! |
| >> Y | EXCEL+42*, EXCEL+43, EXCEL+46, EXCEL+53*, EXCEL+56*, EXCEL+59, EXCEL+61, EXCEL+64*, EXCEL+65, EXCEL+66* , EXCEL+70, EXCEL+71, EXCEL+82 |
| ZTQUEUED | EXCEL+23, EXCEL+24! |
| >> ZTREQ | EXCEL+23* |