ABSPOSQG ; IHS/FCS/DRS - form transmission packets ;
Source file <ABSPOSQG.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PACKET() | ;EP - ABSPOSQ2
; packetize one prescription (and possibly more prescriptions ; for the same patient, if they're ready now.) ; Called from ABSPOSQ2, ; which gave us RXILIST(IEN59) array of claims to packetize. |
|
DIALOUT() | ||
PACKERR | ; error trap comes here
|
|
POINTM | ; Reversals are joining again here
|
|
LOCK |
Name | Field # of Occurrence |
---|---|
$$ZE^ABSPOS | PACKERR+2 |
EN^ABSPOSCA | LOCK+4 |
RELSLOT^ABSPOSL | PACKET+9, POINTM+22 |
LOG2CLM^ABSPOSQ | POINTM+20 |
LOG2LIST^ABSPOSQ | PACKET+21, PACKET+25, PACKET+26, LOCK+2, LOCK+6 |
KSCRATCH^ABSPOSQ2 | POINTM+1 |
TASK^ABSPOSQ2 | POINTM+21 |
PASCII^ABSPOSQH | POINTM+2 |
$$IMPOSS^ABSPOSUE | LOCK+1, POINTM+15 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("ERRTN" | PACKERR+1 |
^%ZOSF("TRAP" | PACKET+6 |
^ABSP(9002313.55 - [#9002313.55] | POINTM+19, DIALOUT+10, DIALOUT+11 |
^ABSP(9002313.99 - [#9002313.99] | DIALOUT+9 |
^ABSPC - [#9002313.02] | LOCK, LOCK+8, POINTM+18 |
^ABSPECX("POS" | POINTM+15, POINTM+16*, POINTM+17 |
^ABSPECX($J | POINTM+14, POINTM+16 |
^ABSPEI - [#9002313.4] | DIALOUT+6, DIALOUT+7 |
^ABSPT - [#9002313.59] | PACKET+15, PACKET+17, PACKET+30, PACKET+31, DIALOUT+4 |
Name | Line Occurrences |
---|---|
$$DIALOUT | PACKET+8 |
@( | PACKERR+1 |
LOCK | LOCK+1 |
POINTM | PACKET+15 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ABSBVISI | PACKET+31~* |
CLAIMIEN | PACKET+7~, PACKET+17*, PACKET+18, LOCK+9 |
CLAIMIEN( | PACKET+18* |
DIALOUT | PACKET+7~, PACKET+8*, PACKET+9, LOCK+4, POINTM+2, POINTM+15, POINTM+16, POINTM+17, POINTM+19 |
ERROR | PACKET+7~, LOCK+6, LOCK+9 |
FIRST | POINTM+13~*, POINTM+21* |
FIRST59 | PACKET+14~*, PACKET+15, PACKET+17, PACKET+30, PACKET+31 |
I | PACKET+22~, PACKET+23*, PACKET+24, PACKET+25 |
IEN59 | DIALOUT+2~*, DIALOUT+3, DIALOUT+4 |
MSG | POINTM+18~*, POINTM+19*, POINTM+20 |
PATDFN | PACKET+30~* |
>> RXILIST( | PACKET+20, PACKET+23 |
>> RXILIST("" | PACKET+20 |
>> RXILIST(0 | PACKET+14, DIALOUT+2 |
U | PACKET+17, PACKET+30, PACKET+31, POINTM+18, POINTM+19, DIALOUT+4, DIALOUT+7, DIALOUT+9 |
X | PACKET+6~*, PACKET+22~*, PACKET+23*, PACKET+24, POINTM+14~*, POINTM+15, POINTM+16, POINTM+17, POINTM+18, POINTM+20 , DIALOUT+4~*, DIALOUT+6, DIALOUT+7*, DIALOUT+9*, DIALOUT+10*, DIALOUT+11*, DIALOUT+12 |
Y | PACKET+22~*, PACKET+24*, PACKET+25*, PACKET+26 |
Name | Field # of Occurrence |
---|---|
$T( | PACKET+6, LOCK+1, LOCK+2, LOCK+6, POINTM+15 |