©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
INHUT2 ; cmi/flag/maw - 16 Oct 98 15:11 GIS utilities ; [ 05/09/2002 11:06 AM ]
Source file <INHUT2.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Generic Interface System | 4 | $$VER^INHB GETLINE^INHOU $$PIECE^INHU ($$COMP,$$FIELD,$$REP,$$SUBCOMP)^INHUT |
| VA Fileman | 2 | ^DIE Q^DIE2 |
| Uncategorized | 1 | ^DWL |
| Package | Total | Caller Graph |
|---|---|---|
| IHS Generic Interface System | 4 | INHMSR10 INHUT INHVMTR INTSTRT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PARSEG(INSRCTL,INSEGNM) | ; Parse a segment
; INPUT: ; INSRCTL (required): ; Array containing the raw segment data to be parsed ; located under the HL7 namespaced node represented by ; the second parameter. ; ex. INSRCTL("MSH")=... ; INSEGNM HL7 segment name (required): ; Valid HL7 segment name to be used to identifiy which ; node of the input array will be parsed. ; ex. PARSEG^INHUT2(.INSRCTL,"MSH") ; where INSRCTL("MSH")="MSH^\|~&^^^^..." |
|
| CONV | ;Conversion routine to add unique id's
|
|
| PAD(X,Y,Z) | ;Pad front with whatever you want to pad with
; input: X - String you are padding ; Y - Pad to this size ; Z - What to PAD it with |
|
| UNIQUE(X) | ;See if ID is being used already
; Input: ; X --> input value of Unique ID ; Returns 0-ID does not exist ; 1-ID exists |
|
| BPSTAT(INBKGNM,INSRVR) | ;-determine status of GIS background process, given name
|
|
| ISNS(X) | ;is the input value properly name spaced
|
|
| GETSEG(UIF,INSEGNM,INSTANCE) | ; Get segment from UIF
; Called by S INSRCTL("MSH")=$$GETSEG^INHUT(12345,"MSH") |
|
| FMHELP(DP,D) | ;Fileman help utility
; DP - File/Sub file Number ; D - Field Number |
|
| MSG | ;message display for Interface Name Space control
|
|
| EXCLUDE | ;List of existing entries to exclude from namespace requirement
|
|
| UNQ(DA) | ;Set unique ID Called from DD 4000,.01
; DA - IEN |
|
| ISNAMSPC(X) | ;is the value properly name spaces according to current
|
|
| MHC(X) | ;Return number embedded in string value of MHCMIS .01 field
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^INRHT - [#4000] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("VOL" | UNQ+5 |
| ^DD( | FMHELP+5 |
| ^DIC - [#1] | FMHELP+4 |
| ^INRHB("RUN" | BPSTAT+17 |
| ^INRHNS("ADS" | ISNS+13 |
| ^INRHNS("B" | ISNS+11, ISNS+12, MSG+6 |
| ^INRHT - [#4000] | UNQ+4, CONV+2*, CONV+3 |
| ^INRHT("ID" | UNIQUE+5, UNQ+8 |
| ^INTHPC - [#4004] | BPSTAT+14 |
| ^INTHPC("B" | BPSTAT+12 |
| Name | Line Occurrences |
|---|---|
| $$PAD | UNQ+9 |
| UNQ | CONV+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | FMHELP+3~ |
| %VOL | UNQ+2~, UNQ+5*, UNQ+6*, UNQ+7, UNQ+9 |
| %X | FMHELP+3~ |
| D | FMHELP~, FMHELP+5 |
| D0 | UNQ+3~ |
| D1 | UNQ+3~ |
| D2 | UNQ+3~ |
| D3 | UNQ+3~ |
| D4 | UNQ+3~ |
| D5 | UNQ+3~ |
| D6 | UNQ+3~ |
| D7 | UNQ+3~ |
| DA | UNIQUE+5, UNQ~, UNQ+4, CONV+1~, CONV+2*, CONV+3* |
| DB | UNQ+3~ |
| DG | UNQ+3~, FMHELP+3~ |
| DGO | UNQ+3~ |
| DIC | FMHELP+3~, FMHELP+4* |
| DIC(0 | FMHELP+4* |
| DIE | UNQ+2~, UNQ+10*, FMHELP+3~, FMHELP+4* |
| DIE17 | UNQ+3~ |
| DIE2 | FMHELP+3~ |
| DIEZ | UNQ+3~ |
| >> DIJC("H" | MSG+2 |
| >> DIJC("L" | MSG+2 |
| >> DIJC("ROF" | ISNAMSPC+4 |
| >> DIJC("RON" | ISNAMSPC+4 |
| DIL | UNQ+3~ |
| DL | FMHELP+3~ |
| DLB | UNQ+3~ |
| DNM | UNQ+3~ |
| DOW | UNQ+3~ |
| DP | FMHELP~, FMHELP+4, FMHELP+5 |
| DQ | UNQ+3~, FMHELP+3~, FMHELP+5* |
| DQ(1 | FMHELP+5*, FMHELP+7, FMHELP+8 |
| DR | UNQ+2~, UNQ+10* |
| DU | FMHELP+3~, FMHELP+8* |
| DV | FMHELP+3~, FMHELP+7* |
| >> DWL | MSG+4* |
| DWLB | MSG+1~, MSG+4* |
| DWLRF | MSG+1~, MSG+4*, MSG+5, MSG+7 |
| DY | MSG+1~, MSG+4* |
| DZ | FMHELP+3~, FMHELP+5* |
| HOF | MSG+1~, MSG+2*, MSG+3, MSG+7, MSG+8 |
| HON | MSG+1~, MSG+2*, MSG+3, MSG+7 |
| >> I | ISNS+6*, MSG+6*, MSG+7, PARSEG+33*, PARSEG+34 |
| INAME | ISNS+5~, ISNS+6*, ISNS+7 |
| INBGKSTR | BPSTAT+10~ |
| INBKGIEN | BPSTAT+10~, BPSTAT+12*, BPSTAT+13, BPSTAT+14, BPSTAT+15, BPSTAT+17 |
| INBKGNM | BPSTAT~, BPSTAT+11, BPSTAT+12 |
| INBKGST | BPSTAT+10~, BPSTAT+15*, BPSTAT+16 |
| >> INBKGSTR | BPSTAT+16*, BPSTAT+17*, BPSTAT+18 |
| INCNT | UNQ+2~, UNQ+8*, UNQ+9*, GETSEG+19~, GETSEG+21*, GETSEG+23* |
| INCOMP | PARSEG+19~, PARSEG+20*, PARSEG+23, PARSEG+24*, PARSEG+25*, PARSEG+26, PARSEG+27 |
| INCR | GETSEG+19~, GETSEG+22 |
| INDAD | ISNS+5~*, ISNS+6, ISNS+7*, ISNS+8 |
| INDATA | GETSEG+19~, GETSEG+22, GETSEG+23 |
| INDELIM | PARSEG+19~, PARSEG+20*, PARSEG+23, PARSEG+24*, PARSEG+25*, PARSEG+26, PARSEG+27, PARSEG+29, PARSEG+31, PARSEG+34 , PARSEG+35 |
| >> INFIELDS | PARSEG+29*, PARSEG+31, PARSEG+34*, PARSEG+35 |
| >> INFLD | PARSEG+31*, PARSEG+34, PARSEG+35* |
| INHPAD | PAD+4~, PAD+5*, PAD+6 |
| INI | MSG+1~, MSG+4*, MSG+6*, MSG+7 |
| INID | UNQ+2~, UNQ+8* |
| INLAST | UNQ+2~, UNQ+7*, UNQ+8 |
| INLINE | GETSEG+19~, GETSEG+21*, GETSEG+22 |
| INOFFSET | PARSEG+19~, PARSEG+29*, PARSEG+31 |
| INREP | PARSEG+19~, PARSEG+21*, PARSEG+23, PARSEG+24*, PARSEG+25*, PARSEG+26 |
| >> INSCTRL("INDELIM" | PARSEG+20 |
| INSEG | PARSEG+19~, PARSEG+30*, PARSEG+31, PARSEG+35, PARSEG+36 |
| INSEGNM | PARSEG~, PARSEG+17, PARSEG+18, PARSEG+29, PARSEG+30, PARSEG+31, PARSEG+32, PARSEG+33, PARSEG+34, PARSEG+35 , PARSEG+36, GETSEG~, GETSEG+18, GETSEG+20, GETSEG+23, GETSEG+24 |
| INSRCTL | PARSEG~ |
| INSRCTL( | PARSEG+18, PARSEG+29, PARSEG+30, PARSEG+31*, PARSEG+32, PARSEG+33, PARSEG+34, PARSEG+35*, PARSEG+36*, GETSEG+20! , GETSEG+23*, GETSEG+24 |
| INSRCTL("INCOMP" | PARSEG+20, PARSEG+26* |
| INSRCTL("INDELIM" | PARSEG+26* |
| INSRCTL("INREP" | PARSEG+21, PARSEG+26* |
| INSRCTL("INSUBCOM" | PARSEG+21, PARSEG+26* |
| INSRCTL("MSH" | PARSEG+24 |
| INSRVR | BPSTAT~ |
| INSTANCE | GETSEG~, GETSEG+21*, GETSEG+23 |
| INSUBCOM | PARSEG+19~, PARSEG+21*, PARSEG+23, PARSEG+24*, PARSEG+25*, PARSEG+26 |
| NAMSPC | ISNAMSPC+2~ |
| >> OK | MHC+10*, MHC+11 |
| PATMAT | ISNAMSPC+2~ |
| ROF | ISNAMSPC+2~, ISNAMSPC+4*, ISNAMSPC+5, ISNAMSPC+7 |
| RON | ISNAMSPC+2~, ISNAMSPC+4*, ISNAMSPC+5, ISNAMSPC+7 |
| U | UNQ+4, CONV+2, FMHELP+7, FMHELP+8, BPSTAT+14, BPSTAT+17 |
| UIF | GETSEG~, GETSEG+18, GETSEG+22 |
| X | ISNAMSPC~, ISNAMSPC+3, ISNS~, ISNS+7, ISNS+9, ISNS+11, ISNS+12, ISNS+13, MHC~, MHC+8 , MHC+10, UNIQUE~, UNIQUE+5, UNQ+2~, UNQ+3~, PAD~, PAD+5*, PAD+6, FMHELP+3~, FMHELP+5* |
| Y | ISNAMSPC+7*, PAD~, PAD+5, PAD+6, FMHELP+3~ |
| Z | PAD~, PAD+5, FMHELP+3~ |
| Name | Field # of Occurrence |
|---|---|
| $T(EXCLUDE+I | ISNS+6 |