©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
INTSUT2 ;JPD; 1 Feb 96 09:26; Utility routine
Source file <INTSUT2.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Generic Interface System | 3 | LSTHDR^INTSTRT (DEFRHT,DISPLAY,SCR)^INTSUT1 (MERGE2,UPDTFRUT)^INTSUT3 |
| Kernel | 1 | $$SETXY^%ZTF |
| Uncategorized | 1 | $$VAL^DWRA |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CLSVCK(X,DWSFLD) | ;client server check
|
|
| MSG(MSG) | ;Write message to screen
|
|
| CHECK(INDA,DIE,Y,DWSFLD) | ;called from post action of 1st screen of
|
|
| TYPECHK(INDA,X,DWDIPA,DWSFLD) | ;User sets TYPE field.
|
|
| LOCKPORT(X) | ;Lock port - called from gallery
|
|
| PRE(INDA,INPRE,INUIF,INARY) | ;Pre process
|
|
| POSTPRE(INDA,INARY,INEXTUIF,INLASTN,INPOP,INUPDAT) | ;Post Pre processing
; Input: ; INARY= "^INTHU" , "^INLHFTSK" ; INARY("C") = ien - Current UIF ien value to process ; INARY("A",n) = ien - Process UIF at position n in ^UTILITY ; INARY("F") = ien - First UIF entry to process ; INARY("L") = ien - Last UIF entry to process ; INARY("M",n) = Message to display & save in displayman array ; INARY("REF") = 1 Refresh command screen when done ; Output: INEXTUIF - Next Universal Interface file entry to process - ; can be set/reset by the programmer ; INLASTN - Last entry in ^UTILITY global processed - can be ; set/reset by the programmer - (should be set if ; it was not set previously) ; INEXTUIF and INLASTN need to be set in or out of the PRE and POST ; in order to process at least one message. |
|
| GETPORT(INBPN) | ;get port - called from INTS
|
|
| POST(INDA,INEXTUIF,INARY) | ;Post process
|
|
| PORTULCK(INIPPO) | ;current port value changed- called from gallery
|
| Name | Field # of Occurrence |
|---|---|
| $$SETXY^%ZTF | MSG+3 |
| $$VAL^DWRA | CHECK+11, CHECK+13, CHECK+17, CHECK+20, TYPECHK+22, TYPECHK+24, TYPECHK+29, TYPECHK+47, TYPECHK+49, TYPECHK+50 , TYPECHK+51 |
| LSTHDR^INTSTRT | POSTPRE+24 |
| DEFRHT^INTSUT1 | TYPECHK+31, TYPECHK+52 |
| DISPLAY^INTSUT1 | PRE+13, POSTPRE+27, POSTPRE+46, POST+12 |
| SCR^INTSUT1 | POSTPRE+25 |
| MERGE2^INTSUT3 | POSTPRE+30 |
| UPDTFRUT^INTSUT3 | POSTPRE+49 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^INRHB("RUN" | GETPORT+5, GETPORT+6*, PORTULCK+5, LOCKPORT+5, LOCKPORT+9*, TYPECHK+57, TYPECHK+58 |
| ^INTHPC - [#4004] | TYPECHK+51 |
| ^INTHPC("B" | PORTULCK+4, LOCKPORT+4, TYPECHK+46 |
| ^UTILITY("INTHU" | POSTPRE+33, POSTPRE+36*, POSTPRE+39, POSTPRE+40*, POSTPRE+42, POSTPRE+43 |
| Name | Line Occurrences |
|---|---|
| MSG | CHECK+14, CHECK+18, CHECK+21, LOCKPORT+6, TYPECHK+57 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DIE | CHECK~, CHECK+11, CHECK+13, CHECK+17, CHECK+20, TYPECHK+22, TYPECHK+24, TYPECHK+29, TYPECHK+47, TYPECHK+49 , TYPECHK+50, TYPECHK+51, POST+10~ |
| DIPA | PRE+11~, POST+10~ |
| DIPA("18.02" | LOCKPORT+8* |
| DUZ | POSTPRE+33, POSTPRE+36, POSTPRE+39, POSTPRE+40, POSTPRE+42, POSTPRE+43 |
| DWDIPA | TYPECHK~ |
| DWDIPA( | TYPECHK+10* |
| >> DWFCHG | TYPECHK+12, TYPECHK+27, TYPECHK+40 |
| DWSFLD | CHECK~, TYPECHK~, TYPECHK+31, TYPECHK+52, CLSVCK~ |
| DWSFLD( | TYPECHK+12*, TYPECHK+17*, TYPECHK+19*, TYPECHK+24*, TYPECHK+25*, TYPECHK+29*, TYPECHK+30*, TYPECHK+35*, TYPECHK+36*, TYPECHK+38* , TYPECHK+42*, TYPECHK+44*, TYPECHK+47*, TYPECHK+51*, TYPECHK+54*, TYPECHK+61*, TYPECHK+63*, TYPECHK+66*, CLSVCK+7*, CLSVCK+9* |
| DWSFLD(20 | TYPECHK+21*, TYPECHK+35*, TYPECHK+36*, TYPECHK+64* |
| DWSFLD(6 | TYPECHK+21*, TYPECHK+37*, TYPECHK+63*, TYPECHK+66* |
| >> I | TYPECHK+12* |
| INARY | PRE~, PRE+12!, POSTPRE~, POSTPRE+19, POSTPRE+26*, POSTPRE+30, POSTPRE+32, POSTPRE+38, POSTPRE+47!, POST~ |
| INARY("A" | POSTPRE+21 |
| INARY("C" | POSTPRE+21, POSTPRE+29 |
| INARY("F" | POSTPRE+21, POSTPRE+36 |
| INARY("L" | POSTPRE+21, POSTPRE+40 |
| INARY("M" | POSTPRE+46 |
| INARY("REF" | POSTPRE+22 |
| INBPN | CHECK+9~, GETPORT~, GETPORT+5, GETPORT+6, PORTULCK+3~, PORTULCK+4*, PORTULCK+5, LOCKPORT+3~, LOCKPORT+4*, LOCKPORT+5 , LOCKPORT+9, TYPECHK+8~, TYPECHK+22*, TYPECHK+31, TYPECHK+46*, TYPECHK+52, TYPECHK+57, TYPECHK+58, PRE+11~, POST+10~ |
| INBPNAP | CHECK+9~, TYPECHK+8~, TYPECHK+50*, TYPECHK+51 |
| INCHNL | PRE+11~, POST+10~ |
| INDA | CHECK~, CHECK+11, CHECK+13, CHECK+17, CHECK+20, TYPECHK~, TYPECHK+22, TYPECHK+24, TYPECHK+29, TYPECHK+47 , TYPECHK+49, TYPECHK+50, TYPECHK+51, PRE~, POSTPRE~, POSTPRE+24, POSTPRE+49, POST~ |
| INDEST | PRE+11~, POST+10~ |
| >> INEXPAND | POSTPRE+46 |
| INEXTUIF | POSTPRE~, POSTPRE+29*, POSTPRE+43*, POST~, POST+11* |
| INIP | PRE+11~, POST+10~ |
| INIP("POST" | POST+13 |
| INIPPO | CHECK+9~, GETPORT+3~, GETPORT+4*, GETPORT+5, GETPORT+6, GETPORT+7, PORTULCK~, PORTULCK+5, TYPECHK+8~, TYPECHK+49* , TYPECHK+54, TYPECHK+55, TYPECHK+57, TYPECHK+58 |
| INLASTN | POSTPRE~, POSTPRE+41, POSTPRE+42*, POSTPRE+43 |
| INP | POSTPRE+17~, POSTPRE+33*, POSTPRE+34*, POSTPRE+35*, POSTPRE+36, POSTPRE+39*, POSTPRE+40, POSTPRE+45*, POSTPRE+46* |
| INPOP | POSTPRE~, POSTPRE+18 |
| INPRE | PRE~, PRE+14 |
| INTT | PRE+11~, POST+10~ |
| INUIF | PRE~ |
| INUPDAT | POSTPRE~, POSTPRE+20!, POSTPRE+21*, POSTPRE+41 |
| INXDST | PRE+11~, POST+10~ |
| MSG | MSG~, MSG+3 |
| POP | GETPORT+3~, GETPORT+4*, GETPORT+5* |
| U | TYPECHK+51 |
| X | LOCKPORT~, LOCKPORT+5, LOCKPORT+7!, LOCKPORT+8, LOCKPORT+9, TYPECHK~, TYPECHK+15, TYPECHK+33, TYPECHK+60, CLSVCK~ , CLSVCK+7, CLSVCK+9 |
| Y | CHECK~, CHECK+11*, CHECK+15*, CHECK+19*, CHECK+22* |