Routine: ABSPOS28

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Entry Points
External References
Interaction Calls
Global Variables Directly Accessed
Label References
Local Variables

Information

ABSPOS28 ; IHS/FCS/DRS - test of insurance selection ;

Source Information

Source file <ABSPOS28.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Pharmacy Point of Sale	4	$$NDCVAL^ABSPFUNC ZWRITE^ABSPOS INSURER^ABSPOS25 $$FINDTYPE^ABSPOS26

Entry Points

Name	Field # of Occurrence
$$NDCVAL^ABSPFUNC	TEST1+16
ZWRITE^ABSPOS	TEST2+6, TEST2+12, TEST4+17, TEST4+19, TEST4+20, FOUND+2
INSURER^ABSPOS25	TEST2+9, TEST4+15
$$FINDTYPE^ABSPOS26	FINDTYPE

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: IJK," " Line Location: TEST1+11
Function Call: WRITE	Prompt: ! Condition for execution: $X>70 Line Location: TEST1+11
Function Call: WRITE	Prompt: "- - - for RXI=",ABSBRXI,",RXR=",ABSBRXR Line Location: TEST1+20
Function Call: WRITE	Prompt: ", NDC=",ABSBNDC Line Location: TEST1+21
Function Call: WRITE	Prompt: " - - -",! Line Location: TEST1+22
Function Call: WRITE	Prompt: "No PCC link for ",ABSBRXI,",",ABSBRXR,! Line Location: TEST2+3
Function Call: WRITE	Prompt: "PCC link but '$D() on " Line Location: TEST2+5
Function Call: WRITE	Prompt: ! Line Location: TEST2+6
Function Call: WRITE	Prompt: "VCN ",VCN,", PCNDFN ",PCNDFN,! Line Location: TEST4+4
Function Call: WRITE	Prompt: "PCN ",PCN,", PCNDFN ",PCNDFN,! Line Location: TEST4+8
Function Call: WRITE	Prompt: "Visit date: ",$P(^AUPNVSIT(ABSBVISI,0),U),! Line Location: TEST4+11
Function Call: WRITE	Prompt: "Last registration update: ",$P(^AUPNPAT(ABSBPATI,0),U,3),! Line Location: TEST4+13
Function Call: WRITE	Prompt: $P(^DPT(ABSBPATI,0),U),! Line Location: TEST4+21
Function Call: WRITE	Prompt: ARRAY(A)," ",$P(^AUTNINS(X,0),U),! Line Location: TEST4+24
Function Call: WRITE	Prompt: "Hits: " Line Location: SRH1+3
Function Call: WRITE	Prompt: !?10 Condition for execution: $X>70 Line Location: SRH1+7
Function Call: WRITE	Prompt: A," " Line Location: SRH1+7
Function Call: WRITE	Prompt: ! Line Location: SRH1+8
Function Call: WRITE	Prompt: "SRH2 misses: " Line Location: SRH2+2
Function Call: WRITE	Prompt: !?10 Condition for execution: $X>70 Line Location: SRH2+7
Function Call: WRITE	Prompt: A," " Line Location: SRH2+7
Function Call: WRITE	Prompt: ! Line Location: SRH2+8
Function Call: WRITE	Prompt: "There are no records",! Line Location: FINDINIT+1
Function Call: WRITE	Prompt: "Searching, with TYPE=",TYPE,! Line Location: FINDLOOP+1
Function Call: WRITE	Prompt: "Search done",! Line Location: FINDLOOP+17
Function Call: WRITE	Prompt: "Found case ",WHICH,! Line Location: FOUND+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSBITMS(9002302	TEST4+3, TEST4+7, TEST4+10, TEST4+12, TEST4+18
^ABSPCOMB - [#9002313.1]	TEST4+17
^ABSPT - [#9002313.59]	TEST3+2, TEST3+3
^AUPNPAT - [#9000001]	TEST4+13
^AUPNVMED - [#9000010.14]	TEST2+4, TEST2+7
^AUPNVSIT - [#9000010]	TEST4+11
^AUTNINS - [#9999999.18]	TEST4+24
^AUTNINS("B"	TYPES+1, TYPES+2, TYPES+3
^DPT - [#2]	TEST4+21
^PSRX - [#52]	TEST1+9, TEST1+12, TEST1+13, TEST1+17, TEST2+1, TEST2+2, TEST2+8
^TMP($J	TEST1+7!, TEST2+11*, SRH1+4, SRH1+5, SRH2+3, SRH2+4, SRH2+5, FINDNEXT, FINDN1, FINDN2 , FINDLOOP+3

Name	Line Occurrences
FINDINIT	FINDLOOP
FINDLOOP	FIND1+1, FIND2+1, FIND3, FIND
FINDN1	FINDN2
FINDN2	FINDINIT
FINDNEXT	FINDN1, FINDLOOP+2
FOUND	FINDLOOP+14, FINDLOOP+15, FINDLOOP+16
TEST2	TEST1+23, TEST3+4
TEST4	TEST4+5, TEST4+9
TYPES	SRH1+1, SRH2+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	FINDLOOP+6~, FINDLOOP+7, FINDLOOP+8, FINDLOOP+9, FINDLOOP+10, FINDLOOP+11*, FINDLOOP+12, FINDLOOP+13
A	TEST4+22~, TEST4+23, TEST4+24, SRH1+2~, SRH1+4, SRH1+5, SRH1+7, SRH2+3, SRH2+4, SRH2+5 , SRH2+7
ABSBNDC	TEST1+6~, TEST1+16, TEST1+17, TEST1+21
ABSBPATI	TEST1+6~, TEST2+8, TEST2+11, TEST4+12~, TEST4+13, TEST4+17, TEST4+21, FINDINIT, FINDINIT+1, FINDNEXT , FINDN1, FINDN2, FINDLOOP, FINDLOOP+2, FINDLOOP+3
ABSBRXI	TEST1+6~, TEST1+8, TEST1+9, TEST1+12, TEST1+13, TEST1+16, TEST1+17, TEST1+20, TEST2+1, TEST2+2 , TEST2+3, TEST2+8, TEST2+11, TEST3+1, TEST3+2, TEST3+3, TEST4+14~, FINDINIT, FINDNEXT, FINDN1 , FINDLOOP+3
ABSBRXR	TEST1+6~, TEST1+13, TEST1+16, TEST1+20, TEST2+1, TEST2+3, TEST2+11, TEST3+3, TEST4+14~, FINDINIT , FINDNEXT*, FINDLOOP+3
ABSBVISI	TEST1+6~, TEST2+7, TEST4+10~, TEST4+11
ABSBVMED	TEST1+6~, TEST2+1, TEST2+2, TEST2+3, TEST2+4, TEST2+7
ARRAY	TEST2+9~, TEST2+11, TEST4+15~, FINDLOOP+3!*
ARRAY(	TEST4+22, TEST4+23, TEST4+24, FINDLOOP+6, FINDLOOP+7, FINDLOOP+8, FINDLOOP+9, FINDLOOP+10, FINDLOOP+11
ARRAY(0	FINDLOOP+5
COMB	TEST4+17~*
DEBUG	TEST1~, TEST1+11, TEST1+19, TEST2+12
I	FINDLOOP+5~*, FINDLOOP+6, FINDLOOP+7, FINDLOOP+8, FINDLOOP+9, FINDLOOP+10, FINDLOOP+11
IJK	TEST1+9, TEST1+10~, TEST1+11
INSCAID	SRH1+1~, SRH2+1~, SRH2+5, TYPES+2*
INSCARE	SRH1+1~, SRH2+1~, SRH2+5, TYPES+3*
INSCOV1	TEST4+18~*
INSSELF	SRH1+1~, SRH1+5, SRH2+1~, SRH2+5, TYPES+1*
J	FINDLOOP+12~*, FINDLOOP+13
M	TEST1~, TEST1+9
N	TEST1~, TEST1+10
PCN	TEST4+7~*, TEST4+8
PCNDFN	TEST4~, TEST4+1, TEST4+2, TEST4+3, TEST4+4, TEST4+5, TEST4+6, TEST4+7*, TEST4+8, TEST4+9 , TEST4+10, TEST4+12, TEST4+18
RULECT	FINDLOOP+4!
RULECT(	FINDLOOP+13*
RULECT("BIRTHDAY"	FINDLOOP+14
RULECT("EMPLOY2"	FINDLOOP+15
RULECT("SEARHC0"	FINDLOOP+16
TYPE	FIND1+1, FIND2+1, FIND3*, FIND~, FINDLOOP+1, FINDLOOP+14, FINDLOOP+15, FINDLOOP+16, FINDTYPE~
U	TEST2+1, TEST2+2, TEST2+7, TEST2+8, TEST3+3, TEST4+10, TEST4+11, TEST4+12, TEST4+13, TEST4+21 , TEST4+23, TEST4+24, SRH1+5, SRH2+4, FINDLOOP+7, FINDLOOP+8, FINDLOOP+9, FINDLOOP+10, FINDLOOP+11
VCN	TEST4+2~*, TEST4+3, TEST4+4
WHICH	FOUND~, FOUND+1
X	TEST4+2~, TEST4+3, TEST4+7~, TEST4+23~, TEST4+24, SRH2+4~, SRH2+5, FINDLOOP+6~, FINDLOOP+13~

Name	Comments	DBIA/ICR reference
FIND(TYPE)
TEST3	; Look through 9002313.59 entries
TEST2
FINDTYPE(TYPE)
TEST1(N,M,DEBUG)	; look through some prescriptions and see what you get ; Stores copies of ARRAY() in ^TMP($J, ; See FIND utilities below for help in searching ^TMP($J, ; for instances of interesting things. ; look at N prescrips ; optionally start M from end ; S DEBUG=1
FIND1	; find records that have two BIRTHDAY rules
SRH2	; search for: prvt & care & caid & ben (rule should not happen)
SRH1	; search for: self pay ahead of others (the rule happened)
FINDINIT
FOUND(WHICH)
FINDNEXT
FINDLOOP
FINDN1
FINDN2
FIND2	; find records that have the EMPLOY2 rule
FIND3
TYPES	;
TEST4(PCNDFN)

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOS28

Call Graph Total: 4