Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ABSPECP1

Package: Pharmacy Point of Sale

Routine: ABSPECP1


Information

ABSPECP1 ; IHS/FCS/DRS - printing for PCS ; [ 10/09/2002 8:01 AM ]

Source Information

Source file <ABSPECP1.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Pharmacy Point of Sale 3 $$DFF2EXT^ABSPECFM  ($$DAW,$$REIMB,$$TCODE)^ABSPECP2  IMPOSS^ABSPOSUE  
VA Fileman 1 EN^DIQ1  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Pharmacy Point of Sale 2 ABSPECP0  ABSPOS6E  

Entry Points

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

External References

Name Field # of Occurrence
$$DFF2EXT^ABSPECFM FMTFIELD+38, FMTFIELD+42
$$DAW^ABSPECP2 FMTFIELD+62
$$REIMB^ABSPECP2 FMTFIELD+63
$$TCODE^ABSPECP2 FMTFIELD+50
IMPOSS^ABSPOSUE FMTFIELD+85, FM1+5
EN^DIQ1 2+23, SETCDUR+13, SETRDUR+13, SETCDIAG+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "Internal error - no FORMAT for INSURER=",INSURER,!
  • Line Location: FORMAT+16
Function Call: WRITE
  • Prompt: ^(X,0),!
  • Line Location: 2+3

Global Variables Directly Accessed

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!

Label References

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

Naked Globals

Name Field # of Occurrence
^(0 2+7

Local Variables

Legend:

>> 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

Marked Items

Name Field # of Occurrence
$T( FMTFIELD+85, FM1+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All