DGPLBL ;ALB/RPM - PATIENT INFORMATION LABELS ; 05/07/04
Source file <DGPLBL.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 |
| Package | Total | Caller Graph |
|---|---|---|
| Registration | 1 | DG PRINT PATIENT LABEL |
| VA Point of Service | 1 | VPSRLBLS |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;main entry point used by DG PRINT PATIENT LABEL option
|
|
| START | ;retrieve label field data and print labels
|
|
| SELPATS(DGARR) | ;select patient(s) to print
|
|
| ASK(DGDIRA,DGDIRB,DGDIR0,DGDIRH) | ;
; Input ; DGDIR0 - DIR(0) string ; DGDIRA - DIR("A") string ; DGDIRB - DIR("B") string ; DGDIRH - DIR("?") string |
|
| LOADCC(DGIOCC) | ;load control code mnemonics array
; This function loads values from the CONTROL CODE (#2) subfield of ; the CONTROL CODES (#55) field of the TERMINAL TYPE (#3.2) file into ; an array subscripted by the CONTROL CODE ABBREVIATION (#.01) subfield ; value. |
|
| BLDLNAR(DGDFN,DGLOC,DGTEXT) | ;build array of text lines
|
|
| END | ;cleanup and close device
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZIS(2 - [#3.2] | LOADCC+20, LOADCC+21, LOADCC+22 |
| ^DPT - [#2] | BLDLNAR+15, BLDLNAR+26 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | BLDLNAR+10~, BLDLNAR+16*, BLDLNAR+26 |
| DGARR | SELPATS~, SELPATS+16, SELPATS+18 |
| DGDFN | START+11~, START+23*, START+24*, START+27, BLDLNAR~, BLDLNAR+15, BLDLNAR+16 |
| DGDFNS | EN+2~ |
| DGDFNS( | START+24 |
| DGDIR0 | ASK~, ASK+21 |
| DGDIRA | ASK~, ASK+22 |
| DGDIRB | ASK~, ASK+23 |
| DGDIRH | ASK~, ASK+24 |
| DGI | START+12~, START+31*, LOADCC+16~, LOADCC+19*, LOADCC+20*, LOADCC+21, LOADCC+22, BLDLNAR+11~, BLDLNAR+13*, BLDLNAR+18* , BLDLNAR+19, BLDLNAR+20*, BLDLNAR+21, BLDLNAR+22*, BLDLNAR+23, BLDLNAR+25*, BLDLNAR+26, BLDLNAR+28 |
| DGIOCC | EN+3~, START+13~, START+19*, START+20, START+32, START+35, START+36, START+38, START+39, START+40 , START+41, START+42, START+43, LOADCC~, LOADCC+24 |
| DGIOCC( | LOADCC+22* |
| DGIOCC("EL" | START+41 |
| DGIOCC("ET" | START+39 |
| DGIOCC("ETF" | START+38 |
| DGIOCC("FE" | START+43 |
| DGIOCC("FI" | START+20 |
| DGIOCC("SL" | START+32 |
| DGIOCC("ST" | START+35 |
| DGIOCC("STF" | START+36 |
| DGJ | START+12~, START+42* |
| DGLBCNT | EN+4~, EN+15*, EN+16, START+31 |
| DGLINE | START+16~, START+27 |
| DGLINE( | START+37 |
| DGLN | START+14~, START+34*, START+37 |
| DGLNCNT | START+15~, START+27*, START+28, START+34, START+42 |
| DGLOC | EN+6~, EN+12*, EN+13, START+27, BLDLNAR~, BLDLNAR+26 |
| DGLPL | EN+5~, EN+18*, EN+19, START+42 |
| DGMNE | LOADCC+17~, LOADCC+21*, LOADCC+22 |
| DGQVAR | EN+7~, EN+27 |
| DGQVAR("DGDFNS(" | EN+23* |
| DGQVAR("DGLBCNT" | EN+24* |
| DGQVAR("DGLOC" | EN+26* |
| DGQVAR("DGLPL" | EN+25* |
| DGTEXT | BLDLNAR~ |
| DGTEXT( | BLDLNAR+19*, BLDLNAR+21*, BLDLNAR+23*, BLDLNAR+26* |
| DIC | SELPATS+9~, SELPATS+16* |
| DIR | ASK+19~ |
| DIR("?" | ASK+24* |
| DIR("A" | ASK+22* |
| DIR("B" | ASK+23* |
| DIR(0 | ASK+21* |
| DIROUT | ASK+19~, ASK+26 |
| DIRUT | ASK+19~ |
| DTOUT | ASK+19~, ASK+26 |
| DUOUT | ASK+19~, ASK+26 |
| IOST(0 | LOADCC+20, LOADCC+21, LOADCC+22 |
| U | ASK+26, LOADCC+21, BLDLNAR+21, BLDLNAR+23 |
| VA | BLDLNAR+10~ |
| VADM | BLDLNAR+10~ |
| VADM(1 | BLDLNAR+19 |
| VADM(2 | BLDLNAR+21 |
| VADM(3 | BLDLNAR+23 |
| VAERR | BLDLNAR+10~ |
| VAUTNALL | SELPATS+11~, SELPATS+16* |
| VAUTNI | SELPATS+13~, SELPATS+16* |
| VAUTSTR | SELPATS+12~, SELPATS+16* |
| VAUTVB | SELPATS+10~, SELPATS+16* |
| X | ASK+19~, ASK+26 |
| Y | ASK+19~, ASK+26 |
| >> ZTQUEUED | END+1 |
| >> ZTREQ | END+1* |
