©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
INHERR ;DJL; 30 Jan 96 14:40;Interface - Error Search
Source file <INHERR.m>
| Package | Total | Caller Graph |
|---|---|---|
| IHS Generic Interface System | 2 | INHES INHES2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SEARCH | ; Search/List/Output INTHER errors that match a search criteria
; MODULE NAME: SEARCH ( Interface Error Search Routine ) ; DESCRIPTION: Prompts the user for search criteria to be used ; to find matches in the Interface Error File ; file (^INTHER). 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 |
|
| IHSJUMP | ;IHS jumps here to bypass windowman calls
|
|
| BGNSRCH(INMSGFND,INKINDA,INDA,INPARM2,SUMMARY) | ; 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(PBR) = A NAME of an array in which to build a list(in ; subscript/selection order) of the selected items IEN's ; into ^INTHU ; INKINDA(PBV) = 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(PBR) = Set to the node into ^DIZ(4001.1) where the selected ; search criteria is setup. ; INPARM2(PBR) = 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)" ; "SUMMARY" = 1 : SUMMARY REPORT, 0 : NORMAL REPORT ; CODE BEGINS |
| Name | Field # of Occurrence |
|---|---|
| ^DDS | BGNSRCH+61 |
| ^DIC | BGNSRCH+45 |
| ^DWC | BGNSRCH+63 |
| MS^DWD | IHSJUMP+9 |
| ^DWL | IHSJUMP+19 |
| EXPAND^INHERR1 | IHSJUMP+20 |
| LIST^INHERR2 | IHSJUMP+17 |
| POST^INHERR2 | SEARCH+18 |
| $$SRCHSIZE^INHERR4 | IHSJUMP+9 |
| GATHER^INHERR4 | IHSJUMP+1 |
| QUEUE^INHES | IHSJUMP+7 |
| INKINDA^INHMS | SEARCH+19, BGNSRCH+64, BGNSRCH+65, IHSJUMP+9, IHSJUMP+17, IHSJUMP+37 |
| ERR^INHMS2 | BGNSRCH+45, BGNSRCH+65 |
| $$QUITDWL^INHMS3 | IHSJUMP+19 |
| $$SC^INHUTIL1 | BGNSRCH+58 |
| $$CR^UTSRD | IHSJUMP+9 |
| ABASK^XGABAR | IHSJUMP+28 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIZ(4001.1 - [#4001.1] | BGNSRCH+48*, BGNSRCH+50*, BGNSRCH+52*, BGNSRCH+65, IHSJUMP+4 |
| Name | Line Occurrences |
|---|---|
| $$BGNSRCH | SEARCH+18 |
| IHSJUMP | BGNSRCH+58 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DA | BGNSRCH+46* |
| DDSFILE | BGNSRCH+59~, BGNSRCH+60* |
| DDSPAGE | BGNSRCH+59~, BGNSRCH+60* |
| >> DDSPARM | BGNSRCH+60* |
| >> DDSSAVE | BGNSRCH+58 |
| DIC | BGNSRCH+38~, BGNSRCH+45* |
| DIC(0 | BGNSRCH+45* |
| DIE | BGNSRCH+38~, BGNSRCH+60*, BGNSRCH+63* |
| DIPA | BGNSRCH+38~ |
| DLAYGO | BGNSRCH+38~, BGNSRCH+45* |
| >> DR | BGNSRCH+60* |
| DUOUT | BGNSRCH+38~ |
| DUZ | BGNSRCH+45, IHSJUMP+35 |
| >> DWASK | BGNSRCH+56* |
| >> DWFILE | BGNSRCH+64 |
| DWL | BGNSRCH+38~, IHSJUMP+15*, IHSJUMP+18*, IHSJUMP+19* |
| DWL("MORE" | IHSJUMP+15* |
| DWL("TITLE" | IHSJUMP+14* |
| DWLB | BGNSRCH+38~, IHSJUMP+15*, IHSJUMP+16* |
| DWLHOT | BGNSRCH+38~ |
| DWLHOT( | IHSJUMP+11* |
| DWLMK | BGNSRCH+38~, IHSJUMP+22, IHSJUMP+24!, IHSJUMP+26, IHSJUMP+33 |
| DWLMK( | IHSJUMP+36 |
| DWLMK1 | BGNSRCH+38~, IHSJUMP+24! |
| DWLMK2 | BGNSRCH+38~ |
| DWLMSG | BGNSRCH+38~ |
| DWLR | BGNSRCH+37~, IHSJUMP+19, IHSJUMP+20, IHSJUMP+21, IHSJUMP+22, IHSJUMP+23, IHSJUMP+24 |
| DWLRF | BGNSRCH+37~, IHSJUMP+15*, IHSJUMP+17, IHSJUMP+19, IHSJUMP+35, IHSJUMP+36, IHSJUMP+39 |
| DWN | BGNSRCH+38~, BGNSRCH+54*, BGNSRCH+55*, BGNSRCH+60 |
| IND | BGNSRCH+37~, IHSJUMP+1, IHSJUMP+17 |
| INDA | SEARCH+12~, SEARCH+18, SEARCH+19, BGNSRCH~, BGNSRCH+39*, BGNSRCH+45*, BGNSRCH+46, BGNSRCH+48, BGNSRCH+50, BGNSRCH+52 , BGNSRCH+64, BGNSRCH+65, IHSJUMP+1, IHSJUMP+4, IHSJUMP+9, IHSJUMP+17, IHSJUMP+37 |
| INERRTYP | BGNSRCH+38~ |
| INERRTYP("CONTINUE" | BGNSRCH+40*, BGNSRCH+62*, IHSJUMP+7, IHSJUMP+9, IHSJUMP+17, IHSJUMP+39 |
| INERRTYP("CREATION" | BGNSRCH+40*, BGNSRCH+45 |
| INERRTYP("CRITERIA" | BGNSRCH+40*, BGNSRCH+65 |
| INERRTYP("EXIT" | BGNSRCH+40*, BGNSRCH+64 |
| INERRTYP("SYSTEM" | BGNSRCH+40* |
| INFNDNAM | SEARCH+12~, SEARCH+13*~, SEARCH+18* |
| >> INFORM | BGNSRCH+60* |
| INHOTOPT | IHSJUMP+22~*, IHSJUMP+23, IHSJUMP+26~* |
| INKINDA | BGNSRCH~, BGNSRCH+39*, BGNSRCH+64, BGNSRCH+65, IHSJUMP+9, IHSJUMP+17, IHSJUMP+37 |
| INL | BGNSRCH+37~, IHSJUMP+17 |
| INM | BGNSRCH+37~ |
| INMSGFND | BGNSRCH~, IHSJUMP+34, IHSJUMP+35*, IHSJUMP+36 |
| INMSGSZ | BGNSRCH+38~, IHSJUMP+9* |
| >> INND20 | IHSJUMP+4*, IHSJUMP+5, IHSJUMP+6 |
| INNODE | BGNSRCH+37~, IHSJUMP+11*, IHSJUMP+36* |
| INPARM2 | SEARCH+12~, SEARCH+18, BGNSRCH~ |
| INPARM2("BAR" | IHSJUMP+28* |
| INPARM2("HELP" | SEARCH+15*, IHSJUMP+18, IHSJUMP+21 |
| INPARM2("HOT" | IHSJUMP+11, IHSJUMP+12, IHSJUMP+22, IHSJUMP+23, IHSJUMP+26 |
| INPARM2("TITLE" | SEARCH+17*, IHSJUMP+12*, IHSJUMP+14 |
| INQUIT | SEARCH+12~, SEARCH+18*, BGNSRCH+37~, IHSJUMP+17 |
| INRVSRCH | BGNSRCH+37~, IHSJUMP+1, IHSJUMP+17 |
| INSELECT | SEARCH+12~ |
| INSRCH | BGNSRCH+37~, IHSJUMP+1, IHSJUMP+7, IHSJUMP+9, IHSJUMP+17 |
| INSRCH("INEXPAND" | IHSJUMP+16 |
| INSRCH("TEXTLEN" | IHSJUMP+6* |
| INSRCHCT | BGNSRCH+37~, IHSJUMP+17* |
| INSUM1 | IHSJUMP+3~, IHSJUMP+5*, IHSJUMP+7 |
| INTEMP | BGNSRCH+37~ |
| >> INTLN | IHSJUMP+6* |
| INUQUIT | BGNSRCH+37~, BGNSRCH+64* |
| SUMMARY | BGNSRCH~, BGNSRCH+39*, BGNSRCH+52, BGNSRCH+54, BGNSRCH+55 |
| U | BGNSRCH+52, IHSJUMP+5, IHSJUMP+6, IHSJUMP+15, IHSJUMP+23, IHSJUMP+35 |
| X | BGNSRCH+37~, BGNSRCH+45*, IHSJUMP+9* |
| XGABESCF | BGNSRCH+38~, IHSJUMP+28 |
| XGABPOP | BGNSRCH+38~, IHSJUMP+28 |
| Y | BGNSRCH+37~, BGNSRCH+45 |