Routine: ABMDTMS

Information

ABMDTMS ;IHS/ABM/THL - INTERFACE WITH PYXIS/M SYSTEMS;

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
VA Fileman	5	^DDS ^DIC FILE^DICN ^DIE ^DIR
Registration	3	EN^VALM TERM^VALM0 CLEAR^VALM1
Kernel	1	DISP^XQORM1
Third Party Billing	1	$$CPT^ABMCVAPI

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Third Party Billing	1	ABMDE0

Entry Points

Name	Comments	DBIA/ICR reference
SURE	;CONFIRM TRANSFER OF SUPPLIES
HDR	;EP; -- header code
FORMAT	;FORMAT DATA FOR DISPLAY
EXITOUT
BACK
VALM(ABMVALM)	;EP; -- main entry point for list templates
SUPPSET	;SET SUPPLY VARIABLES
DATE	;SELECT DATE RANGE FOR ITEM CHARGES
DISPLAY	;DISPLAY SULLPY ITEMS
SELECT	;EP;SELECT ITEMS TO ADD TO CLAIM
HELP	;EP; -- help code
A1	;ADD ITEMS TO THE CLAIM
EN1	;
DISP1	;DISPLAY ALL RELEVANT ITEMS
OPEN(DFN,ABMDA)	;EP;TO PROCESS WHEN CLAIM ALREAY IDENTIFIED
E1	;EDIT ITEMS
CL1	;CLAIM ALREADY IDENTIFIED
HEAD	;
EN
J	;SET TEMP ARRAY
ADDITEM	;ADD SUPPLY TO CLAIM
DINIT	;EP;LIST ALL SUPPLY ITEMS IN THE DATE RANGE
ADD
CLAIM	;SELECT CLAIM
EDIT	;EDIT SUPPLY ITEMS
EDIN	;
EXIT	;EP; -- exit code

External References

Name	Field # of Occurrence
$$CPT^ABMCVAPI	FORMAT+35
^DDS	E1+5
^DIC	CLAIM+5
FILE^DICN	A1+30
^DIE	A1+35
^DIR	DATE+17, DATE+28, SELECT+5, SURE+7
EN^VALM	VALM+6
TERM^VALM0	VALM+4
CLEAR^VALM1	VALM+5, VALM+7, EXIT+3
DISP^XQORM1	HELP+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: CLAIM+4
Function Call: WRITE	Prompt: !!,"PATIENT: ",PATIENT," VISIT DATE: ",VISDATE Line Location: DATE+10
Function Call: WRITE	Prompt: ! Line Location: DATE+16
Function Call: WRITE	Prompt: ! Line Location: DATE+27
Function Call: WRITE	Prompt: ! Line Location: SELECT+4
Function Call: WRITE	Prompt: !!,"Are you certain you want to charge these items to the Claim/Bill" Line Location: SURE+1
Function Call: WRITE	Prompt: !,ABMSET Line Location: SURE+2
Function Call: WRITE	Prompt: ! Line Location: SURE+6
Function Call: WRITE	Prompt: @IOF Line Location: OPEN+17
Function Call: WRITE	Prompt: !!,"There are SUPPLIES/MEDS on file that may need to be added to this claim." Line Location: OPEN+18
Function Call: WRITE	Prompt: !! Line Location: HELP+3
Routine Call	VALM Line Location: VALM+6
Routine Call	DIE Line Location: A1+35
Routine Call	DDS Line Location: E1+5
Routine Call	DIC Line Location: CLAIM+5
Routine Call	DIR Line Location: DATE+17 DATE+28 SELECT+5 SURE+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNSUP - [#9000021]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDCLM - [#9002274.3]	CL1+1, DATE+2, FORMAT+3, FORMAT+6, A1+10, A1+20, A1+26*, OPEN+6
^AUPNSUP - [#9000021]	SUPPSET+1, SUPPSET+2, SUPPSET+3
^AUPNSUP("ASUP"	DINIT+5, DINIT+7, OPEN+12, OPEN+14
^AUTTREVN - [#9999999.72]	FORMAT+36, A1+24
^DD("DD"	DATE+6, DATE+9, DATE+22, FORMAT+11, FORMAT+15, FORMAT+19, FORMAT+23, FORMAT+26
^DPT - [#2]	DATE+1, FORMAT+2, OPEN+5
^ICPT - [#81]	A1+18
^PSDRUG - [#50]	FORMAT+31, A1+8, A1+15
^TMP("ABMDTMS"	EXITOUT+1!, DINIT+1!, J+2*
^TMP("ABMLM"	EXIT+1!
^TMP("ABMSUP"	FORMAT+51*, A1+2, E1+1

Label References

Name	Line Occurrences
A1	ADDITEM+2
ADD	SELECT+9
ADDITEM	ADD+2
BACK	SELECT+7, SELECT+12, VALM+3
CL1	OPEN+19
CLAIM	EN1+2
DATE	DISPLAY+1
DINIT	SELECT+13
DISP1	DISPLAY+3
DISPLAY	EN1+4, OPEN+20
E1	EDIT+2
EDIT	SELECT+10
EN1	EN
EXITOUT	EN1+1
FORMAT	DINIT+10
HEAD	DINIT+3
J	HEAD+4, HEAD+6, HEAD+8, HEAD+12, HEAD+20, HEAD+22, FORMAT+46, FORMAT+50
SELECT	EDIN+2
SUPPSET	DINIT+8, A1+4
SURE	ADD
VALM	DISP1+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABDMTMS	EDIN+3!
ABM	EXITOUT!, DINIT+4, DINIT+5, DINIT+7
>> ABM0	CL1+1, CL1+2, DINIT+9, SUPPSET+1, FORMAT+1, FORMAT+25, FORMAT+28, A1+13, A1+21
>> ABM1	SUPPSET+2*, FORMAT+29, FORMAT+30, FORMAT+32, A1+6, A1+7, A1+15
>> ABM2	SUPPSET+3*, FORMAT+33, FORMAT+34, FORMAT+35, FORMAT+36, A1+13, A1+16, A1+17, A1+21, A1+22 , A1+23, A1+27
ABMAR	EXITOUT!, EXIT+2!
>> ABMBEGIN	DISPLAY+2, DATE+19*, DATE+29, DINIT+4
>> ABMCNT	DINIT+2, FORMAT+37, FORMAT+38, FORMAT+51, SELECT+2
ABMDA	EXITOUT!, CLAIM+7*, CL1+1, CL1+2, DATE+2, FORMAT+3, FORMAT+6, A1+1, A1+9, A1+19 , A1+25, A1+34, OPEN~, OPEN+3, OPEN+6
ABMDIR	EXIT+2!
ABMDTMS	EXITOUT!, SELECT+1, SELECT+9, SELECT+11!, OPEN+1!, EDIN+1
ABMDTMS("OUT"	OPEN+1, OPEN+2*
>> ABMEND	DISPLAY+2, DATE+20, DATE+29, DATE+30*, DINIT+5
ABMFL	EXITOUT!, EXIT+2!
ABMFN	EXITOUT!, EXIT+2!
ABMHDR	EXITOUT!, DISP1+1*, HDR+1, EXIT+2!
ABMI	EXITOUT!, EXIT+2!
ABMJ	EXITOUT!, DINIT+11, ADDITEM+1~, ADDITEM+2, EDIT+1~, EDIT+2*
>> ABMNUM	CL1+2*, HEAD+3, SURE+4
ABMOUT	EN, EXITOUT!
ABMQUIT	EN, EXITOUT!, EN1+3, EN1+5!, CLAIM+6, DATE+18, SELECT+6!, ADD+1!, SURE+8*, OPEN+4!
ABMROU	EXITOUT!, EXIT+2!
>> ABMSDA	DINIT+6, DINIT+7, SUPPSET+1, SUPPSET+2, SUPPSET+3, FORMAT+51, A1+2*, A1+3, A1+32
>> ABMSET	ADDITEM+2, SELECT+8*, SURE+2, EDIT+2
ABMVALM	EXITOUT!, DISP1+2*, DISP1+3, VALM~, VALM+6
ABMX	EXITOUT!, ADDITEM+1~, ADDITEM+2, A1+2, EDIT+1~, EDIT+2, E1+1
>> ADMIT	FORMAT+3, FORMAT+4, FORMAT+5, FORMAT+9, FORMAT+10, FORMAT+12*, FORMAT+18
>> CLAIM	FORMAT+28*, FORMAT+45
DA	A1+31!, A1+32, A1+36!, E1+1, E1+2
DA(1	A1+1*, A1+10, A1+20, A1+26
DD	A1+31!, A1+36!
>> DDSFILE	E1+4*
>> DEPTCODE	FORMAT+32*, FORMAT+49
DFN	EXITOUT!, CL1+2*, DATE+1, DINIT+5, DINIT+7, FORMAT+2, OPEN~, OPEN+3, OPEN+5, OPEN+12 , OPEN+14
DIC	CLAIM+1, CLAIM+5!, A1+9, A1+19, A1+25, A1+31!, A1+36!
DIC("A"	CLAIM+3*
DIC("DR"	A1+13, A1+15, A1+21, A1+27
DIC(0	CLAIM+2, A1+29
DIE	A1+33, A1+36!, E1+4
DIR	DATE+17!, DATE+28!, SELECT+5!, SURE+7!
DIR("?"	DATE+15, DATE+26
DIR("A"	DATE+14, DATE+25, SELECT+3, SURE+4
DIR("B"	DATE+12, DATE+23, SURE+5*
DIR(0	DATE+13, DATE+24, SELECT+2, SURE+3
>> DISCHARG	FORMAT+4, FORMAT+13, FORMAT+14, FORMAT+16
>> DISPFEE	A1+13
DR	A1+31!, A1+34, A1+36!, E1+3
DT	DATE+21, OPEN+7
DUZ(2	CLAIM+1, CL1+1, DATE+2, FORMAT+3, FORMAT+6, A1+9, A1+10, A1+19, A1+20, A1+25 , A1+26, OPEN+6
>> FROM	DATE+2, DATE+3, DATE+4, DATE+5, FORMAT+6, FORMAT+7, FORMAT+8, FORMAT+17, FORMAT+20, FORMAT+35 , OPEN+6, OPEN+8*, OPEN+11
>> HCPCCODE	FORMAT+35*, FORMAT+43
IOF	OPEN+17
>> ISSUDATE	FORMAT+27*, FORMAT+47
>> J	DINIT+11, HEAD+1, HEAD+23, J+1, J+2
>> JHEAD	HEAD+23*
>> MEDDA	FORMAT+30*, FORMAT+31
>> NDC	FORMAT+31*, FORMAT+48
PATIENT	EXITOUT!, DATE+1, DATE+10, HEAD+5, FORMAT+2, OPEN+5*
>> PRICE	FORMAT+34*, FORMAT+41
>> QUANTITY	FORMAT+33*, FORMAT+40
>> REVCODE	FORMAT+36*, FORMAT+44
>> SUPPLY	FORMAT+1*, FORMAT+39
>> TO	DATE+3, DATE+8, DATE+9, DATE+11, HEAD+7, FORMAT+7, FORMAT+21, FORMAT+22, FORMAT+24, OPEN+7* , OPEN+12
>> TRANCODE	FORMAT+29*, FORMAT+42
U	DATE+1, DATE+3, FORMAT+1, FORMAT+2, FORMAT+4, FORMAT+7, FORMAT+25, FORMAT+28, FORMAT+29, FORMAT+30 , FORMAT+31, FORMAT+32, FORMAT+33, FORMAT+34, FORMAT+35, FORMAT+36, A1+6, A1+7, A1+10, A1+13 , A1+15, A1+16, A1+17, A1+20, A1+21, A1+22, A1+23, A1+26, A1+27, OPEN+5
VALMBCK	EXITOUT!, BACK*
>> VALMCC	VALM+2*
>> VALMCNT	DINIT+11*
>> VALMHDR(1	HDR+1*
>> VALMSG	VALM+1, HDR+2
VISDATE	EXITOUT!, DATE+7*, DATE+10, DATE+12, HEAD+7
X	HEAD+2, HEAD+3, HEAD+5, HEAD+7, HEAD+9, HEAD+10, HEAD+11, HEAD+13, HEAD+14, HEAD+15 , HEAD+16, HEAD+17, HEAD+18, HEAD+19, HEAD+21, FORMAT+38, FORMAT+39, FORMAT+40, FORMAT+41, FORMAT+42 , FORMAT+43, FORMAT+44, FORMAT+45, FORMAT+47, FORMAT+48, FORMAT+49, A1+5, A1+7, A1+8, A1+17 , A1+18, A1+23, A1+24, A1+28, J+2, J+3, OPEN+9~, OPEN+11, OPEN+12, OPEN+14 , HELP+1*
>> XQORS	EXIT+3
Y	CLAIM+6, CLAIM+7, DATE+5, DATE+7, DATE+8, DATE+9, DATE+18, DATE+19, DATE+20, DATE+21* , DATE+23, DATE+29, DATE+30, FORMAT+10, FORMAT+12, FORMAT+14, FORMAT+16, FORMAT+18, FORMAT+20, FORMAT+22 , FORMAT+24, FORMAT+25, FORMAT+27, SELECT+7, SELECT+8, SURE+8, OPEN+9~, OPEN+13, OPEN+14*
Z	OPEN+9~, OPEN+10, OPEN+12, OPEN+15, OPEN+16

Customize PDF page

Package: Third Party Billing

Routine: ABMDTMS

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: