PSSHLU ;BIR/RLW-UTILITIES USED IN BUILDING HL7 SEGMENTS ;11/14/96
Source file <PSSHLU.m>
Package | Total | Caller Graph |
---|---|---|
Pharmacy Data Management | 2 | PSSHL1 PSSHLSCH |
Name | Comments | DBIA/ICR reference |
---|---|---|
MF(HLEVN) | ; call DHCP HL7 -or- protocol, to pass Master File transactions
; HLEVN = number of segments in message |
|
IVFLAG | ;
|
|
CALL(HLEVN) | ; call DHCP HL7 package -or- protocol, to pass Orders
; HLEVN = number of segments in message |
|
SCH(HLEVN) | ||
USAGE(POI) | ;
|
|
SEGMENT(LIMIT) | ;
|
|
INIT | ; set up HL7 application variables
|
Name | Field # of Occurrence |
---|---|
MSG^XQOR | CALL+4, MF+4, SCH+2 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(4 - [#4] | INIT+3 |
^PS(50.7 - [#50.7] | USAGE+2, USAGE+3 |
^PS(52.6 - [#52.6] | USAGE+8, USAGE+10 |
^PS(52.7 - [#52.7] | USAGE+12, USAGE+14 |
^PSDRUG - [#50] | USAGE+4, USAGE+5 |
^PSDRUG("A526" | USAGE+7 |
^PSDRUG("A527" | USAGE+11 |
^TMP("HLS" | INIT+3*, SEGMENT+7*, SEGMENT+8* |
^XMB(1 - [#4.3] | INIT+3 |
Name | Line Occurrences |
---|---|
IVFLAG | USAGE+2 |
Name | Field # of Occurrence |
---|---|
^("I" | USAGE+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DT | USAGE+4, USAGE+8, USAGE+12 |
>> FIELD( | SEGMENT+2, SEGMENT+3, SEGMENT+4, SEGMENT+5, SEGMENT+6 |
HLEVN | CALL~, MF~, SCH~ |
I | USAGE+1~*, USAGE+3*, USAGE+5*, IVFLAG+1* |
>> J | SEGMENT+1*, SEGMENT+2, SEGMENT+3, SEGMENT+4, SEGMENT+5, SEGMENT+6, SEGMENT+8* |
LIMIT | SEGMENT~, SEGMENT+1 |
>> MSG | CALL+3*, CALL+4, MF+3*, MF+4, SCH+1*, SCH+2 |
POI | USAGE~, USAGE+2, USAGE+3 |
>> PSJCLEAR | INIT+4* |
>> PSJI | INIT+2*, INIT+3, SEGMENT+7*, SEGMENT+8 |
PSSDDINX | USAGE+1~, USAGE+3*, USAGE+4, USAGE+5, USAGE+7, USAGE+11 |
PSSHINST | INIT+3*! |
PSSOAD | USAGE+6~, USAGE+7*, USAGE+8, USAGE+10 |
PSSOSD | USAGE+6~, USAGE+11*, USAGE+12, USAGE+14 |
SEGLENGT | SEGMENT+1~, SEGMENT+3*, SEGMENT+4, SEGMENT+6 |
>> SEGMENT( | SEGMENT+1*, SEGMENT+2*, SEGMENT+3, SEGMENT+4*, SEGMENT+5*, SEGMENT+6*, SEGMENT+8 |
>> SEGMENT(0 | SEGMENT+7 |
SUBSEG | SEGMENT+1~*, SEGMENT+2, SEGMENT+3, SEGMENT+4, SEGMENT+5*, SEGMENT+6* |
USAGE | USAGE+1~, USAGE+5*, IVFLAG+1*, IVFLAG+2 |
USAGE( | USAGE+1*, USAGE+5*, IVFLAG+1 |
USAGE("A" | USAGE+10* |
USAGE("B" | USAGE+14* |
USAGE("I" | USAGE+9*, USAGE+13* |
USAGE("V" | USAGE+9*, USAGE+13* |