ABSPECP1 ; IHS/FCS/DRS - printing for PCS ; [ 10/09/2002 8:01 AM ]
Source file <ABSPECP1.m>
Package | Total | Call Graph |
---|---|---|
Pharmacy Point of Sale | 3 | $$DFF2EXT^ABSPECFM ($$DAW,$$REIMB,$$TCODE)^ABSPECP2 IMPOSS^ABSPOSUE |
VA Fileman | 1 | EN^DIQ1 |
Package | Total | Caller Graph |
---|---|---|
Pharmacy Point of Sale | 2 | ABSPECP0 ABSPOS6E |
Name | Comments | DBIA/ICR reference |
---|---|---|
SETCDUR | ;------------------------------------------------------------
|
|
FORMAT | ; ^UTILITY("DIQ1",$J,file,DA,field,*)->@TMP@(...)
|
|
INCLUDE(EFORMAT,FILE,FIELD) | ||
FILEMAN(DEST,IEN,FIELDS,RX,RXFIELDS) | ||
SETCDIAG | ;
|
|
FM1 | ||
ISVARFLD(EFORMAT,FILE,FIELD) | ; is it a variable length field?
|
|
FIELDID(FIELD) | ||
2 | ; with RX determined
|
|
TEST | ||
SETRDUR | ;----------------------------------------------------------------
|
|
FETCH | ;
|
|
FMTFIELD | ; given FILE,DA,FIELD,@SRC@(FILE,DA,FIELD,"E" and "I"), set @TMP
; given INSURER and EFORMAT, too ; Fetch the INT and EXT values |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ABSP(9002313.99 - [#9002313.99] | FORMAT+16, INCLUDE+19 |
^ABSPC - [#9002313.02] | SETCDUR+10, SETCDIAG+10 |
^ABSPEI - [#9002313.4] | FORMAT+14 |
^ABSPF(9002313.91 - [#9002313.91] | INCLUDE+16, FIELDID+9, FIELDID+12, FIELDID+13 |
^ABSPF(9002313.92 - [#9002313.92] | INCLUDE+25, INCLUDE+26 |
^ABSPF(9002313.93 - [#9002313.93] | 2+5, 2+7 |
^ABSPR - [#9002313.03] | 2+2, 2+4, 2+11, 2+12, 2+16, 2+17, SETRDUR+10 |
^ABSPR("B" | FILEMAN+14 |
^DD( | FMTFIELD+52 |
^DD("DD" | FMTFIELD+55 |
^UTILITY("DIQ1" | FILEMAN+12! |
Name | Line Occurrences |
---|---|
$$FIELDID | INCLUDE+19, INCLUDE+28 |
$$INCLUDE | FORMAT+26, ISVARFLD+7, FMTFIELD+66 |
$$ISVARFLD | FMTFIELD+22 |
2 | FETCH+6 |
FETCH | FM1+6 |
FILEMAN | TEST |
FM1 | FILEMAN+13, FILEMAN+16 |
FMTFIELD | FORMAT+30 |
FORMAT | FILEMAN+17 |
SETCDIAG | 2+32 |
SETCDUR | 2+26 |
SETRDUR | 2+27 |
Name | Field # of Occurrence |
---|---|
^(0 | 2+7 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CKFLD | FMTFIELD+14~, FMTFIELD+41*, FMTFIELD+42 |
DA | FORMAT+7~, FORMAT+12*, FORMAT+13, FORMAT+18, FORMAT+20, FORMAT+24*, FORMAT+25, FORMAT+29, FMTFIELD+8, FMTFIELD+9 , FMTFIELD+70, FMTFIELD+75, FMTFIELD+77, FMTFIELD+82, FMTFIELD+84, FM1~, 2+19* |
DA( | 2+21*, SETCDUR+11*, SETRDUR+11*, SETCDIAG+11* |
DEST | FILEMAN~, FMTFIELD+68, FMTFIELD+70, FMTFIELD+75, FMTFIELD+77, FMTFIELD+79, FMTFIELD+82, FMTFIELD+84, FM1+5, 2+8 , 2+14, 2+18 |
DIAGCNT | SETCDIAG+4~, SETCDIAG+6*, SETCDIAG+10*, SETCDIAG+11 |
DIC | FM1~, 2+19* |
DIQ | FM1~ |
DIQ(0 | 2+19*, SETCDUR+12*, SETRDUR+12*, SETCDIAG+12* |
DR | FM1~, 2+19* |
DR( | 2+22*, SETCDUR+7*, SETCDUR+8*, SETRDUR+7*, SETRDUR+8*, SETCDIAG+7*, SETCDIAG+8* |
DURCNT | SETCDUR+4~, SETCDUR+6*, SETCDUR+10*, SETCDUR+11, SETRDUR+4~, SETRDUR+6*, SETRDUR+10*, SETRDUR+11 |
EFORMAT | FORMAT+7~, FORMAT+14*, FORMAT+15*, FORMAT+16, FORMAT+26, INCLUDE~, INCLUDE+25, INCLUDE+26, ISVARFLD~, ISVARFLD+7 , FMTFIELD+22, FMTFIELD+66 |
END | INCLUDE+8~, INCLUDE+9*, INCLUDE+10*, INCLUDE+23 |
EXT | FMTFIELD+9~*, FMTFIELD+25*, FMTFIELD+28*, FMTFIELD+36*, FMTFIELD+38*, FMTFIELD+42*, FMTFIELD+45*, FMTFIELD+48*, FMTFIELD+50*, FMTFIELD+54 , FMTFIELD+55*, FMTFIELD+59*, FMTFIELD+61*, FMTFIELD+62*, FMTFIELD+63*, FMTFIELD+66, FMTFIELD+68, FMTFIELD+70, FMTFIELD+75, FMTFIELD+77 , FMTFIELD+79, FMTFIELD+82, FMTFIELD+84 |
FIELD | FORMAT+7~, FORMAT+25~*, FORMAT+26, FORMAT+29, INCLUDE~, INCLUDE+15, INCLUDE+16, INCLUDE+19, INCLUDE+28, FIELDID~ , FIELDID+9, ISVARFLD~, ISVARFLD+7, FMTFIELD+8, FMTFIELD+9, FMTFIELD+21, FMTFIELD+22, FMTFIELD+35, FMTFIELD+37, FMTFIELD+41 , FMTFIELD+45, FMTFIELD+48, FMTFIELD+50, FMTFIELD+52, FMTFIELD+66 |
FIELDIEN | INCLUDE+16~*, INCLUDE+17, INCLUDE+26, FIELDID+9~*, FIELDID+10, FIELDID+12, FIELDID+13 |
FIELDS | FILEMAN~, FM1+1*, 2+19 |
FILE | FILEMAN+13~*, FILEMAN+14*, FORMAT+7~, FORMAT+23*, FORMAT+24, FORMAT+25, FORMAT+26, FORMAT+29, INCLUDE~, INCLUDE+12 , INCLUDE+13, INCLUDE+14, ISVARFLD~, ISVARFLD+7, FMTFIELD+8, FMTFIELD+9, FMTFIELD+22, FMTFIELD+45, FMTFIELD+48, FMTFIELD+52 , FMTFIELD+66, FMTFIELD+67, FMTFIELD+69, FMTFIELD+71, FMTFIELD+76, FMTFIELD+78, FMTFIELD+80, FMTFIELD+83, FETCH+3, FETCH+4 , FETCH+5, 2+1, 2+19, 2+20, 2+26, 2+27, 2+32 |
FIND | INCLUDE+23~*, INCLUDE+25, INCLUDE+27*, INCLUDE+28*, INCLUDE+29 |
FLDLST | FMTFIELD+14~, FMTFIELD+20*, FMTFIELD+42 |
FLDNAME | FMTFIELD+52~*, FMTFIELD+54, FMTFIELD+58, FMTFIELD+60, FMTFIELD+62, FMTFIELD+63, FMTFIELD+64*, FMTFIELD+68, FMTFIELD+70, FMTFIELD+75 , FMTFIELD+77, FMTFIELD+79, FMTFIELD+81*, FMTFIELD+82, FMTFIELD+84 |
GLO | FETCH+3~*, FETCH+5 |
I | INCLUDE+23~*, INCLUDE+25, INCLUDE+26, INCLUDE+27 |
ID | FIELDID+8~, FIELDID+12*, FIELDID+13*, FIELDID+17 |
IEN | FILEMAN~, FILEMAN+14*, FILEMAN+15, FETCH+5, 2+2, 2+4, 2+11, 2+12, 2+16, 2+17 , 2+19, SETCDUR+10, SETRDUR+10, SETCDIAG+10 |
INSURER | FORMAT+7~, FORMAT+13*, FORMAT+14, FORMAT+16 |
INT | FMTFIELD+8~*, FMTFIELD+24* |
J | INCLUDE+24~*, INCLUDE+25*, INCLUDE+26 |
NCPDP51 | FORMAT+8~, FORMAT+9*, FORMAT+18*, FORMAT+20*, INCLUDE+10, FIELDID+12, FIELDID+13, ISVARFLD+8 |
RX | FILEMAN~, FM1+2, FETCH+1~*, FETCH+5*, 2+2, 2+4, 2+8, 2+11, 2+12, 2+14 , 2+16, 2+17, 2+18, 2+21, SETCDUR+10, SETRDUR+10, SETCDIAG+10 |
RXFIELDS | FILEMAN~, FM1+3*, 2+22 |
RXSEQ | FORMAT+10~, FORMAT+11*, FORMAT+29*, FMTFIELD+75, FMTFIELD+77, FMTFIELD+84 |
SRC | FORMAT+6~*, FORMAT+12, FORMAT+13, FORMAT+18, FORMAT+20, FORMAT+23, FORMAT+24, FORMAT+25, FMTFIELD+8, FMTFIELD+9 |
START | INCLUDE+8~, INCLUDE+9*, INCLUDE+10*, INCLUDE+23 |
SUB | FETCH+4~*, FETCH+5 |
SUBFILE | FM1~, 2+20*, 2+21, 2+22 |
TMP | TEST! |
U | FORMAT+14, INCLUDE+26, INCLUDE+28, FIELDID+12, FIELDID+13, ISVARFLD+8, ISVARFLD+9, FMTFIELD+52, 2+4, 2+7 |
VARFIELD | FMTFIELD+11~, FMTFIELD+21*, FMTFIELD+22*, FMTFIELD+23, FMTFIELD+24, FMTFIELD+25 |
X | ISVARFLD+7~*, ISVARFLD+8, ISVARFLD+9, 2+2~*, 2+4, 2+11~*, 2+12, 2+14, 2+16~*, 2+17 , 2+18 |
Y | FMTFIELD+55~*, 2+4~*, 2+5, 2+8, 2+12~*, 2+13, 2+17~*, 2+18 |
Z | 2+5~*, 2+7*, 2+8, 2+13~*, 2+14 |
Name | Field # of Occurrence |
---|---|
$T( | FMTFIELD+85, FM1+5 |