LRMIEDZ2 ;DALIO/JMC - MICROBIOLOGY EDIT ROUTINE; May 24, 2021@14:40
Source file <LRMIEDZ2.m>
Package | Total | Call Graph |
---|---|---|
Lab Service | 15 | ASKXQA^LR7ORB3 ^LRCAPV1 SETBINDX^LRMIBUG TIME^LRMIEDZ3 EC^LRMIEDZ4 LRANX^LRMIU4 STF^LRMIUT VT^LRMIUT1 UPDATE^LRPXRM $$REFDOC^LRRP1 EDIT^LRRPLU $$CALCAGE^LRRPU LEDI^LRVR0 $$CHECKUID^LRWU4 PT^LRX |
VA FileMan | 5 | ^%DT DT^DICRW ^DIE GETS^DIQ ^DIR |
Kernel | 1 | ($$FMADD,$$FMTE)^XLFDT |
Toolkit | 1 | $$GET^XPAR |
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 |
---|---|---|
Lab Service | 5 | LRFAST LRMIEDZ LRSLOW LRVER LRVR0 |
Automated Lab Instruments | 1 | LAMIAUT4 |
Name | Comments | DBIA/ICR reference |
---|---|---|
PAT | ;
|
|
ACCPRMPT(LRAA,LRAD) | ;Prompt for accession number or UID
|
|
QUES | ;
|
|
PAT1 | ; Called from above and LRFAST
|
|
AUDRTN | ;
; Also called from LRVR0 when verifying Lab UI instrument results and user wants to do full edit. |
|
AUDPT | ;
; Check for "B" x-ref on #.01 field. |
|
UNDO | ;LR*5.2*536 version of UNDO
|
|
BB | ;
|
|
EC3 | ;
|
|
UPDATE | ;
|
|
CHECK | ;
|
|
ORDER | ;
|
|
PATINFO | ; Display patient information
|
|
PROV | ; Display provider and contact numbers.
|
|
ASKXQA | ; Determine if user should be ask to send CPRS Alert
|
Name | Field # of Occurrence |
---|---|
^%DT | CHECK+2 |
DT^DICRW | PAT1+17 |
^DIE | AUDPT+26 |
GETS^DIQ | PROV+3 |
^DIR | ACCPRMPT+20, PAT1+35, AUDRTN+14, AUDRTN+44 |
ASKXQA^LR7ORB3 | ASKXQA+8 |
^LRCAPV1 | PAT+15 |
SETBINDX^LRMIBUG | AUDPT+2 |
TIME^LRMIEDZ3 | AUDRTN+51, EC3+13 |
EC^LRMIEDZ4 | AUDRTN+8 |
LRANX^LRMIU4 | ACCPRMPT+36 |
STF^LRMIUT | EC3+14 |
VT^LRMIUT1 | AUDPT+19 |
UPDATE^LRPXRM | AUDPT+17, AUDPT+38, UNDO+21 |
$$REFDOC^LRRP1 | PROV+12 |
EDIT^LRRPLU | AUDPT+16, AUDPT+35 |
$$CALCAGE^LRRPU | PATINFO+10 |
LEDI^LRVR0 | PAT+13 |
$$CHECKUID^LRWU4 | ACCPRMPT+28 |
PT^LRX | PATINFO+2 |
$$FMADD^XLFDT | UNDO+13 |
$$FMTE^XLFDT | PATINFO+10 |
$$GET^XPAR | PAT1+26, ASKXQA+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 |
|
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 |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GETS^DIQ |
^LR - [#63] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIE - [#.402] | AUDPT+23, AUDPT+24 |
^DIE("B" | AUDPT+23 |
^DISV( | ACCPRMPT+24*, ACCPRMPT+25 |
^LR - [#63] | PAT+12, PAT1+19, PAT1+21, PAT1+22, PAT1+29, AUDRTN+6, AUDRTN+29, AUDRTN+53, AUDPT+2, AUDPT+13 , AUDPT+19, AUDPT+28, UNDO+2*, UNDO+3*, UNDO+20*, EC3+1, EC3+12, CHECK+1, PATINFO+1, PATINFO+4 , PATINFO+8 |
^LRO(68 - [#68] | ACCPRMPT+27, ACCPRMPT+32, PAT1+5, PAT1+6, PAT1+7, PAT1+9, PAT1+11, PAT1+12, CHECK+1, CHECK+3 , CHECK+5, PROV+2 |
^LRO(69 - [#69] | CHECK+6, ORDER+1*, ORDER+2 |
^XTMP("LRMICRO EDIT" | AUDPT+14!, AUDPT+29!, UNDO+10*, UNDO+13* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> DA | AUDRTN+22* |
>> DA(1 | AUDRTN+22* |
>> DFN | PATINFO+1* |
>> DIE | AUDRTN+22* |
>> DILOCKTM | PAT1+15, PAT1+19 |
DIQUIET | PAT1+16~, PAT1+17* |
DIR | ACCPRMPT+12~, PAT1+28~, AUDRTN+12~, AUDRTN+36~ |
DIR("?" | ACCPRMPT+19* |
DIR("A" | ACCPRMPT+18*, PAT1+30*, PAT1+31*, PAT1+34*, AUDRTN+13*, AUDRTN+41* |
DIR("B" | PAT1+32*, PAT1+33*, AUDRTN+13*, AUDRTN+43* |
DIR(0 | ACCPRMPT+18*, PAT1+34*, AUDRTN+13*, AUDRTN+42* |
DIROUT | PAT1+28~, AUDRTN+12~ |
DIRUT | ACCPRMPT+12~, ACCPRMPT+21, PAT1+28~, AUDRTN+12~ |
>> DOB | PATINFO+10 |
DR | AUDRTN+21!, AUDRTN+51!, AUDPT+18!, AUDPT+23*!, AUDPT+25*, AUDPT+45! |
DR( | AUDPT+24* |
DR(1 | AUDPT+25 |
DT | UNDO+13 |
DTOUT | ACCPRMPT+12~, PAT1+28~, AUDRTN+12~, AUDRTN+36~, AUDRTN+45 |
DUOUT | ACCPRMPT+12~, PAT1+28~, AUDRTN+12~, AUDRTN+45 |
DUTOUT | AUDRTN+36~ |
DUZ | ACCPRMPT+24, ACCPRMPT+25, UNDO+10 |
>> I | AUDPT+2* |
>> J | AUDPT+24*, CHECK+3*, CHECK+4, CHECK+6*, ORDER+1, ORDER+2 |
>> K | AUDPT+24*, ORDER+2* |
LRAA | PAT+4, ACCPRMPT~, ACCPRMPT+30, ACCPRMPT+32, PAT1+5, PAT1+6, PAT1+7, PAT1+9, PAT1+11, PAT1+12 , PROV+2 |
LRAD | PAT+4, ACCPRMPT~, ACCPRMPT+30, ACCPRMPT+32, PAT1+5, PAT1+6, PAT1+7, PAT1+9, PAT1+11, PAT1+12 , PROV+2 |
LRAMX | AUDRTN+3~, AUDRTN+4*, AUDRTN+6*, UNDO+20 |
LRAN | PAT+3*, PAT+4*, PAT+5, PAT+7*, PAT+16*, ACCPRMPT+12~, ACCPRMPT+14*, ACCPRMPT+27, ACCPRMPT+31*, ACCPRMPT+32 , ACCPRMPT+37*, ACCPRMPT+39, PAT1+5, PAT1+6, PAT1+7, PAT1+9, PAT1+11, PAT1+12, PROV+2 |
LRANOK | PAT+9*, ACCPRMPT+12~, ACCPRMPT+34*, ACCPRMPT+37, PAT1+3~*, PAT1+10*, PAT1+20*, PAT1+21*, PAT1+36*, AUDRTN+9* , AUDRTN+15*, AUDRTN+17, AUDRTN+18*, AUDRTN+46* |
>> LRBG0 | PAT1+22*, AUDPT+7 |
>> LRCAPOK | PAT+10*, PAT+15, PAT1+21*, PAT1+36*, AUDRTN+9*, AUDRTN+15*, AUDRTN+18*, AUDRTN+46* |
>> LRCDT | PAT1+7*, PATINFO+10 |
LRDEFAULT | ASKXQA+2~, ASKXQA+7*, ASKXQA+8 |
>> LRDFN | PAT+12, PAT1+5*, PAT1+19, PAT1+21, PAT1+22, PAT1+29, AUDRTN+6, AUDRTN+22, AUDRTN+29, AUDRTN+53 , AUDPT+2, AUDPT+13, AUDPT+14, AUDPT+16, AUDPT+17, AUDPT+19, AUDPT+28, AUDPT+29, AUDPT+35, AUDPT+38 , UNDO+2, UNDO+3, UNDO+10, UNDO+20, UNDO+21, EC3+1, EC3+12, CHECK+1, PATINFO+1, PATINFO+4 , PATINFO+8, PROV+12, ASKXQA+8 |
>> LRDPF | PATINFO+1*, PATINFO+4, PATINFO+6, PROV+12, ASKXQA+5 |
>> LREAL | PAT1+7* |
>> LREDITTYPE | AUDRTN+35, AUDPT+15, AUDPT+32 |
>> LREND | AUDRTN+51*, AUDPT+18, EC3+14 |
>> LRFIFO | AUDRTN+51* |
>> LRI | PAT1+7*, AUDRTN+11*, AUDRTN+16*, AUDRTN+18, AUDRTN+20, AUDRTN+24, AUDRTN+51, AUDPT+10, AUDPT+11, AUDPT+23 , EC3+9, EC3+10 |
>> LRIDT | PAT+12, PAT1+7*, PAT1+19, PAT1+21, PAT1+22, PAT1+29, AUDRTN+6, AUDRTN+22, AUDRTN+29, AUDRTN+53 , AUDPT+2, AUDPT+13, AUDPT+14, AUDPT+16, AUDPT+17, AUDPT+19, AUDPT+28, AUDPT+29, AUDPT+35, AUDPT+38 , UNDO+2, UNDO+3, UNDO+10, UNDO+20, UNDO+21, EC3+1, EC3+12, CHECK+1, PROV+12, ASKXQA+8 |
>> LRINTYPE | EC3+9 |
>> LRLEDI | AUDPT+4 |
>> LRNPTP | AUDRTN+10 |
>> LRPARAM | PAT+15 |
LRPRAC | PROV+1~, PROV+2*, PROV+3, PROV+7, PROV+8, PROV+9, PROV+12, PROV+14 |
LRPRAC( | PROV+7, PROV+8, PROV+9 |
LRQUITX | AUDRTN+32~, AUDRTN+33*, AUDRTN+47*, AUDRTN+48 |
>> LRSAME | AUDRTN+51*, EC3+3* |
>> LRSB | AUDRTN+24*, AUDRTN+29, AUDPT+10, AUDPT+13, AUDPT+14, AUDPT+19, AUDPT+28, AUDPT+29, UNDO+2, UNDO+10 |
>> LRSPEC | PAT1+7* |
>> LRSS | AUDPT+16, AUDPT+35, PROV+12 |
LRSSC | AUDRTN+53*, EC3+2, EC3+3!, CHECK+3, ORDER+2 |
LRSSCA | UPDATE+2!, CHECK+1*, CHECK+2 |
LRSSCAA | UPDATE+2!, CHECK+1*, CHECK+3, CHECK+5 |
LRSSCAN | UPDATE+2!, CHECK+2*, CHECK+3, CHECK+5 |
LRSSCAY | UPDATE+2!, CHECK+2*, CHECK+3, CHECK+5 |
LRSSCN | EC3+1*, EC3+2, EC3+3!, CHECK+3, ORDER+1, ORDER+2 |
LRSSCOD | UPDATE+2!, CHECK+5*, CHECK+6, ORDER+1, ORDER+2 |
LRSSCOM | UPDATE+2! |
LRSSCOM1 | UPDATE+2! |
LRSSCON | UPDATE+2!, CHECK+5*, CHECK+6 |
LRTS | PAT+14!, AUDRTN+20* |
LRTS( | AUDRTN+20 |
>> LRTX( | AUDRTN+18, AUDRTN+24, AUDRTN+51, AUDPT+10, AUDPT+11, AUDPT+23, EC3+9, EC3+10 |
LRUID | PAT+1~, PAT1+6*, ASKXQA+8 |
LRUNDO | AUDRTN+3~, AUDRTN+4*, AUDRTN+6*, AUDRTN+29*, AUDRTN+35, AUDRTN+50, AUDPT+19, PATINFO+1* |
>> LRWRD | PATINFO+4 |
LRX | ACCPRMPT+12~, ACCPRMPT+22*, ACCPRMPT+24, ACCPRMPT+25*, ACCPRMPT+27, ACCPRMPT+28, ACCPRMPT+35, PROV+1~, PROV+11*, PROV+12* , PROV+13 |
LRXQUIT | EC3+7~, EC3+8*, EC3+12*, EC3+13 |
LRXSB | EC3+7~, EC3+10*, EC3+11, EC3+12 |
LRY | ACCPRMPT+12~, ACCPRMPT+28*, ACCPRMPT+29, ACCPRMPT+30, ACCPRMPT+31 |
>> N | AUDRTN+9, AUDRTN+11, AUDRTN+13 |
>> PNM | PATINFO+3 |
>> SEX | PATINFO+9 |
>> SSN | PATINFO+3 |
U | PAT+15, ACCPRMPT+30, ACCPRMPT+31, PAT1+7, PAT1+11, PAT1+29, AUDRTN+6, AUDRTN+29, AUDRTN+53, AUDPT+19 , UNDO+2, UNDO+3, UNDO+20, EC3+1, CHECK+1, CHECK+5, ORDER+1, PATINFO+1, PATINFO+8, PROV+2 |
X | ACCPRMPT+12~, ACCPRMPT+35*, AUDPT+23*, AUDPT+24, CHECK+2* |
Y | ACCPRMPT+12~, ACCPRMPT+21, ACCPRMPT+22, PAT1+36, AUDRTN+15, AUDRTN+16, AUDRTN+36~, AUDRTN+45, CHECK+2 |
Y(0 | PAT1+22*, AUDPT+7* |