Routine: ABSPOSID

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Entry Points
External References
Interaction Calls
Global Variables Directly Accessed
Label References
Local Variables

Package	Total	Call Graph
VA Fileman	4	^%DT (HLP,REFRESH)^DDSUTL ($$GET,PUT)^DDSVAL ^DIR
Pharmacy Point of Sale	2	$$NDCVAL^ABSPFUNC $$YESNO^ABSPOSU3

Package

Total

Call Graph

VA Fileman

^%DT (HLP,REFRESH)^DDSUTL ($$GET,PUT)^DDSVAL ^DIR

Pharmacy Point of Sale

$$NDCVAL^ABSPFUNC $$YESNO^ABSPOSU3

Entry Points

Name	Comments	DBIA/ICR reference
FILL(RXI,RXR)	; return fill date, internal form
VISIT(RXI,RXR)
MSGWAIT(X)	;EP - from ABSPOSI2,ABSPOSI8
LOOK3()	; selection from among all the refill dates ; Returns "^" if none selected (timeout or ^) ; Returns pointer to refill (NOTE! pointer, not date) otherwise
PROCESS(X)	; validate input and return transformed value ; Returns -1 if error and sets DDSERROR
LOOK31	; set up DIR("A",#)=several most recent refill dates ; List them all - the most we've seen at Sitka is 12 refills
MMMDD(Y)	;EP
HELP1(X)
FULLSCRE	; adapted from FULL^VALM1
VALID	; VALID is the Data Validation action for the field. ; It may cause more dialogue. ; It might reset X and DDSEXT. (stored in .06, DATE DISP) ; If it does this, and this RXR is different from the one ; chosen in $$GET^DDSVAL(DIE,.DA,1.02), then other side effects ; need to happen: (EFFECTS, called from here in VALID, unlike ; ABSPOSI1, where it's two separate steps) ;
HELP	;
EFFECTS	; side effects of putting a value in the Fill Date field
VAL1
LOOKUP()	; Choosing which fill date you're processing for ; Returns Pointer to refill, = 0 if first fill ; Returns "" if no selection made
UPPER(X)
LOOK2()	; Want to use the first fill date? ; If yes, returns >0, = internal form of that date ; If no, returns "" ; If timeout or "^", returns "^"

External References

Name	Field # of Occurrence
^%DT	VAL1+10
$$NDCVAL^ABSPFUNC	EFFECTS+7
$$YESNO^ABSPOSU3	LOOK2+9
HLP^DDSUTL	HELP+5, MSGWAIT+3, MSGWAIT+4
REFRESH^DDSUTL	VAL1+8
$$GET^DDSVAL	VALID+9, VALID+10, VAL1+3, VAL1+4, LOOKUP+3
PUT^DDSVAL	EFFECTS+1, EFFECTS+10, EFFECTS+11, EFFECTS+12
^DIR	LOOK3+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: VAL1+2
Function Call: WRITE	Prompt: $$GET^DDSVAL(DIE,.DA,.04) Line Location: VAL1+3
Function Call: WRITE	Prompt: " ",$$GET^DDSVAL(DIE,.DA,.05),! Line Location: VAL1+4
Function Call: WRITE	Prompt: "There are no refills.",! Line Location: LOOKUP+5
Function Call: WRITE	Prompt: IOSC Line Location: FULLSCRE+1
Function Call: WRITE	Prompt: @IOSTBM Line Location: FULLSCRE+1
Function Call: WRITE	Prompt: @IOSTBM Line Location: FULLSCRE+1
Routine Call	DIR Line Location: LOOK3+8

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVMED - [#9000010.14]	VISIT+4
^DD("DD"	VALID+17, LOOK2+6, LOOK31+6, MMMDD+1
^PSRX - [#52]	VAL1+13, VAL1+14, FILL+1, FILL+2, LOOKUP+4, LOOK31+2, LOOK31+5, EFFECTS+8, VISIT+2, VISIT+3

Name	Line Occurrences
$$FILL	VALID+16, LOOK2+6, LOOK2+10
$$LOOK2	LOOKUP+7
$$LOOK3	LOOKUP+8
$$LOOKUP	VAL1+5
$$UPPER	VAL1+1
$$VISIT	EFFECTS+12
EFFECTS	VALID+19
HELP	VAL1+18
HELP1	HELP+2, HELP+3, HELP+4
LOOK31	LOOK3+7
PROCESS	VALID+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	VAL1+10~*
AR	HELP+1~, HELP+5, MSGWAIT+1~, MSGWAIT+3
AR(	HELP1*
AR(1	MSGWAIT+1*
DA	VALID+9, VALID+10, VAL1+3, VAL1+4, LOOKUP+3, LOOK3+4~, EFFECTS+1, EFFECTS+10, EFFECTS+11, EFFECTS+12
DA(1	LOOK3+5*
DDS	LOOK2+4~, LOOK3+3~
DDSERROR	PROCESS+3!, VAL1+6, VAL1+11, VAL1+15*, VAL1+18
>> DDSEXT	VALID+14, VALID+18, VALID+21*, EFFECTS+1
>> DDSOLD	VALID+14, VALID+21
DFLT	LOOK2+5~, LOOK2+8*, LOOK2+9
>> DIE	VALID+9, VALID+10, VAL1+3, VAL1+4, LOOKUP+3, EFFECTS+1, EFFECTS+10, EFFECTS+11, EFFECTS+12
DIR	LOOK3+4~
DIR("A"	LOOK3+6, LOOK31+3, LOOK31+4, LOOK31+9, LOOK31+10*
DIR("B"	LOOK31+7*
DIR(0	LOOK3+5*
DIROUT	LOOK3+4~
DIRUT	LOOK3+4~, LOOK3+9
DTOUT	LOOK3+4~
DUOUT	LOOK3+4~
>> IOBM	FULLSCRE+1*
IOF	VAL1+2
>> IORC	FULLSCRE+1
>> IOSC	FULLSCRE+1
IOSL	FULLSCRE+1
>> IOSTBM	FULLSCRE+1
>> IOTM	FULLSCRE+1*
MAX	LOOK31+2~*, LOOK31+5
N	LOOK31+2~, LOOK31+4, LOOK31+5, LOOK31+9, LOOK31+10, HELP+1~, HELP1*
NDC	EFFECTS+4~, EFFECTS+7, EFFECTS+8, EFFECTS+10
OLDRXR	VALID+10~*, VALID+13
OPT	LOOK2+5~, LOOK2+8*, LOOK2+9
PROMPT	LOOK2+5~, LOOK2+7*, LOOK2+9
RXI	VALID+9~, VALID+16, VAL1+13, VAL1+14, FILL~, FILL+1, FILL+2, LOOKUP+3~, LOOKUP+4, LOOK2+6 , LOOK2+10, LOOK3+5, LOOK31+2, LOOK31+5, EFFECTS+7, EFFECTS+8, EFFECTS+12, VISIT~, VISIT+2, VISIT+3
RXR	VALID+10~!, VALID+12, VALID+13, VALID+16, VAL1+7, VAL1+13, VAL1+14*, FILL~, FILL+1, FILL+2 , EFFECTS+7, EFFECTS+11, EFFECTS+12, VISIT~, VISIT+2
TIMEOUT	LOOK2+5~, LOOK2+8*, LOOK2+9
TOT	LOOK31+2~*
U	VAL1+13, FILL+1, FILL+2, LOOKUP+9, LOOKUP+10, LOOK31+2, EFFECTS+8, VISIT+2, VISIT+3, VISIT+4
VISIT	VISIT+1~, VISIT+2, VISIT+3, VISIT+4*, VISIT+5
X	VALID+11, VALID+14, VALID+18, VALID+21, PROCESS~, VAL1+1, VAL1+5~, VAL1+6, VAL1+7, LOOKUP+6 , LOOKUP+7, LOOKUP+8, LOOKUP+9, LOOKUP+10, LOOKUP+11, LOOK2+5~, LOOK2+9, LOOK2+10, LOOK3+4~, LOOK31+2~ , LOOK31+5*, LOOK31+6, HELP1~, MSGWAIT~, MSGWAIT+1, UPPER~
Y	VALID+16~, VALID+18, VAL1+11, VAL1+13, VAL1+14, LOOK2+5~, LOOK2+6, LOOK2+7, LOOK3+4~, LOOK3+10 , LOOK3+11, LOOK31+2~, LOOK31+6, LOOK31+7, LOOK31+8, LOOK31+10, MMMDD~, MMMDD+1

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSID

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: