Routine: ABSPOSMD

Information

ABSPOSMD ; IHS/FCS/DRS - General Inquiry/Report .57; [ 09/12/2002 10:14 AM ]

Package	Total	Call Graph
Pharmacy Point of Sale	3	($$IENLIST,$$OPEN)^ABSPOSMC PRESSANY^ABSPOSU5 IMPOSS^ABSPOSUE
VA Fileman	1	EN1^DIP

Package	Total	Caller Graph
Pharmacy Point of Sale	1	ABSPOSMC

Name	Comments	DBIA/ICR reference
C	; Claim - Basic info ;
J	; Rejection Detail
D	; DUR Info Only ; $$TEMPLATE("DUR INFO ONLY")
PT	; Print Template selection ; Prompt user for a print template ; Let EN1^DIP do it. Just print instructions here to alert user ; as to what to do.
TEMPLATE(TNAMESFX)	; ; Look for site-specific version of the print template. ; The template name ends in TNAMESFX. ; Otherwise, use the standard print template for TNAMESFX.
NOTIM(X)	;
NOLABEL(X)	;
F	; Financial Detail ; $$TEMPLATE("FINANCIAL DETAIL")
TRANSHDR()	; $$ returns template name for transaction header
S	; Transaction Summary ;
R	; Response Detail
T	; Total Comprehensive Detail ; $$TEMPLATE("COMPREHENSIVE DETAIL")
ACTION	; EP - given ACTION = one of the codes for an action ; as selected from the list in ABSPOSMZ ; Also the ABSPOSMA() array is still there ; All of the EN1^DIP variables have been NEWed by the caller
REC	; Summary Receipt ; $$TEMPLATE("SUMMARY RECEIPT")
DIP	; and each one rejoins here (G DIP) to set up for call to EN1^DIP ; with TEMPLATE=[template name]
FM	; Fileman to customize output ; EN1^DIP will prompt user for fields ; to be printed.

Name	Line Occurrences (* Changed, ! Killed)
^ABSP(9002313.99 - [#9002313.99]	TEMPLATE+18
^DIPT - [#.4]	TEMPLATE+19
^DIPT("B"	TEMPLATE+23

Name	Field # of Occurrence
>> ABSPOSMA("MODE"	DIP+32
>> ACTION	ACTION+7
BY	DIP+2!, DIP+7*
BY(0	DIP+28*
DCOPIES	DIP+3!
DHD	DIP+2!, DIP+11, DIP+12
DHIT	DIP+2!, DIP+18*
DIASKHD	DIP+2!
DIC	DIP+2!, DIP+5*
DIOBEG	DIP+2!
DIOEND	DIP+2!
DIPCRIT	DIP+2!
DIS	DIP+3!
DISPAR	DIP+3!
DISTOP	DIP+3!, DIP+26*
DISUPNO	DIP+3!
DQTIME	DIP+3!
FLDS	DIP+2!, DIP+6*
FR	DIP+2!, DIP+8*
IENLIST	ACTION+5~, ACTION+6*, DIP+9, DIP+28
IOP	DIP+3!
L	DIP+2!, DIP+4*
L(0	DIP+29*
PG	DIP+2!
TEMPLATE	ACTION+5~, DIP+6, S+1, C+2, R+2, F+2, J+2, D+2
TEMPLATE("HEADER"	DIP+10, DIP+11, C+1, R+1, F+1, J+1, D+1*
TEMPLATE("TRAILER"	DIP+12
TNAME	TEMPLATE+17~, TEMPLATE+19, TEMPLATE+20, TEMPLATE+21, TEMPLATE+23, TEMPLATE+24, TEMPLATE+25, TEMPLATE+26
TNAMESFX	TEMPLATE~, TEMPLATE+18, TEMPLATE+21
TNUM	TEMPLATE+17~, TEMPLATE+18, TEMPLATE+19, TEMPLATE+23, TEMPLATE+24
TO	DIP+2!, DIP+9*
U	TEMPLATE+18, TEMPLATE+19
X	NOLABEL~, NOLABEL+1, NOTIM~, NOTIM+1

Name	Field # of Occurrence
$T(	TEMPLATE+24, NOLABEL+1, NOTIM+1
$T(@ACTION	ACTION+4