Routine: ABSPOS6J

Information

ABSPOS6J ; IHS/FCS/DRS - user screen subrous ;

Source file <ABSPOS6J.m>

Package	Total	Call Graph
Pharmacy Point of Sale	3	UPD^ABSPOS6A ($$FREETEXT,$$NUMERIC)^ABSPOSU2 $$SET^ABSPOSU3
Registration	1	FULL^VALM1
VA Fileman	1	^DIC

Name	Comments	DBIA/ICR reference
HDR4	; Frequency of updates in continuous update mode ; HDRA rejoins here
HDR88
HDR2	; just one user - which one?
HDR3	; time frame to keep patient on screen
HDR1
HDR8
HDR9
HEADER	; protocol ABSP P1 HEADER ; edit header (EV "Edit view screen") ; first, ask "All users or just one user or one patient?"
HDRA	; display for which one patient? ; ABSP1.0T77 : ; Want to do the lookup with DUZ(2)=0 so as to be able to ; access all point of sale patients regardless of division. ; SAC 2.3.1.4.1 says this is okay so long as we reset DUZ(2) ; to its original value.
HDR8A

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: HEADER+4
Function Call: WRITE	Prompt: ! Line Location: HDR1+1
Function Call: WRITE	Prompt: ! Line Location: HDR2+4
Function Call: WRITE	Prompt: !,"Enter the number of MINUTES, the length of time that",! Line Location: HDR3+1
Function Call: WRITE	Prompt: "completed transactions will be retained on the screen.",! Line Location: HDR3+2
Function Call: WRITE	Prompt: ! Line Location: HDR3+5
Function Call: WRITE	Prompt: " ??" Line Location: HDR3+7
Function Call: WRITE	Prompt: !,"Enter the number of SECONDS between updates when the display",! Line Location: HDR4+3
Function Call: WRITE	Prompt: "is in CONTINUOUS UPDATE MODE.",! Line Location: HDR4+4
Function Call: WRITE	Prompt: ! Line Location: HDR4+5
Function Call: WRITE	Prompt: !,"Settings have been changed.",! Line Location: HDR88+0
Function Call: WRITE	Prompt: !,"No settings have been changed.",! Line Location: HDR8A+0
Function Call: WRITE	Prompt: "Done",! Line Location: HDR9+0
Function Call: WRITE	Prompt: ! Line Location: HDRA+9
Function Call: WRITE	Prompt: !,"Enter the number of DAYS to go back to find" Line Location: HDRA+12
Function Call: WRITE	Prompt: !,"Point of Sale activity for ",$P(Y(0),U),"." Line Location: HDRA+13
Function Call: WRITE	Prompt: ! Line Location: HDRA+14
Function Call: WRITE	Prompt: ! Line Location: HDRA+20
Function Call: WRITE	Prompt: ! Line Location: HDRA+21
Routine Call	DIC Line Location: HDR2+4 HDRA+9

Name	Line Occurrences (* Changed, ! Killed)
^TMP("ABSPOS"	HDR3+3, HDR4+5, HDR8, HDR8+2, HDR8+3, HDRA+14, HDRA+25, HDRA+26*
^VA(200 - [#200]	HDR2+2

Name	Field # of Occurrence
ABSPDUZ2	HDRA+6~*, HDRA+10
BBLIMIT	HDRA+6~, HDRA+19*, HDRA+20
DA	HEADER+3~
DIC	HEADER+3~, HDR2+1, HDRA+7
DIC("A"	HDR2+1, HDRA+7
DIC("B"	HDR2+2*
DIC("S"	HDRA+8*
DIC(0	HDR2+1, HDRA+7
DTOUT	HEADER+3~, HDR2+4, HDRA+11
DUOUT	HEADER+3~, HDR2+4, HDRA+11
DUZ	HDR2+2
DUZ(2	HDRA+6, HDRA+10
NODISPLY	HDR88+2~*
PAT	HEADER+3~, HDRA+11*, HDRA+25
PATTIME	HEADER+3~, HDRA+24*, HDRA+25
TIMEWIN	HEADER+3~, HDR3+8*, HDR8+1
U	HDR2+2, HDRA+13
UPDFREQ	HEADER+3~, HDR4+7*, HDR8+2
>> VALMBCK	HDR9+1*
WHO	HEADER+3~, HDR1+6, HDR1+7, HDR2+4*, HDR8
X	HEADER+3~, HDR1, HDR1+2, HDR1+6, HDR1+7, HDR3+3, HDR3+4, HDR3+5, HDR3+6, HDR3+7 , HDR3+8, HDR4+2, HDR4+5, HDR4+6, HDR4+7, HDRA+14, HDRA+20*, HDRA+23, HDRA+24
Y	HEADER+3~, HDR2+4, HDR3+4*, HDR3+5, HDRA+11
Y(0	HDRA+13