Routine: ABSPOSFA

Information

ABSPOSFA ; IHS/FCS/DRS - Print NCPDP claim ; [ 09/12/2002 10:08 AM ]

Source Information

Source file <ABSPOSFA.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Pharmacy Point of Sale	5	ZWRITE^ABSPOS ($$ILCINS,$$UNINS)^ABSPOSF $$ABSP^ABSPOSFB PRINT^ABSPOSFP $$TOSCREEN^ABSPOSU5
Kernel	2	^%ZIS ^%ZISC
VA Fileman	1	$$GET1^DIQ

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Pharmacy Point of Sale	1	ABSPOSF

Entry Points

Name	Comments	DBIA/ICR reference
SORT	;EP - from ABSPOSF - Sort prescriptions into ; input: ^TMP("ABSPOSF",$J,1,ien57)="" or = insien ; output: ; ^TMP("ABSPOSF",$J,2,inskey)=insien^name^address^^city^state^zip ; ^TMP("ABSPOSF",$J,2,inskey,patkey,pharm,visitien,ien57)=""
NCPDP1	;
VISITS	; at ^TMP("ABSPOSF",$J,2,INSNAME,PATNAME,PHARM)
PRINTV(INSINFO)	; we have TRANSACT(ien57)="" for a bunch of prescriptions ; INSINFO=INSIEN^NAME^ADDR 1^ADDR 2^CITY^STATE^ZIP
TEST	; a test - find a bunch of recent transactions ; and set up ^TMP("ABSPOSF",$J,1,IEN57)
PRINT	; EP - from ABSPOSF
NCPDP	; Build NCPDP(field #)=value ; NCPDP("RX",rxn,field #)=value ; Loop through every NCPDP field and Xecute the "Get" code. ; (checking for overrides, in which case the "Get" doesn't happen) ; Then store the result in the NCPDP array, as above. ; Note that we will have EVERY field defined, even if value is null.

External References

Name	Field # of Occurrence
^%ZIS	PRINT+2
^%ZISC	PRINT+23
ZWRITE^ABSPOS	TEST+16
$$ILCINS^ABSPOSF	SORT+15
$$UNINS^ABSPOSF	SORT+22, TEST+11
$$ABSP^ABSPOSFB	PRINTV+3
PRINT^ABSPOSFP	PRINTV+13
$$TOSCREEN^ABSPOSU5	PRINT+14
$$GET1^DIQ	TEST+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Sorting..." Line Location: SORT+5
Function Call: WRITE	Prompt: ! Line Location: SORT+37
Function Call: WRITE	Prompt: !,"Print on which device?",! Line Location: PRINT+1
Function Call: WRITE	Prompt: "Printing for ",INSNAME,! Line Location: PRINT+16
Function Call: WRITE	Prompt: "Sorting..." Line Location: TEST+13
Function Call: WRITE	Prompt: ! Line Location: TEST+13
Function Call: WRITE	Prompt: "results of SORT:",! Line Location: TEST+15
Function Call: WRITE	Prompt: "Printing..." Line Location: TEST+17
Function Call: WRITE	Prompt: ! Line Location: TEST+17
Function Call: WRITE	Prompt: ! Line Location: TEST+17
Routine Call	%ZIS Line Location: PRINT+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ABSPTL - [#9002313.57]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSPF(9002313.91 - [#9002313.91]	NCPDP+7, NCPDP+9, NCPDP1+2, NCPDP1+3
^ABSPTL - [#9002313.57]	SORT+9, SORT+14, SORT+16, SORT+31, SORT+33, SORT+34, TEST+6, TEST+10
^ABSPTL(0	TEST+3
^AUTNINS - [#9999999.18]	SORT+18, SORT+25, SORT+26, SORT+27, SORT+29, TEST+11
^DIC(5 - [#5]	SORT+28
^DPT - [#2]	SORT+32
^TMP("ABSPOSF"	SORT+7, SORT+13, SORT+20, SORT+30, SORT+36, PRINT+12, PRINT+19, PRINT+21, VISITS+2, VISITS+4 , VISITS+5, TEST+2!, TEST+12*, TEST+16

Label References

Name	Line Occurrences
NCPDP	PRINTV+11
NCPDP1	NCPDP+14, NCPDP+24
PRINT	TEST+17
PRINTV	VISITS+5
SORT	TEST+13
VISITS	PRINT+22

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABSP	PRINTV+2~
ABSP(	NCPDP+23*, NCPDP+26!
ABSP("Insurer"	PRINTV+5, PRINTV+6, PRINTV+7, PRINTV+8, PRINTV+9, PRINTV+10
ABSP("OVERRIDE"	NCPDP+11, NCPDP+12, NCPDP+20, NCPDP+21
ABSP("RX"	NCPDP+19
ABSP("X"	NCPDP+12, NCPDP+15, NCPDP+16!, NCPDP+21, NCPDP+25, NCPDP+26!, NCPDP1+1*
D1	NCPDP1+1~, NCPDP1+2, NCPDP1+3
FIELDIEN	NCPDP+6~, NCPDP+9*, NCPDP1+2, NCPDP1+3
FIELDNUM	NCPDP+6~, NCPDP+7, NCPDP+8, NCPDP+9, NCPDP+10, NCPDP+11, NCPDP+12, NCPDP+15, NCPDP+20, NCPDP+21 , NCPDP+25
IEN57	SORT+6~, SORT+7, SORT+9, SORT+13, SORT+14, SORT+16, SORT+31, SORT+33, SORT+34, SORT+36 , PRINT+10~, TEST+3~, TEST+5, TEST+6, TEST+9, TEST+10, TEST+12
INS	TEST+10~*, TEST+11
INSADDR	SORT+21~, SORT+24, SORT+25, SORT+30
INSCITY	SORT+21~, SORT+24, SORT+26, SORT+30
>> INSFIRST	PRINT+13
INSIEN	SORT+8~, SORT+13, SORT+15, SORT+16, SORT+17, SORT+18, SORT+19, SORT+25, SORT+26, SORT+27 , SORT+29, SORT+30
INSINFO	PRINTV~, PRINTV+5, PRINTV+6, PRINTV+7, PRINTV+8, PRINTV+9, PRINTV+10
INSKEY	SORT+8~, SORT+19*, SORT+20, SORT+30, SORT+36
INSNAME	SORT+8~, SORT+17, SORT+18, SORT+19, SORT+22, SORT+23, SORT+30, PRINT+10~, PRINT+11, PRINT+12* , PRINT+13, PRINT+16, PRINT+19, PRINT+21, VISITS+2, VISITS+4, VISITS+5
INSSTATE	SORT+21~, SORT+24, SORT+27, SORT+28*, SORT+30
INSZIP	SORT+21~, SORT+24, SORT+29, SORT+30
IO	PRINT+3, PRINT+17
NCPDP	PRINTV+2~
NCPDP(	NCPDP+15*
NCPDP("RX"	NCPDP+25*
NTRANS	TEST+4~, TEST+5, TEST+12
PATIEN	SORT+8~, SORT+31*, SORT+32, SORT+35
PATKEY	SORT+8~, SORT+35*, SORT+36
PATNAME	SORT+8~, SORT+32, SORT+35, PRINT+10~, PRINT+18, PRINT+19*, PRINT+21, VISITS+2, VISITS+4
PCNDFN	SORT+14~*, SORT+15
PHARM	SORT+8~, SORT+34, SORT+36, PRINT+10~, PRINT+20, PRINT+21*, VISITS+2, VISITS+4
POP	PRINT+2~
RXN	NCPDP+6~, NCPDP+18~, NCPDP+19, NCPDP+20, NCPDP+21, NCPDP+23, NCPDP+25
TMP	TEST+16~*
TRANSACT	VISITS+3~, VISITS+4*
U	SORT+14, SORT+16, SORT+18, SORT+25, SORT+26, SORT+27, SORT+28, SORT+29, SORT+30, SORT+31 , SORT+32, SORT+33, SORT+34, PRINTV+5, PRINTV+6, PRINTV+7, PRINTV+8, PRINTV+9, PRINTV+10, TEST+3 , TEST+10, TEST+11
VISIT	SORT+8~, SORT+33*, SORT+36
VISITIEN	PRINT+10~, VISITS+1, VISITS+2, VISITS+4

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSFA

Call Graph Total: 8

Caller Graph Total: 1