©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
INHMGD1 ;CAR; 15 May 97 12:22;HL7 MESSAGING - MANAGEMENT OF DATA SOURCES
Source file <INHMGD1.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Generic Interface System | 3 | PAGE1^INHMGD11 SEG^INHMGD2 $$SC^INHUTIL1 |
| Uncategorized | 1 | $$CR^UTSRD |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| HDR2 | ;Header 2
; No Parameters. ; Output: ; generates a DATA line for writing by WRITE^INHMGD1, with the ; segment column labels. Used after the segment header and on each ; page after the page header. ; 12,"-" CHCS 11,"-" |
|
| IN(INDA,INP) | ;Entere here with INDA= ien of message to process one message.
; Input: ; INDA = Internal Entry Number (IEN) of message ; INP = Flag, +INP>0 means create tab-delimited output, ; for exporting to desk-top applications, like MS-Access. ; Also, $E(INP,2,999) contains tab delimited Message and ; Segment information. Will be copied to INPDATA for printing. |
|
| WRITE | ;output a line
; Input: ; DATA = passed globally, is a quoted line for use with W @DATA |
|
| HEADER | ;output header in local array INHDR(x)
; No Parameters. ; Description: The function HEADER is used to display the header ; when reaching the end of the page/screen, and give ; the user the option to continue or to abort. |
|
| DASH(QTY,CH) | ;Extrensic. Creates QTY copies of CH
; Inputs: ; QTY = numeric integer, how many copies of CH do you want in the ; output string. ; CH = character you want repeated. defaults to "-", hence the ; name DASH, but " " or anything else is ok. ; Output: |
|
| LKPRM(INX) | ;Extrensic. Converts lookup parameter F,L,N,O & P to long form
|
|
| HSET | ;set up header
; No Parameters. ; Description: The function HSET is used to set up the header with ; the current page and current date/time. ; Return: ; globally creates the INHDR array, containing quoted DATA strings ; for use by WRITE^INHMGD1. |
|
| YN(INV,INN) | ;Extrensic. Converts "" and 0 to NO and 1 to YES
; Inputs: ; INV = the value ["",0,1] to be converted to YES/NO or Y/N ; INN = control: 1 for "YES"/"NO", 0 for "Y"/"N" |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC - [#1] | IN+26 |
| ^INTHL7M - [#4011] | IN+11, IN+41, IN+48, IN+50, IN+51 |
| Name | Line Occurrences |
|---|---|
| $$DASH | HSET+11, HDR2+18 |
| HDR2 | HEADER+21 |
| HEADER | WRITE+6 |
| HSET | IN+38 |
| WRITE | HDR2+12, HDR2+17, HDR2+18 |
| Name | Field # of Occurrence |
|---|---|
| ^("GL" | IN+26 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CH | DASH~, DASH+8* |
| DASH | DASH+8~*, DASH+9 |
| DATA | HDR2+7~, HDR2+10*, HDR2+11*, HDR2+13*, HDR2+14*, HDR2+15*, HDR2+16*, HDR2+18*, WRITE+7* |
| FIELD | IN+15~ |
| FILE | IN+15~, IN+25*, IN+26, IN+53 |
| FILE(0 | IN+26* |
| FLVL | IN+15~, IN+22*, IN+53 |
| IDENT | IN+15~, IN+22* |
| INA | HEADER+6~, HEADER+18* |
| >> INALL | IN+13 |
| >> INAM | IN+44* |
| INAUDIT | IN+15~, IN+33* |
| INDA | IN~, IN+8, IN+9 |
| INDATA | IN+16~ |
| INDB | IN+16~ |
| INDTY | IN+16~ |
| >> INERN | IN+53 |
| INEX | IN+16~ |
| >> INEXIT | IN+34*, IN+48, IN+50, HEADER+8, HEADER+14*, HEADER+15, WRITE+4 |
| >> ING | HEADER+18, WRITE+7 |
| >> INHDR | IN+39 |
| >> INHDR( | HEADER+18 |
| >> INHDR(1 | HSET+9* |
| >> INHDR(2 | HSET+10* |
| >> INHDR(3 | HSET+11* |
| INHF2 | IN+15~, HEADER+19*, HEADER+20*, HEADER+21, HDR2+19* |
| >> INMODE | IN+42* |
| INMSG | IN+9~*, IN+11, IN+39, IN+41, IN+48, IN+50, IN+51 |
| INMSG(0 | IN+11*, IN+13, IN+25, IN+30, IN+39, IN+43, IN+44 |
| INN | YN~, YN+5 |
| >> INOFF | HSET+11, HDR2+9, HDR2+18 |
| INP | IN~, IN+30*, IN+53, HEADER+7, WRITE+5 |
| >> INPAGE | HEADER+10, HEADER+17* |
| >> INPARS | IN+43* |
| INREPEAT | IN+17~, IN+22* |
| INREQ | IN+17~ |
| INS | IN+16~ |
| INSEG | IN+16~ |
| INSEG(1 | IN+51*, IN+53 |
| INSEQ | IN+16~, IN+47*, IN+48*, IN+50 |
| INSG | IN+16~ |
| INSVAR | IN+18~ |
| INSYS | IN+16~, IN+33* |
| >> INTRP | IN+41*, IN+42 |
| INV | YN~, YN+5 |
| INX | IN+17~, IN+49*, IN+50*, IN+51, IN+53, LKPRM~, LKPRM+1 |
| IO | HEADER+10 |
| IO("Q" | HEADER+10 |
| IO(0 | HEADER+10 |
| IOF | HEADER+15, HEADER+17 |
| IOM | HDR2+15, HDR2+16 |
| IOSL | HEADER+12, HEADER+13, WRITE+6 |
| IOST | HEADER+10 |
| QTY | DASH~, DASH+8 |
| TAB | IN+18~, IN+29* |
| U | IN+13, IN+25, IN+26, IN+30, IN+42, IN+43, IN+44, IN+53 |
| X | HEADER+6~, HEADER+12*, HDR2+7~, HDR2+9* |
| X1 | HDR2+7~ |