Routine: ABSPOSC4

Package	Total	Call Graph
Pharmacy Point of Sale	8	ZWRITE^ABSPOS $$DEF5599^ABSPOSA ($$LLIST,ULLIST)^ABSPOSAP ($$PACKET,LOG)^ABSPOSC2 RUNTEST^ABSPOSC3 $$SWTYPE^ABSPOSCC LOG^ABSPOSL2 $$IMPOSS^ABSPOSUE
VA Fileman	3	(FILE,UPDATE)^DIE EN1^DIP ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
THETEST	;EP - option
SETUP31()	; fill in some fields in the 9002313.31 header ; ret true/false
RESPONSE()	; does IEN31 have a response for the generated claim? ; returns false if not, else returns IEN in 9002313.03
PRINTRSP
INSFIND()	; returns IEN to ^AUTNINS, false if not found
IEN4DEL()	; delete the ABSP INSURER entry (because we temporarily created it) ; returns TRUE if successfully deleted
TEST1(DIALOUT)	; returns true if success, false if failure ; given INSNAME is insurer name and also format name ; (this is usually not the case!)
EXIT
DEFDIAL()	; returns IEN to the default dial out
IEN4FIND()	; returns IEN to 9002313.4, false if not found
IEN4MAKE()	; given INSNAME and FMTNAME ; return TRUE if successfully created ; FALSE if not
WAIT	; wait for response ; either user's decision to stop or we've noticed response rec'd

External References

Name	Field # of Occurrence
ZWRITE^ABSPOS	IEN4MAKE+11
$$DEF5599^ABSPOSA	TEST1+4
$$LLIST^ABSPOSAP	EXIT+4
ULLIST^ABSPOSAP	EXIT+6
$$PACKET^ABSPOSC2	TEST1+35
LOG^ABSPOSC2	TEST1+50, WAIT+12
RUNTEST^ABSPOSC3	TEST1+42
$$SWTYPE^ABSPOSCC	SETUP31+4
LOG^ABSPOSL2	IEN4MAKE+10, IEN4DEL+5, SETUP31+17
$$IMPOSS^ABSPOSUE	SETUP31+8
FILE^DIE	IEN4DEL+4, SETUP31+16
UPDATE^DIE	IEN4MAKE+9
EN1^DIP	PRINTRSP+7
^DIR	WAIT+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: THETEST+1
Function Call: WRITE	Prompt: ! Line Location: THETEST+2
Function Call: WRITE	Prompt: "This is a test of the send-and-receive mechanism.",! Line Location: THETEST+3
Function Call: WRITE	Prompt: "It sends a test claim to an insurer.",! Line Location: THETEST+4
Function Call: WRITE	Prompt: "The claim should be rejected; it is only a test claim",! Line Location: THETEST+5
Function Call: WRITE	Prompt: "and the data is made-up.",! Line Location: THETEST+6
Function Call: WRITE	Prompt: ! Line Location: THETEST+7
Function Call: WRITE	Prompt: "This test should be done ONLY on a QUIET Point of Sale system.",! Line Location: THETEST+8
Function Call: WRITE	Prompt: "There are theoretically possible conflicts with live processing,",! Line Location: THETEST+9
Function Call: WRITE	Prompt: "which seem minor. Time has not permitted a comprehensive analysis.",!! Line Location: THETEST+10
Function Call: WRITE	Prompt: "The test succeeded!",! Line Location: THETEST+20
Function Call: WRITE	Prompt: "The test failed!",! Line Location: THETEST+22
Function Call: WRITE	Prompt: "Default dialout not set up yet?!",! Line Location: TEST1+5
Function Call: WRITE	Prompt: "Using dial out ",$P(^ABSP(9002313.55,DIALOUT,0),U),! Line Location: TEST1+6
Function Call: WRITE	Prompt: "Missing entry in 9002313.31.",! Line Location: TEST1+8
Function Call: WRITE	Prompt: "Missing ",INSNAME," in INSURER file",! Line Location: TEST1+10
Function Call: WRITE	Prompt: "Missing format ",INSNAME," in INSURER file",! Line Location: TEST1+12
Function Call: WRITE	Prompt: "Failed to create an ABSP INSURER entry for ",INSNAME,! Line Location: TEST1+17
Function Call: WRITE	Prompt: "Failed in SETUP31, trying to set some fields in 9002313.31.",! Line Location: TEST1+31
Function Call: WRITE	Prompt: "Failed to create claim packet in 9002313.02",! Line Location: TEST1+37
Function Call: WRITE	Prompt: "Sending the test claim..." Line Location: TEST1+41
Function Call: WRITE	Prompt: " it's been handed to the background job.",! Line Location: TEST1+43
Function Call: WRITE	Prompt: "No response received (yet)",! Line Location: TEST1+49
Function Call: WRITE	Prompt: !,"Yes, response received!",! Line Location: TEST1+52
Function Call: WRITE	Prompt: "Failed to delete temporary ABSP INSURER entry for ",INSNAME,! Line Location: EXIT+1
Function Call: WRITE	Prompt: "Wait several seconds for the response - probably about 60 seconds",! Line Location: WAIT+2
Function Call: WRITE	Prompt: " for a modem connection, or 30 seconds for the T1 line.",! Line Location: WAIT+3
Function Call: WRITE	Prompt: "Type Q to Quit; L to view log file of transmission",! Line Location: WAIT+4
Function Call: WRITE	Prompt: "Waiting for response to the test message..." Line Location: WAIT+5
Function Call: WRITE	Prompt: !?10 Condition for execution: $X>65 Line Location: WAIT+7
Function Call: WRITE	Prompt: "." Line Location: WAIT+7
Function Call: WRITE	Prompt: !,"Can't find ",INSNAME," in ^AUTNINS",! Line Location: IEN4MAKE+4
Function Call: WRITE	Prompt: !,"Missing ",FMTNAME," from ^ABSPF(9002313.92)",! Line Location: IEN4MAKE+7
Routine Call	DIE Line Location: IEN4MAKE+9
Routine Call	DIE Line Location: IEN4DEL+4 SETUP31+16
Routine Call	DIR Line Location: WAIT+9

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSP(9002313.31 - [#9002313.31]	TEST1+7, SETUP31+7, SETUP31+13
^ABSP(9002313.55 - [#9002313.55]	TEST1+6, DEFDIAL+1
^ABSPC - [#9002313.02]	PRINTRSP+4
^ABSPECX("POS"	EXIT+3, EXIT+5!
^ABSPEI - [#9002313.4]	IEN4DEL+6
^ABSPEI("B"	IEN4FIND+1
^ABSPF(9002313.91 - [#9002313.91]	SETUP31+6, SETUP31+12
^ABSPF(9002313.92 - [#9002313.92]	TEST1+11, IEN4MAKE+6
^ABSPR("B"	RESPONSE+2
^AUTNINS("B"	INSFIND+1, IEN4MAKE+3

Label References

Name	Line Occurrences
$$IEN4DEL	EXIT
$$IEN4FIND	TEST1+15
$$IEN4MAKE	TEST1+16
$$INSFIND	TEST1+9, IEN4FIND+1
$$RESPONSE	TEST1+48, WAIT+10
$$SETUP31	TEST1+30
$$TEST1	THETEST+18
EXIT	TEST1+30, TEST1+36, TEST1+48
PRINTRSP	TEST1+53
WAIT	TEST1+47

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BY	PRINTRSP+3~*
DHD	PRINTRSP+5~*
DIALOUT	TEST1~, TEST1+4*, TEST1+6, TEST1+35, TEST1+42, EXIT+3, EXIT+5, SETUP31+4
DIC	PRINTRSP+1~*
DIR	WAIT+8~
DIR("A"	WAIT+9*
DIR("T"	WAIT+9*
DIR(0	WAIT+8*
DT	SETUP31+10, SETUP31+15
F401	SETUP31+5~, SETUP31+6*, SETUP31+7
F414	SETUP31+11~, SETUP31+12*, SETUP31+13
FDA	IEN4MAKE+2~, IEN4DEL+2~, SETUP31+1~
FDA(	IEN4MAKE+5, IEN4MAKE+8, IEN4DEL+3, SETUP31+2, SETUP31+3, SETUP31+4, SETUP31+10, SETUP31+15
FLDS	PRINTRSP+2~*
FMTNAME	TEST1+3~*, IEN4MAKE+6, IEN4MAKE+7
FN	IEN4MAKE+2~, SETUP31+1~, SETUP31+2, SETUP31+3, SETUP31+4
FR	PRINTRSP+4~*
IEN02	TEST1+35~*, TEST1+36, TEST1+42, RESPONSE+2, PRINTRSP+4
IEN31	TEST1+7~*, TEST1+8, TEST1+35, SETUP31+1, SETUP31+7, SETUP31+13
IEN4	TEST1+15~, TEST1+16, IEN4DEL+3, IEN4DEL+6, SETUP31+3
IEN4ORIG	TEST1+15~*, EXIT
IEN92	TEST1+11~*, TEST1+12
IENARR	IEN4MAKE+2~
IENARR(1	IEN4MAKE+5*, IEN4MAKE+12
IENS	IEN4MAKE+2~, IEN4MAKE+5, IEN4MAKE+8, SETUP31+1~, SETUP31+2, SETUP31+3, SETUP31+4, SETUP31+9, SETUP31+14
IENS401	SETUP31+5~, SETUP31+7, SETUP31+8, SETUP31+9, SETUP31+10
IENS414	SETUP31+11~, SETUP31+13, SETUP31+14, SETUP31+15
INSIEN	TEST1+9~*, TEST1+10
INSNAME	THETEST+12~*, TEST1+3, TEST1+7, TEST1+10, TEST1+11, TEST1+12, TEST1+17, EXIT+1, INSFIND+1, IEN4MAKE+3 , IEN4MAKE+4
IOP	PRINTRSP+6~*
L	PRINTRSP~*
MSG	IEN4MAKE+2~, IEN4MAKE+10, IEN4MAKE+11, IEN4DEL+2~, IEN4DEL+5, SETUP31+1~, SETUP31+17, SETUP31+18
QUIT	WAIT+6~, WAIT+10, WAIT+11*
RESULT	THETEST+18~, THETEST+19, TEST1+28, TEST1+54*, EXIT+8
SEC	WAIT+6~*
TO	PRINTRSP+4~*
U	TEST1+6, PRINTRSP+4
X	WAIT+8~, IEN4MAKE+2~, IEN4MAKE+3, IEN4MAKE+4, IEN4MAKE+5, IEN4MAKE+6, IEN4MAKE+7, IEN4MAKE+8
Y	WAIT+8~, WAIT+10, WAIT+11, WAIT+12

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSC4

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items