ABSPOSIZ ; IHS/FCS/DRS - Filing with .51,.59 ; [ 11/04/2002 2:01 PM ]
Source file <ABSPOSIZ.m>
Package | Total | Call Graph |
---|---|---|
Pharmacy Point of Sale | 8 | ZWRITE^ABSPOS CLNDUR^ABSPOSIH CLNDIAG^ABSPOSII ($$ACTIVEWT,$$IEN59,$$RXPAID,$$SETUP59)^ABSPOSIY LOG^ABSPOSL2 PRESSANY^ABSPOSU5 $$TIMEDIFI^ABSPOSUD $$IMPOSS^ABSPOSUE |
VA Fileman | 5 | ^%DT NOW^%DTC $$FIND1^DIC (FILE,UPDATE)^DIE $$GET1^DIQ |
Kernel | 2 | ^%ZTLOAD ($$FMDIFF,$$NOW)^XLFDT |
Name | Comments | DBIA/ICR reference |
---|---|---|
FILE(IEN,ECHO) | ;EP - from ABSPOSI, ABSPOSIV
; <PF1> E was hit - so we make these claims official ; ^ABSP(9002313.51,IEN,...) -> 9002313.59 or wherever |
|
DELEMPTY | ; the multiple probably has some empty entries - delete them
; IEN is inherited from caller |
|
ISVISIT() | ; return pointer to visit if true, else return ""
; (this is for non-prescription items) |
|
FZ | ||
ACTIVE59(N) | ||
PREVISLY(IEN59) | ||
ISPOST() | ; return pointer to ^PSRX if true, else return ""
|
|
TASK | ;EP - from ABSPOS2D,ABSPOS6D,ABSPOSQ1,ABSPOSQ4,ABSPOSU
|
|
UNLOCK59 | ||
QUICK51(IEN,ENTRY) | ||
LOCK59() | ||
NEW59(N) | ; send N = desired IEN in file 9002313.59
|
|
ISRX() | ; return pointer to ^PSRX if true, else return ""
|
|
LOCK() | ||
RXA | ||
PR5 | ||
UNLOCK | ||
L59N | ||
FILE1(IEN,ENTRY,ECHO) | ||
L59A | ||
EXIST59(N) | ||
CLEAR59(N) | ||
INSUR(IEN,ENTRY,ECHO) | ||
REMAP | ; do any needed adjusing of INPUT(*) to handle postage, supplies, etc.
|
|
NOW() | ||
FILERX | ; EVERYTHING is filed here: postage, supplies, as well as RX's
|
|
TASKAT(ZTDTH) | ||
D5 |
Name | Field # of Occurrence |
---|---|
^%DT | TASK+21 |
NOW^%DTC | NOW |
^%ZTLOAD | TASKAT+9 |
ZWRITE^ABSPOS | D5+3, PR5+3 |
CLNDUR^ABSPOSIH | FILE+14 |
CLNDIAG^ABSPOSII | FILE+15 |
$$ACTIVEWT^ABSPOSIY | RXA |
$$IEN59^ABSPOSIY | FILERX+6 |
$$RXPAID^ABSPOSIY | RXA+23 |
$$SETUP59^ABSPOSIY | L59N+2 |
LOG^ABSPOSL2 | D5+1, NEW59+7, CLEAR59+11, PR5+1 |
PRESSANY^ABSPOSU5 | RXA+35 |
$$TIMEDIFI^ABSPOSUD | ACTIVE59+6 |
$$IMPOSS^ABSPOSUE | FILE+12, D5+4, RXA+2, L59A, L59N, PR5+4, ACTIVE59+1 |
$$FIND1^DIC | EXIST59+2 |
FILE^DIE | D5, CLEAR59+10, PR5 |
UPDATE^DIE | NEW59+6 |
$$GET1^DIQ | PREVISLY+2 |
$$FMDIFF^XLFDT | TASK+14 |
$$NOW^XLFDT | TASK+14, TASK+16 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^ABSPT - [#9002313.59] | FIND1^DIC, GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ABSP(9002313.51 - [#9002313.51] | FILE+7, FILE+10, DELEMPTY+3, DELEMPTY+4, INSUR+3, INSUR+4, INSUR+7*, INSUR+8*, INSUR+10!, FILE1+1 , FILE1+2, FILE1+3, QUICK51+2 |
^ABSPECP("CHECKTIM" | TASK+13, TASK+16* |
^ABSPT - [#9002313.59] | LOCK59, UNLOCK59, ACTIVE59+2 |
^DD( | CLEAR59+5 |
^TMP("ABSPOSIZ" | LOCK, UNLOCK |
Name | Line Occurrences |
---|---|
$$ACTIVE59 | RXA |
$$EXIST59 | L59A+1 |
$$LOCK | FILE+12, RXA+2 |
$$LOCK59 | L59A, ACTIVE59+1 |
$$NEW59 | L59N |
$$NOW | ACTIVE59+6 |
CLEAR59 | L59A+2 |
D5 | D5+4 |
DELEMPTY | FILE+6 |
FILE1 | FILE+16 |
FILERX | FILE1+9 |
FZ | FILE+7 |
INSUR | FILE+13 |
L59A | L59A |
L59N | L59N |
PR5 | PR5+4 |
PREVISLY | CLEAR59+12 |
QUICK51 | FILE+11 |
REMAP | FILE1+8 |
RXA | RXA |
TASK | FILE+19 |
TASKAT | TASK+22 |
UNLOCK | FILE+17, RXA+1 |
UNLOCK59 | L59N+3, ACTIVE59+3 |
Name | Field # of Occurrence |
---|---|
^(1 | DELEMPTY+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | NOW~ |
%DT | TASK+20~, TASK+21* |
%H | NOW~ |
%I | NOW~ |
ABSPOSQ1 | FILE+5~*, FILE+19, L59N+2* |
ABSPQQQT | TASK+9~, TASK+10*, TASK+14*, TASK+15 |
ABSPUSR | FILE1+3~*, L59N+2 |
CHECK | TASK+12~, TASK+13*, TASK+14 |
DEBUG | FILERX+5~* |
ECHO | FILE~, FILE+3*, FILE+8, FILE+9, FILE+11, FILE+13, FILE+16, FZ, INSUR~, FILE1~ , RXA+24 |
ENTRY | FILE+4~*, FILE+10*, FILE+11, FILE+13, FILE+14, FILE+15, FILE+16, DELEMPTY+2~*, DELEMPTY+3*, DELEMPTY+4 , DELEMPTY+6, INSUR~, INSUR+3, INSUR+4, INSUR+7, INSUR+8, INSUR+10, FILE1~, FILE1+1, RXA , RXA+23, QUICK51~, QUICK51+2 |
FDA | DELEMPTY+2~, DELEMPTY+7, NEW59+1~, CLEAR59+2~, PREVISLY+5~ |
FDA( | DELEMPTY+6*, NEW59+5*, CLEAR59+9*, PREVISLY+5* |
FIELD | CLEAR59+2~, CLEAR59+4*, CLEAR59+5*, CLEAR59+7, CLEAR59+9 |
FLAGS | NEW59+1~, NEW59+2*, NEW59+6, CLEAR59+2~, CLEAR59+3*, CLEAR59+10 |
FN | DELEMPTY+2~*, DELEMPTY+6, NEW59+1~, NEW59+4*, NEW59+5, CLEAR59+2~, CLEAR59+3*, CLEAR59+5, CLEAR59+9, PREVISLY+5~ |
IEN | FILE~, FILE+7, FILE+10, FILE+11, FILE+13, FILE+14, FILE+15, FILE+16, DELEMPTY+3, DELEMPTY+4 , DELEMPTY+6, INSUR~, INSUR+3, INSUR+4, INSUR+7, INSUR+8, INSUR+10, FILE1~, FILE1+1, FILE1+2 , FILE1+3, RXA, RXA+23, NEW59+1~, QUICK51~, QUICK51+2 |
IEN(1 | NEW59+5*, NEW59+9 |
IEN59 | FILERX+6~*, RXA, RXA+2, L59A, L59A+1, L59A+2, L59N, L59N+2, PREVISLY~, PREVISLY+2 , PREVISLY+5, ACTIVE59+1 |
INPUT | FILE1+1~* |
INPUT(0 | FILE1+4, ISRX+2, ISPOST+2 |
INPUT(1 | ISRX+1, ISPOST+1, ISVISIT+2, ISVISIT+3 |
MSG | DELEMPTY+2~, D5+1, D5+2, NEW59+1~, NEW59+7, NEW59+8, CLEAR59+2~, CLEAR59+11, PREVISLY+5~, PR5+1 , PR5+2 |
N | INSUR+3~*, INSUR+4, EXIST59~, EXIST59+2, NEW59~, NEW59+5, CLEAR59~, CLEAR59+3, CLEAR59+12, ACTIVE59~ , ACTIVE59+2 |
ORDER | INSUR+6~*, INSUR+7, INSUR+8 |
ORIGIN | FILE1+2~*, L59N+2 |
U | FILE+7, INSUR+5, INSUR+6, INSUR+7, INSUR+8, FILE1+2, FILE1+3, FILE1+4, ISRX+1, ISRX+2 , ISPOST+1, ISPOST+2, ISVISIT+2, ISVISIT+3, ACTIVE59+5, ACTIVE59+6, QUICK51+3 |
X | TASK+20~, TASK+21*, DELEMPTY+4~*, DELEMPTY+5, INSUR+4~*, INSUR+5, INSUR+6, INSUR+7, INSUR+8, FILE1+4~* , ISRX+1~*, ISRX+3, ISPOST+1~*, ISPOST+2, ISVISIT+2~*, RXA+3~, RXA+23*, RXA+26, RXA+28, RXA+29 , RXA+32, EXIST59+1~, EXIST59+2*, EXIST59+3, NEW59+1~, NEW59+3~*, NEW59+5, CLEAR59+2~, CLEAR59+3*, CLEAR59+9 , PREVISLY+2~*, PREVISLY+3, PREVISLY+4*, PREVISLY+5, NOW~, QUICK51+1~, QUICK51+2*, QUICK51+3 |
Y | TASK+20~, TASK+22, DELEMPTY+4~*, DELEMPTY+5 |
Z | ACTIVE59+2~*, ACTIVE59+4, ACTIVE59+5, ACTIVE59+6 |
ZTDTH | TASKAT~ |
ZTIO | TASKAT+7~, TASKAT+8* |
ZTRTN | TASKAT+7~, TASKAT+8* |
Name | Field # of Occurrence |
---|---|
$T( | FILE+12, D5+4, RXA+2, L59A, L59N, PR5+4, ACTIVE59+1 |