Routine: ABSPOSF

Package	Total	Call Graph
Pharmacy Point of Sale	6	$$UNINS^ABSPOSF (PRINT,SORT)^ABSPOSFA ALIGN^ABSPOSFX $$DTR^ABSPOSU1 $$FREETEXT^ABSPOSU2 $$YESNO^ABSPOSU3
Kernel	2	^%ZIS ^%ZISC
VA Fileman	2	^DIC $$GET1^DIQ

Package	Total	Caller Graph
Pharmacy Point of Sale	2	ABSPOSF ABSPOSFA

Entry Points

Name	Comments	DBIA/ICR reference
JOIN	; REPRINT joins here
PAT57()	; Lookup patient in 9002313.57 transactions
ALIGN	;EP - align NCPDP forms ; Option name ABSP NCPDP FORMS ALIGN
ILCINS(PCNDFN)	; EP - get the ILC insurer IEN
ILCPRINT	; EP - ; For printing forms from ILC A/R pre-bill list ; Build ^TMP("ABSPOSF",$J,1,ien57)
INSFIRST()	; returns where to start printing or "" or "^" or "^^" to cancel
ILCINSNM(PCNDFN)	; EP - get the ILC insurer name
PRINT	; EP - ; For printing forms at a site which doesn't have ILC A/R: ; Option name ABSP NCPDP FORMS PRINT ; prompt for a date range ; and "start at insurer" ; and "are you sure?"
ALIGN1
REPRINT	;EP - reprint selected NCPDP forms ; Option name ABSP NCPDP FORMS REPRINT
UNINS(NAME)	; EP - is it an uninsured kind of pseudo-insurance

External References

Name	Field # of Occurrence
^%ZIS	ALIGN+3
^%ZISC	ALIGN1+4
$$UNINS^ABSPOSF	PRINT+36
PRINT^ABSPOSFA	JOIN+10, ILCPRINT+20
SORT^ABSPOSFA	JOIN+9, ILCPRINT+18
ALIGN^ABSPOSFX	ALIGN1+1
$$DTR^ABSPOSU1	PRINT+10, REPRINT+9
$$FREETEXT^ABSPOSU2	INSFIRST+6
$$YESNO^ABSPOSU3	JOIN+6, ALIGN1+3, ILCPRINT+19, INSFIRST+2
^DIC	PAT57+5
$$GET1^DIQ	PRINT+29

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Print NCPDP Pharmacy Claim Forms",!! Line Location: PRINT+9
Function Call: WRITE	Prompt: ! Line Location: PRINT+10
Function Call: WRITE	Prompt: !,"Now building a list of transactions for which to print forms...",! Line Location: PRINT+20
Function Call: WRITE	Prompt: !,"Number of claims: ",COUNT,! Line Location: JOIN+1
Function Call: WRITE	Prompt: "Note: because some forms may have two claims on the same page,",! Line Location: JOIN+4
Function Call: WRITE	Prompt: "you might print fewer than ",COUNT," forms.",! Line Location: JOIN+5
Function Call: WRITE	Prompt: !,"Nothing done.",! Line Location: JOIN+8
Function Call: WRITE	Prompt: !,"Test print for NCPDP forms",! Line Location: ALIGN+2
Function Call: WRITE	Prompt: !!,"Reprint selected NCPDP forms",!! Line Location: REPRINT+2
Function Call: WRITE	Prompt: "First, select the patient(s).",! Line Location: REPRINT+3
Function Call: WRITE	Prompt: !!,"Choose a transaction date or range of transaction dates",! Line Location: REPRINT+7
Function Call: WRITE	Prompt: "for which to reprint NCPDP forms for the selected patient(s).",! Line Location: REPRINT+8
Function Call: WRITE	Prompt: ! Line Location: REPRINT+9
Function Call: WRITE	Prompt: !,"Gathering the selected transactions..." Line Location: REPRINT+13
Function Call: WRITE	Prompt: ! Line Location: PAT57+5
Function Call: WRITE	Prompt: "s" Line Location: PAT57+12
Function Call: WRITE	Prompt: " " Line Location: PAT57+12
Function Call: WRITE	Prompt: Y Line Location: PAT57+13
Function Call: WRITE	Prompt: " - ",Y Line Location: PAT57+14
Function Call: WRITE	Prompt: ! Line Location: PAT57+15
Function Call: WRITE	Prompt: !,"Print NCPDP forms",! Line Location: ILCPRINT+2
Function Call: WRITE	Prompt: !,"Note: if you answer YES to an ""Okay to update bills?"" question,",! Line Location: ILCPRINT+5
Function Call: WRITE	Prompt: "later on in the ILC A/R system, it will update all the bills,",! Line Location: ILCPRINT+6
Function Call: WRITE	Prompt: "not only the ones which were printed starting at ",INSFIRST,".",! Line Location: ILCPRINT+7
Function Call: WRITE	Prompt: !,"Gathering claims from the NCPDP Prebill List in the A/R system..." Line Location: ILCPRINT+8
Function Call: WRITE	Prompt: ! Line Location: ILCPRINT+17
Function Call: WRITE	Prompt: ! Line Location: ILCPRINT+19
Function Call: WRITE	Prompt: ! Line Location: INSFIRST+6
Routine Call	DIC Line Location: PAT57+5
Routine Call	%ZIS Line Location: ALIGN+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSBITMS(9002302	ILCPRINT+12, ILCINS+1, ILCINS+3, ILCINS+4, ILCINSNM+1
^ABSPTL - [#9002313.57]	PRINT+32, PRINT+38, REPRINT+18, PAT57+9, PAT57+11
^ABSPTL("AC"	PAT57+8, PAT57+10
^ABSPTL("AH"	PRINT+27, PRINT+43, REPRINT+17, REPRINT+21
^ABSPTL("B"	PRINT+39
^ABSPTL("C"	ILCPRINT+15
^AUTNINS - [#9999999.18]	PRINT+33
^DD("DD"	PAT57+13, PAT57+14
^TMP("ABSPOSF"	PRINT+21!, PRINT+41, REPRINT+20, ILCPRINT+9!, ILCPRINT+16*

Label References

Name	Line Occurrences
$$ILCINSNM	ILCPRINT+13
$$INSFIRST	PRINT+17, ILCPRINT+3
$$PAT57	REPRINT+5
ALIGN1	ALIGN1+3
JOIN	REPRINT+23

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
COUNT	PRINT+23~, PRINT+42, JOIN+1, JOIN+2, JOIN+3, JOIN+5, REPRINT+13, REPRINT+20
DATE1	PAT57+9~*, PAT57+12, PAT57+13, PAT57+14
DATE2	PAT57+11~*, PAT57+12, PAT57+14
DEF1	PRINT+5~, PRINT+8*, PRINT+10, REPRINT+9
DEF2	PRINT+5~, PRINT+8*, PRINT+10, REPRINT+9
DIC	PAT57+1~, PAT57+2*
DIC("A"	PAT57+3*
DIC("S"	PAT57+4*
DIC(0	PAT57+2*
DLAYGO	PAT57+1~
>> DTOUT	PAT57+6
>> DUOUT	PAT57+6
IEN57	PRINT+26~, PRINT+27, PRINT+29, PRINT+32, PRINT+38, PRINT+39, PRINT+41, REPRINT+4~, REPRINT+16, REPRINT+17 , REPRINT+18, REPRINT+20, PAT57+8~, PAT57+9, PAT57+10, PAT57+11, ILCPRINT+14~, ILCPRINT+15, ILCPRINT+16
INS	PRINT+32~*, PRINT+33
INSFIRST	PRINT+17~, PRINT+35, REPRINT+22~, ILCPRINT+3~*, ILCPRINT+4, ILCPRINT+7, ILCPRINT+13
>> INSIEN	ILCINS+5*
INSNAME	PRINT+33~*, PRINT+35, PRINT+36
IO	ALIGN1
NAME	UNINS~, UNINS+1, UNINS+2
PAT57	REPRINT+4~, REPRINT+5, REPRINT+18, REPRINT+19
PATARRAY	REPRINT+4~
PATARRAY(	REPRINT+5*, REPRINT+19
PATARRAY(""	REPRINT+6
PCNDFN	ILCPRINT+10~, ILCPRINT+12, ILCPRINT+13, ILCPRINT+15, ILCINS~, ILCINS+1, ILCINS+3, ILCINS+4, ILCINSNM~, ILCINSNM+1
POP	ALIGN+3~
PROMPT1	PRINT+5~, PRINT+6*, PRINT+10, REPRINT+9
PROMPT2	PRINT+5~, PRINT+7*, PRINT+10, REPRINT+9
RANGE	PRINT+10~, PRINT+11, PRINT+12, PRINT+13, PRINT+24, PRINT+25, REPRINT+9~, REPRINT+10, REPRINT+11, REPRINT+12 , REPRINT+14, REPRINT+15
RET	INSFIRST+1~, INSFIRST+2, INSFIRST+3, INSFIRST+4, INSFIRST+6, INSFIRST+7
RXIRXR	PRINT+38~*, PRINT+39
U	PRINT+12, PRINT+13, PRINT+24, PRINT+25, PRINT+32, PRINT+33, PRINT+38, REPRINT+11, REPRINT+12, REPRINT+14 , REPRINT+15, REPRINT+18, PAT57+9, PAT57+11, ILCINS+1, ILCINS+4, ILCINSNM+1
WHEN	PRINT+24~, PRINT+25, PRINT+27, PRINT+43, REPRINT+14~, REPRINT+15, REPRINT+17, REPRINT+21
X	PRINT+12~, PRINT+13, JOIN+6~, JOIN+7, REPRINT+11~, REPRINT+12, PAT57+1~, ILCINS+1~, ILCINS+2, ILCINS+3 , ILCINS+4, ILCINS+5
Y	PAT57+1~, PAT57+6, PAT57+7, PAT57+8, PAT57+10, PAT57+13, PAT57+14*

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSF

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: