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 |