HDISDOLL ;BPFO/DTG - DISPLAY LOOKUP ITEMS FOR LABORATORY; Apr 07, 2018@12:42
Source file <HDISDOLL.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; Display found orderable items for Lab
|
|
EN1 | ;
|
|
L1 | ||
L1E | ; end of flip from XML
|
|
REPORT | ;
; basic repeats |
|
R1 | ||
R2 | ||
R3 | ||
R4 | ||
RCHKC | ||
PAUSE | ||
DONE | ; final quit point
|
|
PLE | ;
|
|
PDONE | ; print done
|
|
RHEAD | ;Description: Prints the report header.
|
|
RORD | ; print order info
|
|
RLPI | ; print lab primary info
|
|
RLTI | ; print lab test
|
|
RLTS1 | ; print specimen info
|
|
RLTS2 | ; print initial mltf info
|
|
EXPORT | ; output as export file
; basic repeats |
|
E1 | ||
E2 | ||
E3 | ||
E4 | ||
EOUT | ;
|
|
EHEAD | ; export header
|
|
GETORD | ||
GETLPI | ; get primary lab item
|
|
GETLTI | ; get lab test item
|
|
GETLTS | ; get lab specimen and mltf item
|
|
CHAR(A) | ; check for ctrl chars, <, >, &
|
|
N(K) | ;get value
|
|
XML | ; entry if output is XML
|
|
DISPL(S,F,E) | ; display lines
|
|
DISPL1 | ;
|
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 |
|
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 |
|
Name | Line Occurrences |
---|---|
$$CHAR | L1+14, L1+15, L1+20, L1+27, L1+31, L1+39, L1+40, L1+46, L1+47, L1+51 , L1+52, L1+54, L1+55, L1+56 |
$$N | L1+4, L1+5, L1+6, L1+7, L1+8, L1+13, L1+14, L1+15, L1+16, L1+17 , L1+20, L1+26, L1+27, L1+28, L1+30, L1+31, L1+32, L1+33, L1+34, L1+35 , L1+36, L1+38, L1+39, L1+40, L1+41, L1+42, L1+45, L1+46, L1+47, L1+48 , L1+49, L1+50, L1+51, L1+52, L1+53, L1+54, L1+55, L1+56 |
DISPL | RLTS2+5, RLTS2+12, RLTS2+19, RLTS2+23, RLTS2+27, RLTS2+30, RLTS2+34, RLTS2+38 |
DISPL1 | DISPL+3 |
DONE | PDONE+3, EOUT+2 |
E1 | E2 |
E2 | E3 |
E3 | E4 |
E4 | E4+13 |
EHEAD | EXPORT+4 |
EOUT | E1 |
EXPORT | L1E+4 |
GETLPI | R2, E2 |
GETLTI | R3, E3 |
GETLTS | R4, E4 |
GETORD | R1, E1 |
L1 | L1+2, L1+3, L1+4, L1+5, L1+6, L1+7, L1+8, L1+9, L1+10 |
L1E | L1, L1+1 |
PAUSE | R2, RCHKC+1 |
PDONE | R1, R2, R2+1, R3+1, R4+1, R4+2 |
R1 | R2, R2+2 |
R2 | R3 |
R3 | R4 |
R4 | R4+3 |
RCHKC | RORD+1, RORD+3, RORD+5, RORD+7, RORD+9, RORD+10, RLPI+1, RLPI+4, RLPI+7, RLTI+1 , RLTI+3, RLTI+5, RLTS1+1, RLTS1+3, RLTS2+1, RLTS2+7, RLTS2+10, RLTS2+14, RLTS2+17, RLTS2+21 , RLTS2+25, RLTS2+32, RLTS2+36, DISPL+7, DISPL1+2 |
REPORT | L1E+3 |
RHEAD | R1+1, RCHKC+5, RCHKC+8 |
RLPI | R2+1 |
RLTI | R3+1 |
RLTS1 | R4+1 |
RLTS2 | R4+2 |
RORD | R1+1 |
XML | EN1+7 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
A | EN1+6*, L1*, L1+1, L1+2, L1+12*, L1+18*, L1+22*, L1+25*, L1+29*, L1+37* , RORD+9*, E4+5*, E4+6*, E4+7, E4+8*, E4+9, E4+10*, E4+11, CHAR~, CHAR+2 , CHAR+3, CHAR+4, CHAR+5, CHAR+6*, CHAR+7, CHAR+8, CHAR+9*, CHAR+10, CHAR+11, CHAR+12* , CHAR+13, CHAR+14, CHAR+15*, CHAR+16, XML+2~*, XML+3*, XML+4!, DISPL+1~, DISPL+4*, DISPL+5* , DISPL+6 |
B | L1+1*, L1+2, L1+3, L1+4, L1+5, L1+6, L1+7, L1+8, L1+9, L1+10 , L1+12*, L1+13, L1+14, L1+15, L1+16, L1+17, L1+18*, L1+19, L1+20, L1+21 , L1+22, L1+23, L1+25*, L1+26, L1+27, L1+28, L1+29*, L1+30, L1+31, L1+32 , L1+33, L1+34, L1+35, L1+36, L1+37*, L1+38, L1+39, L1+40, L1+41, L1+42 , L1+43, L1+44, L1+45, L1+46, L1+47, L1+48, L1+49, L1+50, L1+51, L1+52 , L1+53, L1+54, L1+55, L1+56, RORD+9*, E4+5*, GETORD+2*, GETLPI+4*, GETLPI+5, GETLTI+3* , GETLTI+4, GETLTS+3*, GETLTS+4, GETLTS+5*, GETLTS+6, GETLTS+7*, GETLTS+8*, CHAR+1~, CHAR+5*, CHAR+6 , CHAR+8*, CHAR+9, CHAR+11*, CHAR+12, CHAR+14*, CHAR+15, XML+2~, XML+4! |
C | L1+11*, L1+14*, L1+15*, L1+20*, L1+24*, L1+29*, L1+31*, L1+37*, L1+39*, L1+40* , L1+46*, L1+47*, L1+51*, L1+52*, L1+54*, L1+55*, L1+56*, RORD+9*, GETLPI+2~, GETLPI+5* , CHAR+1~, XML+2~, XML+4! |
D | EN1+4~, L1+20*, DONE+5!, CHAR+1~, CHAR+3*, DISPL+1~, DISPL+4*, DISPL+5* |
DIR | PAUSE~ |
DIR(0 | PAUSE+4* |
DIRUT | PAUSE~, PAUSE+5 |
DT | RHEAD+7 |
E | DISPL~, DISPL+5 |
F | N+1~, N+2*, N+3, DISPL~, DISPL+3, DISPL+4 |
HD | EN1+3~, REPORT+3*, DONE+4!, RHEAD+4 |
HD1 | EN1+3~, REPORT+4*, DONE+4!, RHEAD+5 |
HD2 | EN1+3~, REPORT+5*, REPORT+6*, DONE+4!, RHEAD+6 |
HDIA | EN1+4~, REPORT+2*, REPORT+3, DONE+5!, EXPORT+2*, E4+2 |
>> HDICRT | RCHKC, RCHKC+6, PAUSE+2, PDONE+1, EOUT+1, XML+6 |
HDIFAC | EN1+4~, REPORT+2*, REPORT+4, REPORT+5, REPORT+6, DONE+5!, EXPORT+2*, E4+2 |
HDIOI | EN1+4~, L1+11*, L1+13*, L1+14*, L1+15*, L1+16*, L1+17*, DONE+5! |
HDIORD | EN1+1~, EN1+4~, L1+11*, L1+17, L1+20, L1+24, L1+28, L1+29, L1+36, L1+37 , L1+42, L1+48, L1+52, L1+56, DONE+2!, DONE+5! |
>> HDITYPE | EN1+7, L1E+3, RCHKC+5, RCHKC+8 |
HDIV | EN1+3~, EN1+5*, L1+2, L1+9, L1+11, L1+17, L1+20, L1+24, L1+28, L1+29 , L1+36, L1+37, L1+42, L1+48, L1+52, L1+56, REPORT+2, DONE+1, DONE+4!, EXPORT+2 , GETORD+1, GETORD+2, GETORD+3, GETLPI+3, GETLPI+4, GETLTI+2, GETLTI+3, GETLTS+2, GETLTS+3, GETLTS+5 , GETLTS+7, GETLTS+8 |
I | E4+5*, CHAR+1~ |
IO | REPORT+8, PDONE+2, E4+2, EHEAD+1, XML+1 |
IOF | RCHKC+7, RHEAD+3 |
IOSL | RCHKC, RCHKC+6 |
K | N~, N+2 |
L | CHAR+1~ |
LINE | RHEAD+2~ |
LPI | EN1+1~, L1+24*, L1+28, L1+29, L1+36, L1+37, L1+42, L1+48, L1+52, L1+56 , R1+1*, R2, DONE+2!, E1+1*, E2, GETLPI+3*, GETLPI+4, GETLTI+2, GETLTI+3, GETLTS+2 , GETLTS+3, GETLTS+5, GETLTS+7, GETLTS+8 |
LPIEN | EN1+1~, DONE+2!, RLPI+6, E4+7, GETLPI+1*, GETLPI+4*, GETLPI+5* |
LPNM | EN1+1~, DONE+2!, RLPI+3, RLPI+6, E4+7, GETLPI+1*, GETLPI+4*, GETLPI+5* |
LPO1 | EN1+1~, L1+24*, L1+26*, L1+27*, L1+28*, DONE+2! |
LPPER | EN1+4~, R2+2, DONE+5!, RLPI+2, GETLPI+1*, GETLPI+5* |
LPPN | EN1+1~, DONE+2!, RLPI+8, E4+7, GETLPI+1*, GETLPI+4* |
LTI | EN1+1~, L1+29*, L1+36, L1+37, L1+42, L1+48, L1+52, L1+56, R2+3*, R3 , DONE+2!, E2+1*, E3, GETLTI+2*, GETLTI+3, GETLTS+2, GETLTS+3, GETLTS+5, GETLTS+7, GETLTS+8 |
LTI1 | EN1+1~, L1+29*, L1+30*, L1+31*, L1+32*, L1+33*, L1+34*, L1+35*, L1+36*, DONE+2! |
LTIDA | EN1+1~, DONE+2!, RLTI+4, E4+7, GETLTI+1*, GETLTI+4* |
LTIDAP | EN1+1~, DONE+2!, RLTI+4, E4+7, GETLTI+1*, GETLTI+4* |
LTIDT | EN1+1~, DONE+2!, RLTI+6, E4+7, GETLTI+1*, GETLTI+4* |
LTIEN | EN1+1~, DONE+2!, RLPI+5, RLTI+2, RLTI+6, E4+6, E4+7, GETLTI+1*, GETLTI+3* |
LTINM | EN1+1~, DONE+2!, RLTI+2, RLTI+6, E4+6, E4+7, GETLTI+1*, GETLTI+3* |
LTIST | EN1+2~, DONE+3!, RLTI+6, E4+6, GETLTI+1*, GETLTI+4* |
LTITYP | EN1+2~, DONE+3!, RLTI+4, E4+7, GETLTI+1*, GETLTI+3* |
LTMANM | EN1+2~, DONE+3!, RLTS2+12, E4+9, GETLTS+1*, GETLTS+5* |
LTMCOM | EN1+2~, DONE+3!, RLTS2+19, E4+11, GETLTS+1*, GETLTS+7* |
LTMDT | EN1+2~, DONE+3!, RLTS2+8, E4+9, GETLTS+6* |
LTMIEN | EN1+2~, DONE+3!, RLTS2+8, E4+9, E4+10, GETLTS+1*, GETLTS+5* |
LTMLON | EN1+2~, DONE+3!, RLTS2+15, E4+11, GETLTS+1*, GETLTS+7* |
LTMMET | EN1+2~, DONE+3!, E4+11, GETLTS+1*, GETLTS+8* |
LTMNM | EN1+2~, DONE+3!, RLTS2+2, RLTS2+5, RLTS2+8, E4+9, E4+10, GETLTS+1*, GETLTS+5* |
LTMPRO | EN1+2~, DONE+3!, RLTS2+23, E4+11, GETLTS+1*, GETLTS+7* |
LTMSCA | EN1+2~, DONE+3!, RLTS2+34, E4+11, GETLTS+1*, GETLTS+8* |
LTMSPC | EN1+2~, DONE+3!, RLTS2+30, E4+11, GETLTS+1*, GETLTS+8* |
LTMST | EN1+3~, DONE+4!, RLTS2+8, E4+10, GETLTS+1*, GETLTS+7* |
LTMTIM | EN1+3~, DONE+4!, RLTS2+27, RLTS2+38, E4+11, GETLTS+1*, GETLTS+8* |
LTS | EN1+1~, L1+37*, L1+42, L1+48, L1+52, L1+56, R3+2*, R4, DONE+2!, E3+1* , E4, GETLTS+2*, GETLTS+3, GETLTS+5, GETLTS+7, GETLTS+8 |
LTS1 | EN1+3~, L1+37*, L1+38*, L1+39*, L1+40*, L1+41*, L1+42*, DONE+4! |
LTS2 | EN1+3~, L1+37*, L1+45*, L1+46*, L1+47*, L1+48*, DONE+4! |
LTS3 | EN1+3~, L1+37*, L1+49*, L1+50*, L1+51*, L1+52*, DONE+4! |
LTS4 | EN1+3~, L1+37*, L1+53*, L1+54*, L1+55*, L1+56*, DONE+4! |
LTSDT | EN1+3~, DONE+4!, RLTS1+4, E4+9, GETLTS+1*, GETLTS+4* |
LTSIEN | EN1+3~, DONE+4!, RLTS1+2, RLTS1+4, E4+8, E4+9, GETLTS+1*, GETLTS+3* |
LTSNM | EN1+3~, DONE+4!, RLTS1+2, RLTS1+4, E4+8, E4+9, GETLTS+1*, GETLTS+3* |
LTSST | EN1+3~, DONE+4!, RLTS1+4, E4+8, GETLTS+1*, GETLTS+4* |
LTSUN | EN1+3~, DONE+4!, RLTS1+4, E4+9, GETLTS+1*, GETLTS+3* |
M | EN1+3~, L1+3*, L1+4*, L1+5*, L1+6*, L1+7*, L1+8*, L1+9, DONE+4!, CHAR+1~ |
N | CHAR+1~ |
O10143 | EN1+4~, REPORT+9*, R1, DONE+5!, EXPORT+4*, E1, GETORD+1*, GETORD+2, GETORD+3, GETLPI+3 , GETLPI+4, GETLTI+2, GETLTI+3, GETLTS+2, GETLTS+3, GETLTS+5, GETLTS+7, GETLTS+8 |
OIDT | EN1+4~, DONE+5!, RORD+4, E4+3, GETORD*, GETORD+2* |
OIEN | EN1+4~, DONE+5!, RORD+4, E4+3, GETORD*, GETORD+2* |
OIMEN | EN1+4~, DONE+5!, RORD+4, E4+3, GETORD*, GETORD+2* |
OINM | EN1+4~, DONE+5!, RORD+2, E4+3, GETORD*, GETORD+2* |
OIST | EN1+4~, DONE+5!, RORD+6, E4+3, GETORD*, GETORD+2* |
OISYN | EN1+4~, DONE+5!, GETORD+3!* |
OISYN( | RORD+9, E4+5 |
OISYN(0 | RORD+9, E4+5 |
OK | EN1+4~, L1+11*, L1+24*, DONE+5! |
OK1 | EN1+4~, L1+11*, L1+18, L1+22*, L1+24*, DONE+5! |
>> PAGE | REPORT+2*, RHEAD+7, RHEAD+8* |
QUIT | EN1+4~, EN1+6*, REPORT+2*, REPORT+9*, R2, R2+1, R3+1, R4+1, R4+2, RCHKC , RCHKC+2, PAUSE+5*, PAUSE+6, DONE+5!, PDONE+2, RHEAD+1, RORD+1, RORD+3, RORD+5, RORD+7 , RORD+9, RORD+10, RLPI+1, RLPI+4, RLPI+7, RLTI+1, RLTI+3, RLTI+5, RLTS1+1, RLTS1+3 , RLTS2+1, RLTS2+5, RLTS2+7, RLTS2+10, RLTS2+12, RLTS2+14, RLTS2+17, RLTS2+19, RLTS2+21, RLTS2+23 , RLTS2+25, RLTS2+27, RLTS2+30, RLTS2+32, RLTS2+34, RLTS2+36, RLTS2+38, DISPL+4, DISPL+8, DISPL1+1 , DISPL1+2 |
R | EN1+4~, L1+27*, DONE+5! |
RET1 | L1, L1+1, L1+12, L1+18, L1+25, L1+29, L1+37, DONE+1!, XML+3 |
S | DISPL~, DISPL+2, DISPL+3, DISPL+4, DISPL+5*, DISPL+6, DISPL+9 |
TAB | EN1+1~, EN1+6*, DONE+2!, E4+2, E4+3, E4+7, E4+9, E4+11, EHEAD+1, EHEAD+2 , EHEAD+3, EHEAD+4, EHEAD+5, EHEAD+6, EHEAD+7, EHEAD+8, EHEAD+9, EHEAD+10, EHEAD+11 |
U | L1+4, L1+5, L1+6, L1+7, L1+8, L1+13, L1+14, L1+15, L1+16, L1+17 , L1+27, L1+28, L1+31, L1+32, L1+33, L1+34, L1+35, L1+36, L1+39, L1+40 , L1+41, L1+42, L1+46, L1+47, L1+48, L1+50, L1+51, L1+52, L1+54, L1+55 , L1+56, REPORT+4, REPORT+5, REPORT+6, E4+2, GETORD+2, GETLPI+4, GETLPI+5, GETLTI+3, GETLTI+4 , GETLTS+3, GETLTS+4, GETLTS+5, GETLTS+6, GETLTS+7, GETLTS+8 |
>> ULINE | REPORT+7*, RHEAD+10, RORD+11 |
X | PAUSE~ |
>> XDD | REPORT+7* |
Y | PAUSE~, PAUSE+5 |