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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ABSPIN1

Package: Pharmacy Point of Sale

Routine: ABSPIN1


Information

ABSPIN1 ; GENERATED FROM 'ABSP SETUP PHARMACY' INPUT TEMPLATE(#2388), FILE 9002313.56;08/30/18

Source Information

Source file <ABSPIN1.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
VA Fileman 11 $$EZBLD^DIALOG  E^DIE0  (,F,FIREREC,M,N,OUT,UNIQFERR,Z)^DIE17  Z^DIE2  ^DIE3  (AST,NOSCR)^DIED  QQ^DIEQ  AUDIT^DIET  
$$GETTMP^DIKC1  ^DIR  RW^DIR2  
Pharmacy Point of Sale 2 ^ABSPIN13  $$ILCAR^ABSPOSS1  

Entry Points

Name Comments DBIA/ICR reference
42
C16S
X29
X28
X
X25
X24
X27
X26
X21
X20
X23
X22
24
25
26
27
20
21
22
23
C8
28
29
RD
RE
4
8
R33
R4
11
X30
X31
X36
D
X34
X35
C28
X39
P
C28F1
T
2
50
C38
X47
X46
X45
X44
X43
X42
X41
X40
M33
X49
X48
M4
C38F1
PR
BEGIN
3
7
C40
O
W
RP
39
38
33
32
31
30
37
36
35
34
Y
C11F1
C22F1
SET
X8
X9
X16
6
X2
X3
X1
X6
X7
X5
B
C28S
N
R
V
C40F1
Z
C11S
C16F1
10
13
12
15
14
17
16
19
18
NKEY
X32
C22
C8S
DE
C40S
C38S
C11
C16
X37
48
49
46
47
44
45
TR
43
40
41
1
5
9
X38
KEYCHK()
A
I
C8F1
X18
X19
X10
X11
X12
X13
X14
X15
C22S
X17
QS
SAVEVALS

External References

Name Field # of Occurrence
^ABSPIN13 50
$$ILCAR^ABSPOSS1 X41
$$EZBLD^DIALOG 4+1, 33+1
E^DIE0 I+1
^DIE17 RD
F^DIE17 1, 2, 3, 5, 6, 7, 9, 10, 11, 12
, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22
, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32
, 33, 34, 35, 36, 37, 39, 40, 41, 42, 43
, 44, 45, 46, 47, 48, 49, 50
FIREREC^DIE17 1, 2, 3, 5, 6, 7, 9, 10, 12, 13
, 14, 15, 17, 18, 19, 20, 21, 23, 24, 25
, 26, 27, 29, 30, 31, 32, 34, 35, 36, 37
, 39, 41, 42, 43, 44, 45, 46, 47, 48
M^DIE17 T
N^DIE17 RP
OUT^DIE17 1, 2, 3, 5, 6, 7, 9, 10, 12, 13
, 14, 15, 17, 18, 19, 20, 21, 23, 24, 25
, 26, 27, 29, 30, 31, 32, 34, 35, 36, 37
, 39, 41, 42, 43, 44, 45, 46, 47, 48
UNIQFERR^DIE17 Z
Z^DIE17 X
Z^DIE2 RD+1
^DIE3 T
AST^DIED P
NOSCR^DIED P
QQ^DIEQ QS
AUDIT^DIET C8+1, C8S+1, C11+1, C11S+1, C16+1, C16S+1, C22+1, C22S+1, C28+1, C28S+1
, C38+1, C38S+1, C40+1, C40S+1
$$GETTMP^DIKC1 BEGIN+1
^DIR SET+2
RW^DIR2 O+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: W
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !?DL+DL-2,DLB_": "
  • Line Location: W+0
Function Call: WRITE
  • Prompt: W
  • Line Location: O+0
Function Call: WRITE
  • Prompt: Y
  • Line Location: O+0
Function Call: WRITE
  • Prompt: !?9
  • Condition for execution: $X>45
  • Line Location: O+0
Function Call: WRITE
  • Prompt: " (No Editing)"
  • Line Location: O+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: TR+0
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: TR+0
Function Call: WRITE
  • Prompt: " "_X
  • Line Location: RD+2
Function Call: WRITE
  • Prompt: !!,"OUTPATIENT SITE: One or more of the RPMS pharmacy package's",!
  • Line Location: X1+0
Function Call: WRITE
  • Prompt: ?10,"Outpatient Sites (File 59) must be associated with",!
  • Line Location: X2+0
Function Call: WRITE
  • Prompt: ?10,"this Point of Sale pharmacy entry",!
  • Line Location: X3+0
Function Call: WRITE
  • Prompt: !!,"ENVOY TERMINAL ID: This is a number assigned to",!
  • Line Location: X5+0
Function Call: WRITE
  • Prompt: ?10,"your pharmacy by Envoy. The number is sent as part of ",!
  • Line Location: X6+0
Function Call: WRITE
  • Prompt: ?10,"each claim you send to Envoy.",!
  • Line Location: X7+0
Function Call: WRITE
  • Prompt: !!,"NCPDP #: This is a number assigned to your pharmacy",!
  • Line Location: X9+0
Function Call: WRITE
  • Prompt: ?10,"by the NCPDP. It used to be called the NABP #",!
  • Line Location: X10+0
Function Call: WRITE
  • Prompt: !!,"DEFAULT DEA #: Many insurances require the prescriber's",!
  • Line Location: X12+0
Function Call: WRITE
  • Prompt: ?10,"DEA number as part of the claim. If your pharmacy has",!
  • Line Location: X13+0
Function Call: WRITE
  • Prompt: ?10,"a DEA # that may be used in case a prescriber doesn't have",!
  • Line Location: X14+0
Function Call: WRITE
  • Prompt: ?10,"his DEA # on file with you, enter that default DEA # here.",!
  • Line Location: X15+0
Function Call: WRITE
  • Prompt: !!,"MEDICAID #: If you are sending claims to your state's",!
  • Line Location: X17+0
Function Call: WRITE
  • Prompt: ?10,"Medicaid program, and Medicaid has assigned a special",!
  • Line Location: X18+0
Function Call: WRITE
  • Prompt: ?10,"Medicaid pharmacy number to your pharmacy, enter that",!
  • Line Location: X19+0
Function Call: WRITE
  • Prompt: ?10,"number here. It is usually required as part of",!
  • Line Location: X20+0
Function Call: WRITE
  • Prompt: ?10,"the Medicaid claim.",!
  • Line Location: X21+0
Function Call: WRITE
  • Prompt: !!,"DEFAULT MEDICAID PROVIDER #: Usually, Medicaid assigns ID numbers",!
  • Line Location: X23+0
Function Call: WRITE
  • Prompt: ?10,"to prescribers and those numbers must be sent as part of a",!
  • Line Location: X24+0
Function Call: WRITE
  • Prompt: ?10,"Medicaid claim. If you have a default number which may be ",!
  • Line Location: X25+0
Function Call: WRITE
  • Prompt: ?10,"used when you don't have a provider's Medicaid number on file",!
  • Line Location: X26+0
Function Call: WRITE
  • Prompt: ?10,"enter that number here.",!
  • Line Location: X27+0
Function Call: WRITE
  • Prompt: !!,"INSURER-ASSIGNED #: Usually, private insurance claims require the",!
  • Line Location: X29+0
Function Call: WRITE
  • Prompt: ?10,"NCPDP #. But if any insurers have special numbers assigned to",!
  • Line Location: X30+0
Function Call: WRITE
  • Prompt: ?10,"your pharmacy to be used on their claims, then enter those",!
  • Line Location: X31+0
Function Call: WRITE
  • Prompt: ?10,"insurers and the numbers they assigned to you.",!
  • Line Location: X32+0
Function Call: WRITE
  • Prompt: !!,"Auto-Print Pharmacy Expense Report for:",!
  • Line Location: X34+0
Function Call: WRITE
  • Prompt: ?10,"""1"" All Patients.",!
  • Line Location: X35+0
Function Call: WRITE
  • Prompt: ?10,"""0"" No Patients. (Do not print)",!
  • Line Location: X36+0
Function Call: WRITE
  • Prompt: ?10,"""NB"" Non-Beneficiary Patients only.",!
  • Line Location: X37+0
Function Call: WRITE
  • Prompt: !!,"What Device should the Pharmacy Expense Reports print to? ",!
  • Line Location: X39+0
Function Call: WRITE
  • Prompt: !!,"These fields are used for printing pharmacy claims for non-electronic",!
  • Line Location: X42+0
Function Call: WRITE
  • Prompt: "insurers. If you omit this data, the system will use the general",!
  • Line Location: X43+0
Function Call: WRITE
  • Prompt: "billing system setup information.",!
  • Line Location: X44+0
Function Call: WRITE
  • Prompt: !!,"The AR TYPE is required. When charges from this pharmacy",!
  • Line Location: X45+0
Function Call: WRITE
  • Prompt: "are posted to Accounts Receivable, this is the AR TYPE assigned",!
  • Line Location: X46+0
Function Call: WRITE
  • Prompt: "to those accounts. It might default if you have an RX type",!
  • Line Location: X47+0
Function Call: WRITE
  • Prompt: "but you should explicitly assign an A/R type here.",!
  • Line Location: X48+0
Routine Call
  • DIALOG
  • Line Location:
    • 4+1
    • 33+1
Routine Call
  • DIR
  • Line Location:
    • SET+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ABSP(9002313.56 - [#9002313.56] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABSP(9002313.56 - [#9002313.56] DE, 4+4, M4, R4+1, 33+4, M33, R33+1
^DD( T, R, R+1, C8S+1, C11S+1, C16S+1, C22S+1, C28S+1, C38S+1, C40S+1
^DD("DD" R+2
^DD("KEY" - [#.31] N
^DIE(2388 BEGIN+2
^DISV( RD+2, Z*

Label References

Name Line Occurrences
$$KEYCHK Z
33+1 R33+1
4+1 R4+1
@( B, V
A N, Z, Y, RP, 1, 2, 3, 5, 6, 7
, 9, 10, 12, 13, 14, 15, 17, 18, 19, 20
, 21, 23, 24, 25, 26, 27, 29, 30, 31, 32
, 34, 35, 36, 37, 39, 41, 42, 43, 44, 45
, 46, 47, 48
B QS
BEGIN ABSPIN1+1
C11F1 C11S
C11S C11
C16F1 C16S
C16S C16
C22F1 C22S
C22S C22
C28F1 C28S
C28S C28
C38F1 C38S
C38S C38
C40F1 C40S
C40S C40
C8F1 C8S
C8S C8
D RD, RD+1, P+1, QS
DE ABSPIN1+1, 1, 2, 3, R4, 5, 6, 7, 9, 10
, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20
, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30
, 31, 32, 33, R33, 34, 35, 36, 37, 39, 40
, 41, 42, 43, 44, 45, 46, 47, 48, 49
M33 33+3
M4 4+3
N Y
NKEY N
O Y, RP
P T
PR RE, I+1
QS RD, NKEY
R R, R+1
RD Y, I, I+1
RE 4+3, M4+1, 8+2, 11+2, 16+2, 22+2, 28+2, 33+3, M33+1, 38+3
, 40+3, 49+2
RP PR, R, R+1
SAVEVALS Z
SET T
TR RE
V T, P+1
W O, RE
X N, T+1, P, Y
X1 1
X10 10
X12 12
X13 13
X14 14
X15 15
X17 17
X18 18
X19 19
X2 2
X20 20
X21 21
X23 23
X24 24
X25 25
X26 26
X27 27
X29 29
X3 3
X30 30
X31 31
X32 32
X34 34
X35 35
X36 36
X37 37
X39 39
X41 41
X42 42
X43 43
X44 44
X45 45
X46 46
X47 47
X48 48
X5 5
X6 6
X7 7
X9 9
Z P+1

Naked Globals

Name Field # of Occurrence
^( RD+2, R, R+1
^("CAID" DE+2
^("F" SAVEVALS*
^("REP" DE+3
^(0 DE+1, R, R+1, 4+3, 4+4, M4, R4+1, 33+3, 33+4, M33
, R33+1
^(12.1 T

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DE+1*, DE+2*, DE+3*, T, R+2*, SET+2*
%Z DE+1*, DE+2*, DE+3*, DE+4!
>> D N, D*, 4*, 4+1, 4+3*, 4+4*, M4, R4+1*, 33*, 33+1
, 33+3*, 33+4*, M33, R33+1*
>> D0 BEGIN+3*
>> DA DE, BEGIN+3, 4+4, M4, R4+1, 33+4, M33, R33+1
DB DE!, C8!, C8S!, C11!, C11S!, C16!, C16S!, C22!, C22S!, C28!
, C28S!, C38!, C38S!, C40!, C40S!
DB( T, P, X, SET, SET+1
>> DC RP, 4+1*, M4*, 33+1*, M33*
DDER T, T+1!, SET+2
DE DE!
DE( O+2, RE, Z, Y, PR, RP, SAVEVALS, SAVEVALS+1, KEYCHK, 8+1*
, 11+1*, 16+1*, 22+1*, 28+1*, 38+1*, 40+1*
DE(1 4!, 33!
DE(11 DE+1*, C11, C11+1, C11S+1
DE(16 DE+1*, C16, C16+1, C16S+1
DE(22 DE+2*, C22, C22+1, C22S+1
DE(28 DE+2*, C28, C28+1, C28S+1
DE(33 M33*
DE(38 DE+3*, C38, C38+1, C38S+1
DE(4 M4*
DE(40 DE+3*, C40, C40+1, C40S+1
DE(49 DE+1*
DE(8 DE+1*, C8, C8+1, C8S+1
DG DE!, PR*, R*, R+1*, R+2, 1, 2, 3, 5, 6
, 7, 9, 10, 11, 12, 13, 14, 15, 16, 17
, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27
, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37
, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48
, 49, 50
DG( Z*, C8S, C8S+1, C11S, C11S+1, C16S, C16S+1, C22S, C22S+1, C28S
, C28S+1, C38S, C38S+1, C40S, C40S+1
>> DGO 4+1*, 33+1*
>> DIC DE*, P*
>> DIC("S" T, Z!
>> DIC(0 P*, 1*, 2*, 3*, 5*, 6*, 7*, 9*, 10*, 12*
, 13*, 14*, 15*, 17*, 18*, 19*, 20*, 21*, 23*, 24*
, 25*, 26*, 27*, 29*, 30*, 31*, 32*, 34*, 35*, 36*
, 37*, 39*, 41*, 42*, 43*, 44*, 45*, 46*, 47*, 48*
>> DICRREC BEGIN+2*
>> DIE DE*, P
DIEBADK BEGIN+1!
DIEFIRE BEGIN+1!, 1, 2, 3, 5, 6, 7, 9, 10, 12
, 13, 14, 15, 17, 18, 19, 20, 21, 23, 24
, 25, 26, 27, 29, 30, 31, 32, 34, 35, 36
, 37, 39, 41, 42, 43, 44, 45, 46, 47, 48
>> DIEL DE*
>> DIEZ BEGIN+3*
DIEZAR BEGIN+1~, BEGIN+2*
DIEZRXR BEGIN+1~
DIEZTMP SAVEVALS, SAVEVALS+1, SAVEVALS+2, BEGIN+1~*
>> DIFLD N, T, D, SAVEVALS, SAVEVALS+1, SAVEVALS+2, 4+1*, 8*, C8+1, C8S+1
, 11*, C11+1, C11S+1, 16*, C16+1, C16S+1, 22*, C22+1, C22S+1, 28*
, C28+1, C28S+1, 33+1*, 38*, C38+1, C38S+1, 40*, C40+1, C40S+1, 49*
DIIENS SAVEVALS, SAVEVALS+1, SAVEVALS+2, BEGIN+1~, BEGIN+3*
>> DIIX C8+1*, C8S+1*, C11+1*, C11S+1*, C16+1*, C16S+1*, C22+1*, C22S+1*, C28+1*, C28S+1*
, C38+1*, C38S+1*, C40+1*, C40S+1*
DIQUIET SET+1~*
DIR SET~
DIR("V" SET*
DIR(0 SET*
DIXR BEGIN+1~
>> DL DE*, W
DLAYGO P*, Z!
>> DLB W, RD+2, Z, D, 4+1*, 8*, 11*, 16*, 22*, 28*
, 33+1*, 38*, 40*, 49*
>> DNM BEGIN*
>> DOW 4+1*, 33+1*
>> DP DE*, N, T, SAVEVALS, SAVEVALS+1, SAVEVALS+2, C8S+1, C11S+1, C16S+1, C22S+1
, C28S+1, C38S+1, C40S+1
>> DQ O+2, A*, B, RE, T, P, P+2, V, X, D
, Y, PR, RP, SET, SET+1, SAVEVALS, BEGIN*, 1*, 2*, 3*
, 5*, 6*, 7*, C8S, C8S+1, 9*, 10*, 11*, C11S, C11S+1
, 12*, 13*, 14*, 15*, 16*, C16S, C16S+1, 17*, 18*, 19*
, 20*, 21*, 22*, C22S, C22S+1, 23*, 24*, 25*, 26*, 27*
, 28*, C28S, C28S+1, 29*, 30*, 31*, 32*, 33*, 34*, 35*
, 36*, 37*, C38S, C38S+1, 39*, 40*, C40S, C40S+1, 41*, 42*
, 43*, 44*, 45*, 46*, 47*, 48*, 49*
>> DQ( A!, P+2, D*, PR
>> DSC( 4+3, 33+3
DTIME TR, BEGIN+3*
>> DTOUT TR*
>> DU DE*, P, D, PR, SET, 4+2*, 8*, 11*, 16*, 22*
, 28*, 33+2*, 38*, 38+2*, 40*, 40+2*, 49*, 49+1*
DUZ RD+2, Z
>> DV O+1, O+2, N, RD+2, T, P, P+1, Z, D, Y
, PR, RP, I, 4+1*, 8*, 11*, 16*, 22*, 28*, 33+1*
, 38*, 40*, 49*
>> DW Z, D, SAVEVALS+1, KEYCHK, 1*, 2*, 3*, 4+1*, 5*, 6*
, 7*, 8*, 8+1, 9*, 10*, 11*, 11+1, 12*, 13*, 14*
, 15*, 16*, 16+1, 17*, 18*, 19*, 20*, 21*, 22*, 22+1
, 23*, 24*, 25*, 26*, 27*, 28*, 28+1, 29*, 30*, 31*
, 32*, 33+1*, 34*, 35*, 36*, 37*, 38*, 38+1, 39*, 40*
, 40+1, 41*, 42*, 43*, 44*, 45*, 46*, 47*, 48*, 49*
>> DZ QS*
U DE+1, DE+2, DE+3, TR, P, P+2, Z, D, R, R+1
, SET, BEGIN+3*, 1, 2, 3, 4+4, M4, R4+1, 5, 6
, 7, C8+1, C8S+1, 9, 10, C11+1, C11S+1, 12, 13, 14
, 15, C16+1, C16S+1, 17, 18, 19, 20, 21, C22+1, C22S+1
, 23, 24, 25, 26, 27, C28+1, C28S+1, 29, 30, 31
, 32, 33+4, M33, R33+1, 34, 35, 36, 37, C38+1, C38S+1
, 39, C40+1, C40S+1, 41, 42, 43, 44, 45, 46, 47
, 48
X O+2*, TR*, N, RD, RD+1, RD+2*, T, P*, P+1!, P+2*
, Z, X+1*, QS, Y*, PR*, R*, R+1*, R+2, RP*, I+1
, SET+2*, NKEY*, 1*, 2*, 3*, 5*, 6*, 7*, C8+1*, C8S*
, C8S+1*, X8!, 9*, 10*, C11+1*, C11S*, C11S+1*, X11!, X11+1!, 12*
, 13*, 14*, 15*, C16+1*, C16S*, C16S+1*, X16!, X16+1!, 17*, 18*
, 19*, 20*, 21*, C22+1*, C22S*, C22S+1*, X22!, X22+1!, 23*, 24*
, 25*, 26*, 27*, C28+1*, C28S*, C28S+1*, X28!, X28+1!, 29*, 30*
, 31*, 32*, 34*, 35*, 36*, 37*, C38+1*, C38S*, C38S+1*, 39*
, C40+1*, C40S*, C40S+1*, 41*, 42*, 43*, 44*, 45*, 46*, 47*
, 48*
>> Y O, O+1, O+2, P, Y, PR*, R*, R+1*, R+2*, SET+2
, 1*, 2*, 3*, 5*, 6*, 7*, 9*, 10*, 12*, 13*
, 14*, 15*, 17*, 18*, 19*, 20*, 21*, 23*, 24*, 25*
, 26*, 27*, 29*, 30*, 31*, 32*, 34*, 35*, 36*, 37*
, 39*, 41*, X41*, 42*, 43*, 44*, 45*, 46*, 47*, 48*
>> Y(0 SET+2
YS V!
>> ZTQUEUED X, NKEY

Marked Items

Name Field # of Occurrence
$T(@(3) D
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All