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 |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ABSPECP3

Package: Pharmacy Point of Sale

Routine: ABSPECP3


Information

ABSPECP3 ; IHS/FCS/DRS - Receipts ; [ 09/19/2002 10:16 AM ]

Source Information

Source file <ABSPECP3.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Pharmacy Point of Sale 3 ($$DUR,$$OTHPHARM,$$OTHPRESC)^ABSPECP2  $$FORMTNDC^ABSPOS9  IMPOSS^ABSPOSUE  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Pharmacy Point of Sale 1 ABSPECP0  

Entry Points

Name Comments DBIA/ICR reference
R1ANMC1 ;;Response Status (Prescription);S TITLE="Prescription Status:"
C1PCS1 ;;Medication Name;S TITLE=""
C0ANMC1 ;;Patient Name;S TITLE=""
R0ALL ;;
FULL0 ;EP - from ABSPECP0
PRINTSEG(SEG) ;
R0PCS1 ;;
C1ANMC1 ;;Medication Name;S TITLE=""
RECEIPT ;EP - from ABSPECP0, RECEIPT^ABSPOS6E
C1ALL ;;Date Filled
DUROUT1(X)
C0PCS1 ;;Patient Name;S TITLE=""
R0ANMC1 ;;
PRINT(SRC,FORMAT) ;
GETVALUE ; given SEG,FIELD,RX
R1PCS1 ;;
ANMC ;
; Write any kind of page header here
R1ALL ;;
C0ALL ;;Claim ID
FULL(DIV,LEV,RX) ; print it all
; WHAT YOU'RE LOOKING FOR PROBABLY IS NOT HERE
; LOOK BELOW, AT "PRINTSEG" INSTEAD!!!!!!!!!!!
; recurse, filling in parameters
DUROUT(X)
TEST ;O 51:("TMP.OUT":"W") U 51 S SRC="TMP" D FULL() C 51 Q
OUTPUT ; TITLE,VALUE,!

External References

Name Field # of Occurrence
$$DUR^ABSPECP2 DUROUT1+2
$$OTHPHARM^ABSPECP2 DUROUT1+6
$$OTHPRESC^ABSPECP2 DUROUT1+13
$$FORMTNDC^ABSPOS9 FULL+37
IMPOSS^ABSPOSUE PRINTSEG+3, GETVALUE+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " - RECEIPT -",!
  • Line Location: FULL0+1
Function Call: WRITE
  • Prompt: " - - Prescription - -",!
  • Line Location: FULL+56
Function Call: WRITE
  • Prompt: TITLE
  • Line Location: OUTPUT+1
Function Call: WRITE
  • Prompt: $E(X,1,Y)
  • Line Location: OUTPUT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: OUTPUT+4
Function Call: WRITE
  • Prompt: $E(X,1,IOM)
  • Line Location: OUTPUT+4
Function Call: WRITE
  • Prompt: " - - - DUR response data, part ",I+1," - - -",!
  • Line Location: DUROUT+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DUROUT1+8

Label References

Name Line Occurrences
DUROUT FULL+43, PRINTSEG+18
DUROUT1 DUROUT+8
FULL RECEIPT+2, FULL+4, FULL+5, FULL+17, FULL+56
GETVALUE PRINTSEG+19
OUTPUT FULL+35, FULL+38, FULL+41, FULL+48, FULL+53, FULL+55, DUROUT1+3, DUROUT1+4, DUROUT1+6, DUROUT1+9
, DUROUT1+10, DUROUT1+11, DUROUT1+13, DUROUT1+14, PRINTSEG+12, PRINTSEG+16, PRINTSEG+17, PRINTSEG+26
PRINT FULL0+2, ANMC+2
PRINTSEG PRINT+1, PRINT+2, PRINT+5, PRINT+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIV FULL~, FULL+4, FULL+5, FULL+6, FULL+17, FULL+20, FULL+22, FULL+23, FULL+28, FULL+32
, FULL+33, FULL+37, FULL+40, FULL+45, FULL+46, FULL+50, FULL+51, FULL+54, FULL+56, PRINTSEG+1~*
, PRINTSEG+9, PRINTSEG+10, PRINTSEG+14
FIELD FULL+19~, FULL+20*, FULL+22, FULL+23, FULL+26, FULL+28, FULL+31, FULL+32, FULL+33, FULL+36
, FULL+37, FULL+39, FULL+40, FULL+42~, FULL+44, FULL+45, FULL+46, FULL+49, FULL+50, FULL+51
, FULL+54, PRINTSEG+4~*, PRINTSEG+5, PRINTSEG+6*, PRINTSEG+7, PRINTSEG+8, PRINTSEG+9, PRINTSEG+10, PRINTSEG+11, PRINTSEG+13
, PRINTSEG+14, PRINTSEG+15, PRINTSEG+16, PRINTSEG+18~, PRINTSEG+22, GETVALUE+2, GETVALUE+4
FORMAT PRINT~, PRINT+1, PRINT+2, PRINT+5, PRINT+6, PRINTSEG+25
I FULL+32~*, FULL+45~*, FULL+50~*, DUROUT+1~*, DUROUT+2, DUROUT+7, PRINTSEG+9~*
IOM FULL+18~*, OUTPUT+3, OUTPUT+4
L DUROUT+1~*, DUROUT+2
LEV FULL~, FULL+5, FULL+12, FULL+17, FULL+22, FULL+23, FULL+28, FULL+30, FULL+56
LINE PRINTSEG+2~*
OUTPUT FULL+27~, FULL+28*, FULL+31*, FULL+36*, FULL+39*, FULL+44*, FULL+49*, FULL+54*, FULL+55
RX FULL~, FULL+12, FULL+14*, FULL+15*, FULL+17, FULL+32, FULL+33, FULL+37, FULL+40, FULL+45
, FULL+46, FULL+50, FULL+51, FULL+54, PRINT+3~*, PRINT+4*, PRINTSEG+9, PRINTSEG+10, PRINTSEG+14, GETVALUE+4
SEG PRINTSEG~, PRINTSEG+1, PRINTSEG+3, GETVALUE+1, GETVALUE+2, GETVALUE+3, GETVALUE+4, GETVALUE+5
SRC RECEIPT+1~*, FULL+15, FULL+20, FULL+22, FULL+23, FULL+28, FULL+32, FULL+33, FULL+37, FULL+40
, FULL+45, FULL+46, FULL+50, FULL+51, FULL+54, PRINT~, PRINT+4, PRINTSEG+9, PRINTSEG+10, PRINTSEG+14
, GETVALUE+2, GETVALUE+4
STOP PRINTSEG+2~, PRINTSEG+5*
TITLE FULL+19~, FULL+26*, FULL+34*, FULL+47*, FULL+52*, OUTPUT+1, DUROUT1+2*, DUROUT1+4*, DUROUT1+5*, DUROUT1+7*
, DUROUT1+10*, DUROUT1+11*, DUROUT1+12*, DUROUT1+14*, PRINTSEG+11*, PRINTSEG+15*, PRINTSEG+16*, PRINTSEG+20~*, PRINTSEG+22*, PRINTSEG+23
VALUE FULL+19~, FULL+28*, FULL+33*, FULL+37*, FULL+41*, FULL+46*, FULL+51*, FULL+54*, OUTPUT+2, DUROUT1+2*
, DUROUT1+4*, DUROUT1+6*, DUROUT1+7*, DUROUT1+8*, DUROUT1+10*, DUROUT1+11*, DUROUT1+13*, DUROUT1+14*, PRINTSEG+10*, PRINTSEG+15*
, PRINTSEG+17*, PRINTSEG+19~, PRINTSEG+25, GETVALUE+2*, GETVALUE+4*
X FULL+32~*, FULL+33, FULL+40~*, FULL+43, FULL+45~*, FULL+46, FULL+47, FULL+50~*, FULL+51, FULL+52
, OUTPUT+2~*, OUTPUT+3*, OUTPUT+4*, DUROUT~, DUROUT+2, DUROUT1~, DUROUT1+2, DUROUT1+4, DUROUT1+6, DUROUT1+7
, DUROUT1+10, DUROUT1+11, DUROUT1+13, DUROUT1+14, PRINTSEG+3~*, PRINTSEG+4, PRINTSEG+9~*, PRINTSEG+10, PRINTSEG+14*, PRINTSEG+16
, PRINTSEG+18, PRINTSEG+20
Y OUTPUT+3~*, DUROUT+1~, DUROUT+2~*, DUROUT+3, DUROUT+4, DUROUT+5, DUROUT+6, DUROUT+8, DUROUT1+1~, DUROUT1+8*

Marked Items

Name Field # of Occurrence
$T( PRINTSEG+3, GETVALUE+5
$T(@SEG+LINE PRINTSEG+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All