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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ABSPECA9

Package: Pharmacy Point of Sale

Routine: ABSPECA9


Information

ABSPECA9 ; IHS/FCS/DRS - pretty print pharm claim packet ;

Source Information

Source file <ABSPECA9.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
Pharmacy Point of Sale 1 IMPOSS^ABSPOSUE  

Entry Points

Name Comments DBIA/ICR reference
PRINT1 ; printing one section
PICKOFF()
PRINT2 ; printing one FIELD
NAME(X)
TESTING ;O 51:("TEMP.OUT":"W") U 51
PRINT(REC,FMT)
NEXT ; given SECTION and previous ORDER,
; advance ORDER and return the ncpdp FIELD number
PRINTN(IEN,JOB,DUMP)
QUOTE(X)
FINDFMT(BIN)

External References

Name Field # of Occurrence
IMPOSS^ABSPOSUE NAME+5, NEXT+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " | "
  • Line Location: PRINTN+8
Function Call: WRITE
  • Prompt: "'",X," "
  • Line Location: PRINTN+10
Function Call: WRITE
  • Prompt: $J($A(X),3)
  • Line Location: PRINTN+11
Function Call: WRITE
  • Prompt: "Cannot find format for Bin# ",BIN,!
  • Line Location: PRINTN+17
Function Call: WRITE
  • Prompt: "Production mode"
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: "Test mode"
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: "Mode ",X," unknown?"
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: "Format unknown",!
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: "Format: ",$P(X,U),!
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: "Mismatch; length of record = ",$L(REC)
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: "; +1 = ",$L(REC)+1," '= position ",POS,!
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: "X=",X,!
  • Line Location: NAME+4
Function Call: WRITE
  • Prompt: " - - - ",$$NAME(SECTION)," - - - at position ",POS," - - -",!
  • Line Location: PRINT1+1
Function Call: WRITE
  • Prompt: "Expected $C(29) separator was not found",!
  • Line Location: PRINT1+4
Function Call: WRITE
  • Prompt: NUMBER
  • Line Location: PRINT2+7
Function Call: WRITE
  • Prompt: "-",ID
  • Line Location: PRINT2+8
Function Call: WRITE
  • Prompt: " "
  • Line Location: PRINT2+9
Function Call: WRITE
  • Prompt: " ",NAME
  • Line Location: PRINT2+14
Function Call: WRITE
  • Prompt: " (contains control character(s)!)"
  • Line Location: PRINT2+19
Function Call: WRITE
  • Prompt: " not present"
  • Line Location: PRINT2+20
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT2+22

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABSPECX( PRINTN+3
^ABSPF(9002313.91 - [#9002313.91] PRINT2+1
^ABSPF(9002313.92 - [#9002313.92] FINDFMT+7, FINDFMT+8, PRINT+14, NEXT+2, NEXT+4, NEXT+6

Label References

Name Line Occurrences
$$FINDFMT PRINTN+16, PRINT+12
$$NAME PRINT1+1
$$PICKOFF PRINT2+10
$$QUOTE PRINT2+17
NEXT PRINT1+6
PRINT PRINTN+18
PRINT1 PRINT+16, PRINT+17
PRINT2 PRINT1+6
PRINTN TESTING+1

Naked Globals

Name Field # of Occurrence
^( PRINTN+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A FINDFMT+7~*, FINDFMT+8, FINDFMT+10
ANFORMAT PRINT2+5~*
B FINDFMT+8~*, FINDFMT+9
BIN PRINTN+15~*, PRINTN+16, PRINTN+17, FINDFMT~, FINDFMT+9
DUMP PRINTN~, PRINTN+4
END PICKOFF+6~, PICKOFF+7*, PICKOFF+9*, PICKOFF+10, PICKOFF+13, PICKOFF+14
FIELD PRINT1+5~*, PRINT1+6, NEXT+3*, NEXT+8*, PRINT2+1
FIXED PICKOFF+5~*, PICKOFF+7
FMT PRINTN+16~*, PRINTN+17, PRINTN+18, PRINT~, PRINT+12~*, PRINT+13, PRINT+14, NEXT+2, NEXT+4, NEXT+6
I PRINTN+3~*, PRINTN+5~*, PRINTN+6, PRINTN+9
ID PRINT2+3~*, PRINT2+8, PICKOFF+3, PICKOFF+4
IEN PRINTN~, PRINTN+3, NEXT+4~*, NEXT+5, NEXT+6
J PRINTN+5~, PRINTN+7*, PRINTN+8, PRINTN+9
JOB PRINTN~, PRINTN+2*, PRINTN+3
LENGTH PRINT2+6~*, PICKOFF+5, PICKOFF+9
NAME PRINT2+4~*, PRINT2+14
NUMBER PRINT2+2~*, PRINT2+7, PRINT2+21
ORDER PRINT1+5~*, NEXT+2*, NEXT+3, NEXT+4
POS PRINT+3~*, PRINT+10*, PRINT+12, PRINT+18, PRINT+19, PRINT1+1, PRINT1+3*, PICKOFF+3, PICKOFF+4*, PICKOFF+7
, PICKOFF+9, PICKOFF+10, PICKOFF+13, PICKOFF+14*
REC PRINTN+1~*, PRINTN+3*, PRINTN+5, PRINTN+9, PRINTN+15, PRINTN+18, PRINT~, PRINT+4, PRINT+5, PRINT+12
, PRINT+18, PRINT+19, PRINT1+3, PICKOFF+3, PICKOFF+4, PICKOFF+9, PICKOFF+10
RET PICKOFF+10~*, PICKOFF+13*, PICKOFF+15
SECTION PRINT+16~*, PRINT+17*, PRINT1+1, PRINT1+2, NEXT+2, NEXT+4, NEXT+6
STOP FINDFMT+6~, FINDFMT+7, FINDFMT+9*
TRANCODE PRINT+11~, PRINT+17, NAME+2, PRINT2+21*
TRANNUM PRINT+17~*, NAME+2
U FINDFMT+8, PRINT+15, NEXT+7, PRINT2+2, PRINT2+3, PRINT2+4, PRINT2+5, PRINT2+6, PRINT2+12, PRINT2+13
, PICKOFF+13
VALUE PRINT2+10~*, PRINT2+11, PRINT2+12, PRINT2+13*, PRINT2+15, PRINT2+17*, PRINT2+18, PRINT2+19, PRINT2+21
X PRINTN+9~*, PRINTN+10, PRINTN+11, PRINT+5~*, PRINT+6, PRINT+7, PRINT+8, PRINT+14~*, PRINT+15, NAME~
, NAME+1, NAME+2, NAME+3, NAME+4, NAME+5, NEXT+6~*, NEXT+7, QUOTE~, PICKOFF+9~*
Y NEXT+7~*, NEXT+8
Z PRINT2+1~*, PRINT2+2, PRINT2+3, PRINT2+4, PRINT2+5, PRINT2+6

Marked Items

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