MAGDHOWE ;WOIFO/PMK/JSJ - Clinical Specialty MWL & HL7 Editor ; Apr 27, 2022@11:43:08
Source file <MAGDHOWE.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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENTRY | ; entry point from menu
|
|
| CHOICE | ; option driver
|
|
| UPDATE(IEN) | ; delete or update the consult or procedure
|
|
| UPDATE1 | ; update a the consult or procedure
|
|
| CONSULT(SERVICE,PROCEDURE) | ;
|
|
| PROC(PROCEDURE,SERVICE) | ;
|
|
| ISPECIDX(ISPECIDX) | ;
|
|
| IPROCIDX(IPROCIDX) | ;
|
|
| LOCATION(LOCATION) | ;
|
|
| HL7SUBL(HL7SUBLIST) | ;
|
|
| QRSCP(QRSCP) | ;
|
|
| CPT(CPT) | ;
|
|
| CLINIC(CLINIC) | ;
|
|
| LOOKUP(ITEM,NAME,FILE,FIELDS,REQUIRED) | ; lookup entry
|
|
| GETVALUE(FILE,IEN,FIELDS) | ;
|
|
| BLDPXLST | ;build alpha sorted procedure list filtered by specialty ;P278 added sub
|
|
| DISPLAY | ; Display data
|
|
| P(X) | ;
|
|
| YESNO(PROMPT,DEFAULT,CHOICE) | ; generic YES/NO question driver
|
|
| CHOOSE(PROMPT,DEFAULT,CHOICE,OPTION) | ; generic question driver
|
| Name | Field # of Occurrence |
|---|---|
| UPDATE^DIE | CHOICE+45, CHOICE+53, UPDATE1+27, UPDATE1+39 |
| ^DIK | UPDATE+24, UPDATE1+34 |
| $$GET1^DIQ | UPDATE+4, UPDATE+5, CPT+3, CPT+8, CPT+9, GETVALUE+4 |
| GETS^DIQ | PROC+4, CPT+5, DISPLAY+21 |
| ^DIR | LOOKUP+35, YESNO+4, CHOOSE+8 |
| $$IREQUEST^MAGDHOW1 | CHOICE+9 |
| $$PICKSCP^MAGDSTQ9 | LOOKUP+25 |
| HEADING^MAGDTRDX | ENTRY+7 |
| WORKLIST^MAGDTRDX | CHOICE+1 |
| SPEC^MAGSIXGT | BLDPXLST+11 |
| 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: READ |
|
| 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 |
|---|---|
| ^GMR(123.3 - [#123.3] | GET1^DIQ, GETS^DIQ |
| ^GMR(123.5 - [#123.5] | GET1^DIQ, GETS^DIQ |
| ^MAG(2006.5831 - [#2006.5831] | Classic Fileman Calls |
| ^MCAR(697.2 - [#697.2] | GETS^DIQ |
| ^ICPT - [#81] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^MAG(2005.85 - [#2005.85] | BLDPXLST+8, BLDPXLST+12, BLDPXLST+13, BLDPXLST+15, BLDPXLST+17 |
| ^MAG(2006.5831 - [#2006.5831] | UPDATE+2, UPDATE+12, UPDATE+13, UPDATE1+32 |
| Name | Line Occurrences |
|---|---|
| $$CHOOSE | ENTRY+14, PROC+18 |
| $$CLINIC | CHOICE+27, UPDATE1+9 |
| $$CONSULT | CHOICE+4 |
| $$CPT | CHOICE+24, UPDATE1+6 |
| $$GETVALUE | UPDATE+6, UPDATE+7, UPDATE+8, UPDATE+9, UPDATE+10, UPDATE+13, LOOKUP+41 |
| $$HL7SUBL | CHOICE+25, UPDATE1+7 |
| $$IPROCIDX | CHOICE+22, UPDATE1+4 |
| $$ISPECIDX | CHOICE+21, UPDATE1+3 |
| $$LOCATION | CHOICE+23, UPDATE1+5 |
| $$LOOKUP | CONSULT+2, PROC+2, ISPECIDX+1, IPROCIDX+1, LOCATION+1, HL7SUBL+1, QRSCP+1, CPT+12, CLINIC+21 |
| $$P | CLINIC+7, LOOKUP+6, DISPLAY+3, DISPLAY+4, DISPLAY+5, DISPLAY+6, DISPLAY+12, DISPLAY+13, DISPLAY+14, DISPLAY+15 , DISPLAY+17 |
| $$PROC | CHOICE+7 |
| $$QRSCP | CHOICE+26, UPDATE1+8 |
| $$YESNO | CHOICE+32, UPDATE+17, UPDATE+20, UPDATE1+16, LOOKUP+7, LOOKUP+16, LOOKUP+20 |
| BLDPXLST | LOOKUP+34 |
| CHOICE | ENTRY+17 |
| DISPLAY | CHOICE+29, UPDATE+15, UPDATE1+13 |
| ENTRY | ENTRY+17 |
| UPDATE | CHOICE+18 |
| UPDATE1 | UPDATE+29 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | PROC+1~, CPT+2~, LOOKUP+1~ |
| A( | PROC+5, PROC+6, PROC+7, CPT+6, CPT+7 |
| CHANGE | ENTRY+1~, ENTRY+4*, UPDATE1+11, CLINIC+12*, CLINIC+23*, LOOKUP+9* |
| CHOICE | ENTRY+1~, ENTRY+14, ENTRY+16, CHOICE+1, CHOICE+3, CHOICE+32, CHOICE+33, UPDATE+17, UPDATE+18, UPDATE+20 , UPDATE+21, UPDATE1+16, UPDATE1+17, PROC+1~, PROC+18, PROC+19, LOOKUP+7, LOOKUP+8, LOOKUP+16, LOOKUP+17 , LOOKUP+20, LOOKUP+21, YESNO~, YESNO+7*, CHOOSE~, CHOOSE+11* |
| CLINIC | ENTRY+1~, CHOICE+27, UPDATE+1~, UPDATE1+9, CLINIC~, CLINIC+4, CLINIC+25! |
| CLINIC( | CHOICE+50, CHOICE+52, UPDATE+13*, UPDATE1+36, UPDATE1+38, CLINIC+5, CLINIC+7, CLINIC+13, CLINIC+26*, DISPLAY+16 , DISPLAY+17 |
| CPT | ENTRY+1~, CHOICE+24, CHOICE+42, UPDATE+1~, UPDATE+9*, UPDATE1+6, UPDATE1+24, CPT~, CPT+1, CPT+7* , CPT+8*, CPT+9*, CPT+12, DISPLAY+13 |
| DA | UPDATE+22~, UPDATE+23*, UPDATE1+33~, UPDATE1+34* |
| DA(1 | UPDATE1+34* |
| DEFAULT | LOOKUP+13~, LOOKUP+14*, LOOKUP+15, LOOKUP+25, YESNO~, YESNO+3, CHOOSE~, CHOOSE+7 |
| DIERR | ENTRY+3~, CHOICE+46, CHOICE+51~, UPDATE1+1~, UPDATE1+28, UPDATE1+37~ |
| DIK | UPDATE+22~, UPDATE+23*, UPDATE1+33~, UPDATE1+34* |
| DIR | LOOKUP+1~, YESNO+1~, CHOOSE+1~ |
| DIR("A" | LOOKUP+30*, BLDPXLST+3*, YESNO+2*, CHOOSE+6* |
| DIR("B" | LOOKUP+31*!, YESNO+3*, CHOOSE+7* |
| DIR("L" | BLDPXLST+4!, BLDPXLST+5*, BLDPXLST+19* |
| DIR(0 | LOOKUP+32*, LOOKUP+33*, BLDPXLST+2*, BLDPXLST+22*, YESNO+2*, CHOOSE+2*, CHOOSE+4* |
| DIROUT | YESNO+1~, YESNO+5, CHOOSE+1~, CHOOSE+9 |
| DIRUT | YESNO+1~, YESNO+6, CHOOSE+1~, CHOOSE+10 |
| DONE | CLINIC+1~, CLINIC+6*, CLINIC+9*, CLINIC+14*, LOOKUP+1~, LOOKUP+3*, LOOKUP+5, LOOKUP+8*, LOOKUP+17*, LOOKUP+21* , LOOKUP+23 |
| DTIME | CLINIC+8 |
| DTOUT | LOOKUP+1~, LOOKUP+36 |
| FIELDS | LOOKUP~, LOOKUP+41, GETVALUE~, GETVALUE+3, GETVALUE+4 |
| FILE | LOOKUP~, LOOKUP+12, LOOKUP+33, LOOKUP+34, LOOKUP+40, LOOKUP+41, GETVALUE~, GETVALUE+4 |
| FOUND | BLDPXLST+9~*, BLDPXLST+13*, BLDPXLST+14*, BLDPXLST+15*, BLDPXLST+16 |
| HL7SUBLIST | ENTRY+1~, CHOICE+25, CHOICE+43, UPDATE+1~, UPDATE+10*, UPDATE1+7, UPDATE1+25, HL7SUBL~, HL7SUBL+1, DISPLAY+14 |
| I | CHOICE+50*, CHOICE+52, UPDATE+1~, UPDATE+12*, UPDATE+13, UPDATE1+32*, UPDATE1+34, UPDATE1+36*, UPDATE1+38, PROC+1~ , PROC+5*, PROC+6, PROC+7, PROC+9*, PROC+10, PROC+12, PROC+13, PROC+14, CLINIC+1~, CLINIC+5* , CLINIC+7, CLINIC+9*, CLINIC+13, CLINIC+19*, CLINIC+21, CLINIC+22*, CLINIC+26*, LOOKUP+1~, GETVALUE+1~, GETVALUE+3* , GETVALUE+4, DISPLAY+1~, DISPLAY+16*, DISPLAY+17, DISPLAY+23*, DISPLAY+24, CHOOSE+1~, CHOOSE+2*, CHOOSE+3*, CHOOSE+4 |
| IEN | ENTRY+1~, CHOICE+9*, CHOICE+10, CHOICE+18, CHOICE+48*, CHOICE+52, UPDATE~, UPDATE+2, UPDATE+12, UPDATE+13 , UPDATE+23, UPDATE1+20, UPDATE1+32, UPDATE1+34, UPDATE1+38, GETVALUE~, GETVALUE+2, GETVALUE+4, BLDPXLST+12*, BLDPXLST+13 , BLDPXLST+15, BLDPXLST+17, BLDPXLST+21 |
| IENS | ENTRY+1~, ENTRY+3~, CHOICE+36*, CHOICE+37, CHOICE+38, CHOICE+39, CHOICE+40, CHOICE+41, CHOICE+42, CHOICE+43 , CHOICE+44, UPDATE1+1~, UPDATE1+20*, UPDATE1+21, UPDATE1+22, UPDATE1+23, UPDATE1+24, UPDATE1+25, UPDATE1+26 |
| IPROCIDX | ENTRY+1~, CHOICE+22, CHOICE+40, UPDATE+1~, UPDATE+7*, UPDATE1+4, UPDATE1+22, IPROCIDX~, IPROCIDX+1, DISPLAY+6 , DISPLAY+8, DISPLAY+10 |
| ISPECIDX | ENTRY+1~, CHOICE+21, CHOICE+39, UPDATE+1~, UPDATE+6*, UPDATE1+3, UPDATE1+21, ISPECIDX~, ISPECIDX+1, BLDPXLST+10 , BLDPXLST+11, DISPLAY+5, DISPLAY+7, DISPLAY+9 |
| ITEM | LOOKUP~, LOOKUP+5, LOOKUP+6, LOOKUP+14, LOOKUP+17*, LOOKUP+21*, LOOKUP+25*, LOOKUP+26, LOOKUP+27*, LOOKUP+31 , LOOKUP+39*, LOOKUP+41* |
| J | PROC+1~, PROC+5*, PROC+6, PROC+7, CLINIC+1~, CLINIC+2*, CLINIC+13*, CLINIC+19, CLINIC+26*, BLDPXLST+1~ , BLDPXLST+6*, BLDPXLST+18*, BLDPXLST+19, BLDPXLST+20, BLDPXLST+21 |
| LLIST | BLDPXLST+1~, BLDPXLST+7*, BLDPXLST+20*, BLDPXLST+22 |
| LOCATION | ENTRY+1~, CHOICE+23, CHOICE+41, UPDATE+1~, UPDATE+8*, UPDATE1+5, UPDATE1+23, LOCATION~, LOCATION+1, DISPLAY+12 |
| MAGERR | ENTRY+3~, CHOICE+51~, UPDATE1+1~, UPDATE1+37~ |
| MAGFDA | ENTRY+3~, CHOICE+51~, UPDATE1+1~, UPDATE1+37~ |
| MAGFDA( | CHOICE+37*, CHOICE+38*, CHOICE+39*, CHOICE+40*, CHOICE+41*, CHOICE+42*, CHOICE+43*, CHOICE+44*, CHOICE+52*, UPDATE1+21* , UPDATE1+22*, UPDATE1+23*, UPDATE1+24*, UPDATE1+25*, UPDATE1+26*, UPDATE1+38* |
| MAGIENS | ENTRY+3~, CHOICE+51~, UPDATE1+1~, UPDATE1+37~ |
| MAGIENS(1 | CHOICE+48 |
| MCAR6972 | CPT+2~, CPT+3*, CPT+4, CPT+5 |
| MSG | ENTRY+2~, ENTRY+7 |
| MSG(1 | ENTRY+5* |
| MSG(2 | ENTRY+6* |
| MSG(3 | ENTRY+5* |
| NAME | LOOKUP~, LOOKUP+6, LOOKUP+30, BLDPXLST+1~, BLDPXLST+6*, BLDPXLST+8*, BLDPXLST+12, BLDPXLST+19, BLDPXLST+20 |
| ND0 | BLDPXLST+9~, BLDPXLST+17* |
| NEWCLINIC | CLINIC+20~, CLINIC+21, CLINIC+22, CLINIC+23 |
| NONE | BLDPXLST+9~ |
| OK | BLDPXLST+9~* |
| OK(3 | BLDPXLST+15 |
| OPTION | ENTRY+2~, ENTRY+14, PROC+1~, PROC+18, CHOOSE~ |
| OPTION( | PROC+6*, PROC+12, PROC+13, PROC+14, PROC+19, CHOOSE+3, CHOOSE+4 |
| OPTION("" | PROC+9 |
| OPTION(1 | ENTRY+9* |
| OPTION(2 | ENTRY+10* |
| OPTION(3 | ENTRY+11* |
| OPTION(4 | ENTRY+12* |
| OPTIONIEN | PROC+1~ |
| OPTIONIEN( | PROC+7*, PROC+13, PROC+19 |
| PROCEDURE | ENTRY+2~, CHOICE+4, CHOICE+7, CHOICE+9, CHOICE+12, CHOICE+14, CHOICE+38, UPDATE+1~, UPDATE+3*, UPDATE+5* , CONSULT~, CONSULT+1*, PROC~, PROC+2, PROC+4, CPT+1, CPT+3, DISPLAY+4 |
| PROMPT | ENTRY+2~, ENTRY+13*, ENTRY+14, PROC+17*, PROC+18, YESNO~, YESNO+2, CHOOSE~, CHOOSE+6 |
| QRSCP | ENTRY+2~, CHOICE+26, CHOICE+44, UPDATE+11*, UPDATE1+8, UPDATE1+26, QRSCP~, QRSCP+1, DISPLAY+15 |
| REQUIRED | LOOKUP~, LOOKUP+32, BLDPXLST+2 |
| RETURN | LOOKUP+1~, LOOKUP+12, LOOKUP+17*, LOOKUP+21*, LOOKUP+26*, LOOKUP+27* |
| SERVICE | ENTRY+2~, CHOICE+4, CHOICE+7, CHOICE+9, CHOICE+12, CHOICE+15, CHOICE+37, UPDATE+1~, UPDATE+3*, UPDATE+4* , CONSULT~, CONSULT+2, PROC~, PROC+13*, PROC+19*, DISPLAY+3, DISPLAY+21 |
| SPEC | BLDPXLST+9~*, BLDPXLST+11* |
| SPECX | BLDPXLST+14~*, BLDPXLST+15* |
| TMP | CLINIC+1~, LOOKUP+1~, BLDPXLST+4! |
| TMP( | CLINIC+13*, CLINIC+22, CLINIC+23*, CLINIC+26, LOOKUP+40, BLDPXLST+21* |
| VALUE | GETVALUE+1~, GETVALUE+2*, GETVALUE+4*, GETVALUE+6 |
| X | ENTRY+2~, ENTRY+14*, CHOICE+3, CHOICE+4*, CHOICE+6, CHOICE+7*, CHOICE+21*, CHOICE+22*, CHOICE+23*, CHOICE+24* , CHOICE+25*, CHOICE+26*, CHOICE+27*, CHOICE+32*, UPDATE+1~, UPDATE+2*, UPDATE+3, UPDATE+6, UPDATE+7, UPDATE+8 , UPDATE+9, UPDATE+10, UPDATE+11, UPDATE+17*, UPDATE+20*, UPDATE1+1~, UPDATE1+3*, UPDATE1+4*, UPDATE1+5*, UPDATE1+6* , UPDATE1+7*, UPDATE1+8*, UPDATE1+9*, UPDATE1+16*, PROC+1~, PROC+2*, PROC+3, PROC+18*, PROC+21, CLINIC+1~ , CLINIC+8*, CLINIC+9, CLINIC+10*, CLINIC+11, CLINIC+12, CLINIC+19, CLINIC+21*, LOOKUP+1~, LOOKUP+7*, LOOKUP+16* , LOOKUP+20*, DISPLAY+1~, P~, P+2, P+3, YESNO+1~, CHOOSE+1~ |
| X( | DISPLAY+22, DISPLAY+23, DISPLAY+24 |
| Y | LOOKUP+1~, LOOKUP+37, LOOKUP+38, LOOKUP+39, LOOKUP+40*, LOOKUP+41, YESNO+1~, CHOOSE+1~, CHOOSE+11 |
| Y(0 | YESNO+7 |
| Z | P+1~, P+2*, P+3*, P+4 |