©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
INHMS ;JSH,DJL; 17 Jan 96 10:03;Interface - Message Search
Source file <INHMS.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| INKINDA(INDA) | ; Clean-up search criteria storage data
; MODULE NAME: INKINDA ( Search Criteria Clean-up Routine ) ; DESCRIPTION: Cleans up the Search Criteria Data in the ^DIZ global ; by using the ^DIK routine. ; RETURN = none ; PARAMETERS: ; INDA = Unique IEN into ^DIZ used to store Search Criteria Data ; CODE BEGINS |
|
| SEARCH | ; Search/List/Output INTHU messages that match a search criteria
; MODULE NAME: SEARCH ( Interface Message Search Routine ) ; DESCRIPTION: Prompts the user for search criteria to be used ; to find matches in the Interface Message Queue ; file (^INTHU). The user is presented with a list ; of matching items which can be selectively expanded ; or printed(user chosen device). The user is then ; brought back to the Search Criteria menu and can ; continue with another search or exit with the F10 key. ; RETURN = none ; PARAMETERS = none ; CODE BEGINS |
|
| BGNSRCH(INMSGFND,INKINDA,INDA,INPARM2) | ; Begin a search
; MODULE NAME: BGNSRCH ( Programmers entry point ) ; DESCRIPTION: Same fuctionality as SEARCH^INHMS but only executes ; a single pass. This would be useful for a programmers ; interface because an array is loaded with the selected ; items and could be used for other processing needs. An ; Action-Bar can be added to the process by setting the ; fourth parameter to the name of the Action-Bar. ; RETURN = 0 = "CONTINUE" The program completed properly ; 1 = "EXIT" The user exited ^DWC ; 2 = "SYSTEM" The incorrect system ; 3 = "CREATION" The entry to store the search criteria could ; not be created ; 4 = "CRITERIA" The required search criteria was not entered ; PARAMETERS: ; INMSGFND = A NAME of an array in which to build a list(in ; subscript/selection order) of the selected items IEN's ; into ^INTHU ; INKINDA = Flag used to initiate the call to INKINDA(INDA) to do ; cleanup of the ^DIZ global if set to 0 after the search ; or let the calling routine call INKINDA(INDA). ; INDA = Set to the node into ^DIZ(4001.1) where the selected ; search criteria is setup. ; INPARM2 = Structure nodes as follows: ; "HELP" = Executable M code used for the List Processor HELP ; "TITLE" = Executable M code use for the List Processor Title ; "BAR" = A NAME of an Action-Bar to be called immediately after ; all the items in the list have been selected. The ; structure passed is to be updated with the XGABESCF and ; XGABPOP nodes upon exiting. The calling routine must ; evaluate the appropriate structure nodes to determine ; the action to be taken ; "BAR","XGABESCF" & "BAR","XGABPOP" set after bar is run ; "HOT",x ="string indicating the function of the key^ret. value" ; "HOT",x,"ACTION" ="Executable M code used on key selection)" ; CODE BEGINS |
| Name | Field # of Occurrence |
|---|---|
| ^DIC | BGNSRCH+43 |
| ^DIK | INKINDA+9 |
| ^DWC | BGNSRCH+51 |
| MS^DWD | BGNSRCH+55 |
| ^DWL | BGNSRCH+64 |
| EXPAND^INHMS1 | BGNSRCH+65 |
| ERR^INHMS2 | BGNSRCH+40, BGNSRCH+43, BGNSRCH+53 |
| LIST^INHMS2 | BGNSRCH+62 |
| POST^INHMS2 | SEARCH+18 |
| $$QUITDWL^INHMS3 | BGNSRCH+64 |
| $$SRCHSIZE^INHMS4 | BGNSRCH+55 |
| GATHER^INHMS4 | BGNSRCH+54 |
| $$SC^INHUTIL1 | BGNSRCH+40 |
| $$CR^UTSRD | BGNSRCH+55 |
| ABASK^XGABAR | BGNSRCH+72 |
| FileNo | Call Tags |
|---|---|
| ^DIZ(4001.1 - [#4001.1] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIZ(4001.1 - [#4001.1] | BGNSRCH+46*, BGNSRCH+48*, BGNSRCH+53, INKINDA+9 |
| Name | Line Occurrences |
|---|---|
| $$BGNSRCH | SEARCH+18 |
| INKINDA | SEARCH+19, BGNSRCH+52, BGNSRCH+53, BGNSRCH+55, BGNSRCH+62, BGNSRCH+81 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | BGNSRCH+44*, INKINDA+9~* |
| DIC | BGNSRCH+37~, BGNSRCH+43* |
| DIC(0 | BGNSRCH+43* |
| DIE | BGNSRCH+37~, BGNSRCH+51* |
| DIK | INKINDA+9~* |
| DIPA | BGNSRCH+37~ |
| >> DLAYGO | BGNSRCH+43* |
| DUZ | BGNSRCH+43, BGNSRCH+79 |
| >> DWASK | BGNSRCH+50* |
| >> DWFILE | BGNSRCH+52 |
| DWL | BGNSRCH+37~, BGNSRCH+61*, BGNSRCH+63*, BGNSRCH+64* |
| DWL("MORE" | BGNSRCH+61* |
| DWL("TITLE" | BGNSRCH+60* |
| DWLB | BGNSRCH+37~, BGNSRCH+61* |
| DWLHOT | BGNSRCH+37~ |
| DWLHOT( | BGNSRCH+57* |
| DWLMK | BGNSRCH+37~, BGNSRCH+67, BGNSRCH+69!, BGNSRCH+70, BGNSRCH+77 |
| DWLMK( | BGNSRCH+80 |
| DWLMK1 | BGNSRCH+37~, BGNSRCH+69! |
| DWLMK2 | BGNSRCH+37~ |
| DWLMSG | BGNSRCH+37~ |
| DWLR | BGNSRCH+36~, BGNSRCH+64, BGNSRCH+65, BGNSRCH+66, BGNSRCH+67, BGNSRCH+68, BGNSRCH+69 |
| DWLRF | BGNSRCH+36~, BGNSRCH+61*, BGNSRCH+62, BGNSRCH+64, BGNSRCH+79, BGNSRCH+80, BGNSRCH+83 |
| DWN | BGNSRCH+37~, BGNSRCH+51* |
| IND | BGNSRCH+36~, BGNSRCH+54, BGNSRCH+62 |
| INDA | SEARCH+12~, SEARCH+18, SEARCH+19, BGNSRCH~, BGNSRCH+38*, BGNSRCH+43*, BGNSRCH+44, BGNSRCH+46, BGNSRCH+48, BGNSRCH+52 , BGNSRCH+53, BGNSRCH+54, BGNSRCH+55, BGNSRCH+62, BGNSRCH+81, INKINDA~, INKINDA+8*, INKINDA+9 |
| INERRTYP | BGNSRCH+37~ |
| INERRTYP("CONTINUE" | BGNSRCH+39*, BGNSRCH+55, BGNSRCH+62, BGNSRCH+83 |
| INERRTYP("CREATION" | BGNSRCH+39*, BGNSRCH+43 |
| INERRTYP("CRITERIA" | BGNSRCH+39*, BGNSRCH+53 |
| INERRTYP("EXIT" | BGNSRCH+39*, BGNSRCH+52 |
| INERRTYP("SYSTEM" | BGNSRCH+39*, BGNSRCH+40 |
| INFNDNAM | SEARCH+12~, SEARCH+13*~, SEARCH+18* |
| INHOTOPT | BGNSRCH+67~*, BGNSRCH+68, BGNSRCH+70~* |
| INKINDA | BGNSRCH~, BGNSRCH+38*, BGNSRCH+52, BGNSRCH+53, BGNSRCH+55, BGNSRCH+62, BGNSRCH+81 |
| INL | BGNSRCH+36~, BGNSRCH+62 |
| INM | BGNSRCH+36~ |
| INMSGFND | BGNSRCH~, BGNSRCH+78, BGNSRCH+79*, BGNSRCH+80 |
| INMSGSZ | BGNSRCH+37~, BGNSRCH+55* |
| INNODE | BGNSRCH+36~, BGNSRCH+57*, BGNSRCH+80* |
| INPARM2 | SEARCH+12~, SEARCH+18, BGNSRCH~ |
| INPARM2("BAR" | BGNSRCH+72* |
| INPARM2("HOT" | BGNSRCH+57, BGNSRCH+58, BGNSRCH+67, BGNSRCH+68, BGNSRCH+70 |
| INPARM2("INHELP" | SEARCH+15*, BGNSRCH+63, BGNSRCH+66 |
| INPARM2("TITLE" | SEARCH+17*, BGNSRCH+58*, BGNSRCH+60 |
| INQUIT | SEARCH+12~, SEARCH+18*, BGNSRCH+36~, BGNSRCH+62 |
| INRVSRCH | BGNSRCH+36~, BGNSRCH+54, BGNSRCH+62 |
| INSELECT | SEARCH+12~ |
| INSRCH | BGNSRCH+36~, BGNSRCH+54, BGNSRCH+55, BGNSRCH+62 |
| INSRCHCT | BGNSRCH+36~, BGNSRCH+62* |
| INTEMP | BGNSRCH+36~ |
| INUQUIT | BGNSRCH+36~, BGNSRCH+52* |
| U | BGNSRCH+61, BGNSRCH+68, BGNSRCH+79 |
| X | BGNSRCH+36~, BGNSRCH+43*, BGNSRCH+55*, INKINDA+9~ |
| XBABPOP | BGNSRCH+37~ |
| XGABESCF | BGNSRCH+37~, BGNSRCH+72 |
| >> XGABPOP | BGNSRCH+72 |
| Y | BGNSRCH+36~, BGNSRCH+43 |