Routine: ABSPOSI

Information

ABSPOSI ; IHS/FCS/DRS - Data entry w/ScreenMan ; [ 09/12/2002 10:10 AM ]

Source Information

Source file <ABSPOSI.m>

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Pharmacy Point of Sale	9	ZWRITE^ABSPOS UPD^ABSPOS6A $$NEW^ABSPOSI NOCLM^ABSPOSIH NOCLM^ABSPOSII ^ABSPOSIV FILE^ABSPOSIZ LOG^ABSPOSL2 ($$IMPOSS,IMPOSS)^ABSPOSUE
VA Fileman	3	^DDS HLP^DDSUTL (FILE,UPDATE)^DIE
Registration	1	FULL^VALM1

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Pharmacy Point of Sale	3	ABSPOS6C ABSPOSI ABSPOSIV

Entry Points

Name	Comments	DBIA/ICR reference
NEWREC(NMULT,NINS,ORIGIN)	;EP - from ABSPOSIV - a new PEC/MIS INPUT record ; NMULT = how many multiples to initialize (opt, defaults to 9) ; NINS = how many insurance lines to init for each one (opt, def to 5) ; ORIGIN = pointer to 9002313.516
DELETE(IEN)
ALL	; This entry point does data entry and submits the claims, both. ; This is what we'll call from the ListManager menu.
MYSCREEN(DA)
GET515A(USER,DEST)	; grab copy of the record for this user
GET515B(A,B)
OLDSTYLE()
INIT(IEN)	;EP - from ABSPOSIV - initialize record IEN
ISEMPTY(DA)
GENINSTR	; general instructions, in the FORM-level pre-action for Block 2C
FNINS()
ALL1	;EP - ABSPOSIV branches back here if user decides he wants Screenman
FNPRESC()
TEST	;
FN()
GL	; quickie global list good for testing
GET515(USER,DEST)	;EP - from ABSPOSIV ; call as GET515(USER,.DESTINATION) ; where .DESTINATION is undefined coming in. ; set DEST(*) = copy of the .515 in effect, ; with defaults overlaid as needed
DELALL	; delete all records ; good for testing
NEW()	;EP - from ABSPOSI

External References

Name	Field # of Occurrence
ZWRITE^ABSPOS	TEST+3, NEWREC+18, INIT+18, GL+3, DELETE+5
UPD^ABSPOS6A	ALL1+9
$$NEW^ABSPOSI	TEST+1
NOCLM^ABSPOSIH	ALL1+13
NOCLM^ABSPOSII	ALL1+18
^ABSPOSIV	ALL+3
FILE^ABSPOSIZ	ALL1+6
LOG^ABSPOSL2	NEWREC+16, INIT+16, DELETE+4
$$IMPOSS^ABSPOSUE	NEWREC+19, INIT+19
IMPOSS^ABSPOSUE	DELALL+2, GET515+5
^DDS	MYSCREEN+18
HLP^DDSUTL	GENINSTR+6
FILE^DIE	INIT+15, DELETE+3
UPDATE^DIE	NEWREC+15
FULL^VALM1	ALL+2, ALL1+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ALL1+10
Function Call: WRITE	Prompt: "Because of <PF1> Q,",! Line Location: ALL1+20
Function Call: WRITE	Prompt: "These charges and claims are NOT filed and processed.",! Line Location: ALL1+21
Function Call: WRITE	Prompt: ! Line Location: ALL1+22
Function Call: WRITE	Prompt: ! Line Location: ALL1+23
Function Call: WRITE	Prompt: "NEW^ABSPOSI returns ",$$NEW^ABSPOSI Line Location: TEST+1
Function Call: WRITE	Prompt: "Outputs:",! Line Location: TEST+2
Function Call: WRITE	Prompt: !,"Deleting all records from file ",FN Line Location: DELALL+3
Function Call: WRITE	Prompt: "." Line Location: DELALL+4
Function Call: WRITE	Prompt: ! Line Location: DELALL+5
Routine Call	DIE Line Location: NEWREC+15
Routine Call	DDS Line Location: MYSCREEN+18
Routine Call	DIE Line Location: INIT+15 DELETE+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSP(	DELALL+4, GL+2
^ABSP(9002313.51 - [#9002313.51]	ISEMPTY+1
^ABSP(9002313.515 - [#9002313.515]	GET515A+1, GET515A+2
^ABSP(9002313.516 - [#9002313.516]	NEWREC+7
^TMP("ABSPOSIH"	ALL1+27!, MYSCREEN+6!
^TMP("ABSPOSII"	ALL1+31!, MYSCREEN+10!

Label References

Name	Line Occurrences
$$DELETE	DELALL+4
$$FN	NEWREC+4, INIT+1, DELALL+1, GL+1, DELETE+1
$$FNINS	NEWREC+5
$$FNPRESC	NEWREC+5
$$MYSCREEN	NEW+1
$$NEW	ALL1+1
$$NEWREC	MYSCREEN+15
$$OLDSTYLE	ALL+3
GET515	INIT+5, OLDSTYLE+2
GET515A	GET515+6, GET515+9, GET515+13
GET515B	GET515+10, GET515+14
GL	TEST+4, DELALL+5
INIT	MYSCREEN+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ALL1+10~, ALL1+22
A	GET515B~
A(	GET515B+4*
AR	GENINSTR+1~, GENINSTR+6
AR(1	GENINSTR+2, GENINSTR+3
ARR	INIT+4~, INIT+5, GET515+8~, GET515+9, GET515+10, GET515+12~, GET515+13, GET515+14
ARR(1	INIT+6
ARR(100	INIT+9
B	GET515B~
B(	GET515B+2, GET515B+3
DA	MYSCREEN~, MYSCREEN+14, MYSCREEN+15*, MYSCREEN+16, MYSCREEN+20, MYSCREEN+21, TEST+5, ISEMPTY~, ISEMPTY+1
DDSCHANG	MYSCREEN+3~
DDSFILE	MYSCREEN+2~, MYSCREEN+12*
DDSPAGE	MYSCREEN+2~
DDSPARM	MYSCREEN+2~, MYSCREEN+17*
DDSSAVE	MYSCREEN+3~, MYSCREEN+20
DEST	GET515~, GET515+4, GET515+6, GET515+10, GET515+14, GET515A~, GET515A+2*
DEST(0	GET515+7
DIMSG	MYSCREEN+3~
DR	MYSCREEN+2~, MYSCREEN+13*
DTOUT	MYSCREEN+3~
DUZ	INIT+2, INIT+5, OLDSTYLE+2
FDA	NEWREC+4~, INIT+1~, DELETE+1~
FDA(	NEWREC+6, NEWREC+7, NEWREC+10, NEWREC+12, INIT+2, INIT+8, INIT+13, DELETE+2
FN	NEWREC+4~, NEWREC+6, NEWREC+7, INIT+1~, INIT+2, INIT+8, INIT+13, DELALL+1~, DELALL+3, DELALL+4 , GL+1~, GL+2, DELETE+1~*, DELETE+2
FNINS	NEWREC+5~*, NEWREC+12
FNPRESC	NEWREC+5~*, NEWREC+10
I	NEWREC+8~, NEWREC+9, NEWREC+10, NEWREC+12, INIT+4~, INIT+7, INIT+8, INIT+12, INIT+13, GET515B+1~ , GET515B+3, GET515B+4
IEN	NEWREC+4~, INIT~, INIT+1, INIT+2, INIT+8, INIT+13, DELALL+4~, DELETE~, DELETE+1, DELETE+2 , GET515A+1~, GET515A+2
IEN(999999	NEWREC+17, NEWREC+20
INPUTIEN	ALL1+1~*, ALL1+3, ALL1+6
J	NEWREC+11~*, NEWREC+12
MSG	NEWREC+4~, NEWREC+16, NEWREC+17, INIT+1~, INIT+16, INIT+17, INIT+20, DELETE+1~, DELETE+4, DELETE+5
NEW	NEWREC+4~*, NEWREC+6, NEWREC+7, NEWREC+9
NINS	NEWREC~, NEWREC+11
NMULT	NEWREC~, NEWREC+8
NODISPLY	ALL1+9~*
ORIGIN	NEWREC~, NEWREC+7
S	GET515B+1~, GET515B+2, GET515B+3, GET515B+4
STOP	NEWREC+14~, NEWREC+17, NEWREC+19, INIT+14~, INIT+17, INIT+19
U	MYSCREEN+21, ISEMPTY+1, NEWREC+7, INIT+7, INIT+8, INIT+12, INIT+13, OLDSTYLE+3, GET515+7, GET515B+3 , GET515B+4
USER	GET515~, GET515+6, GET515+9, GET515A~, GET515A+1
>> VALMBCK	ALL1+24*
X	NEWREC+9~, NEWREC+10, NEWREC+12, GL+2~, OLDSTYLE+2~, GET515B+1~, GET515B+3*
X(0	OLDSTYLE+3
Y	INIT+4~, INIT+6, INIT+7, INIT+8, INIT+9, INIT+12, INIT+13, GET515B+1~, GET515B+3*, GET515B+4

Marked Items

Name	Field # of Occurrence
$T(	NEWREC+19, INIT+19, DELALL+2, GET515+5

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSI

Call Graph Total: 13

Caller Graph Total: 3