Routine: ABSPOSUA

Package	Total	Call Graph
Pharmacy Point of Sale	3	RESPINFO^ABSPOSQ4 $$STATI^ABSPOSU IMPOSS^ABSPOSUE
VA Fileman	1	(C,H,NOW,YMD)^%DTC

Package	Total	Caller Graph
Pharmacy Point of Sale	2	ABSPOS6I ABSPOS6M

Entry Points

Name	Comments	DBIA/ICR reference
DISP99
DEFDEST()
SORT(USER,PATDFN,TDIF,INIT,DEST,LOCK)	;EP - from ABSPOS6I ; USER = DUZ or 0 for all users ; USER = DUZ # you want; MINS = within the last N minutes ; (Because of timing, you might catch a prescription more than once) ; PATDFN = a particular patient or 0 for all patients ; TDIF = days.hhmmss = 0.0015, for instance, for last 15 minutes ; or TSINCE, e.g. 2991105.140305, for changes since absolute time ; If TDIF is given, TSINCE is computed from NOW^%DTC and TDIF ; TDIF can be positive and we'll take care of treating it as minus. ; TDIF can theoretically be days.hhmmss but in practice it's ; either one or the other. ; INIT = 1 if you want to init list (erase what's there now) ; DEST defaults to ^TMP("ABSPOSUA",$J) ; If it's a global,it must begin with ^TMP( or ^UTILITY( ; LOCK defaults to 1, Lock file 9002313.59 ; It seems that not locking really does lead to some misleading ; displays. ; - - - - - It builds this: - - - - - ; @DEST=how many patients ; @DEST@(patname)=how many prescriptions for this patient ; @DEST@(patname,"RXI",ABSBRXI)=status^datetime last update ; And this node, which we aren't using anymore: ; @DEST@(patname,100-status,9'sDate9'sTime,ABSBRXI)="" for each presc
SHOULDNT
TADDLOOP
SAVEOLD
SAVEAREA()
DISP1	; given RXI
DISPRESP	;EP - ABSPOS6M ; Given REC(2) = result, RXI = prescription
TDIF(T1,T2)
TADDE
SORT1
SORT0
SORT3	;
SORT2	; If doing one particular patient, then use the patient index
DISP(USER)	; display @ROOT@(pat,status99,time99,rxi)
TT()
TADD(T1,T2)

External References

Name	Field # of Occurrence
C^%DTC	TADD+7
H^%DTC	TADD+11
NOW^%DTC	SORT1
YMD^%DTC	TADDLOOP+5
RESPINFO^ABSPOSQ4	DISPRESP+4
$$STATI^ABSPOSU	DISP1+9
IMPOSS^ABSPOSUE	SORT0+7, TADDE

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " for ",$P(^VA(200,USER,0),U) Condition for execution: $G(USER) Line Location: DISP+3
Function Call: WRITE	Prompt: ! Line Location: DISP+3
Function Call: WRITE	Prompt: "`",RXI," " Line Location: DISP1+6
Function Call: WRITE	Prompt: " ",$P($G(^DPT(PAT,0)),U)," " Line Location: DISP1+8
Function Call: WRITE	Prompt: $E($$STATI^ABSPOSU(STAT),1,30) Line Location: DISP1+9
Function Call: WRITE	Prompt: " ",Y Line Location: DISP1+10
Function Call: WRITE	Prompt: ! Line Location: DISP99+0
Function Call: WRITE	Prompt: ! Line Location: DISPRESP+7
Function Call: WRITE	Prompt: ! Line Location: DISPRESP+8
Function Call: WRITE	Prompt: !?10,RSP("MSG") Line Location: DISPRESP+10
Function Call: WRITE	Prompt: !?10,RSP("REJ",I) Line Location: DISPRESP+11
Function Call: WRITE	Prompt: !?5,$P(REC(2),U,2,$L(REC(2),U)) Line Location: DISPRESP+14
Function Call: WRITE	Prompt: "this should never happen" Line Location: SHOULDNT+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSPT - [#9002313.59]	DISP1+1
^DPT - [#2]	SORT3+15, DISP1+8
^TMP("ABSPOSUA"	DISP+2, DISP+4, DISP+5, DISP+6
^VA(200 - [#200]	DISP+3

Label References

Name	Line Occurrences
$$DEFDEST	SAVEOLD, SORT0+5
$$SAVEAREA	SAVEOLD
$$TADD	SORT1+4
$$TT	DISP1+3
DISP1	DISP+7
DISP99	DISP1+11
DISPRESP	DISP1+12
SORT2	SORT1+7
SORT3	SORT2+5, SORT2+8
TADDE	TADD+4
TADDLOOP	TADDLOOP, TADDLOOP+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	SORT1~, TADD+3~, TADD+13*, TADDLOOP+6
%H	SORT1~, TADD+3~, TADD+11, TADD+16, TADDLOOP, TADDLOOP+1, TADDLOOP+2, TADDLOOP+3
%I	SORT1~
%T	TADD+3~, TADD+11
%Y	TADD+3~
ABSPCLSD	SORT3+5~, SORT3+6*, SORT3+7
DEST	SORT~, SORT0+5*, SORT0+6, SORT0+7, SORT1+5, SORT1+9, SORT3+17, SORT3+18, SORT3+20, SORT3+22 , SORT3+23
H1	TADD+3~
H2	TADD+3~
I	DISP+1~, DISP1+4, DISPRESP+11~
INIT	SORT~, SORT0+4*, SORT1+5
LOCK	SORT~, SORT0+8*, SORT1+6, SORT1+8
NOW	SORT1~*, SORT1+4
PAT	DISP1+7~*, DISP1+8
PATDFN	SORT~, SORT0+2, SORT2+1, SORT2+3, SORT3+3, SORT3+14~, SORT3+15, SORT3+16
PATNAME	SORT3+15~, SORT3+16, SORT3+17, SORT3+18, SORT3+20, SORT3+22, SORT3+23
R	TDIF+3~, TDIF+9, TDIF+10
REC	DISP1+1~*
REC(	DISP1+4*
REC(0	DISP1+5, DISP1+7, DISP1+10
REC(2	DISPRESP+2, DISPRESP+14
RES	DISPRESP+2~*, DISPRESP+3, DISPRESP+13
ROOT	SORT1+2~*, SORT1+6, SORT1+8, SORT2+3, SORT2+4, SORT2+7, SORT2+8, SORT3+1, SORT3+6
ROU	SORT0~, DISP+1~
RSP	DISPRESP+4~
RSP("HDR"	DISPRESP+5, DISPRESP+8
RSP("MSG"	DISPRESP+10
RSP("REJ"	DISPRESP+11
RSP("RSP"	DISPRESP+9
RXI	SORT2+3, SORT2+4, SORT2+8, SORT3+1, SORT3+6, SORT3+18, SORT3+22, SORT3+23, DISP+1~, DISP+6* , DISP1+1, DISP1+6, DISPRESP+4
SGN	TADD+3~, TADD+5*, TADD+13
STARTTIM	SORT1+1~, SORT1+3, SORT1+4, SORT2+2*, SORT2+4
STAT	DISP1+5~*, DISP1+9, DISP1+11
STAT99	SORT3+12~*, SORT3+22
STATUS	SORT3+11~*, SORT3+12, SORT3+23
T1	TDIF~, TDIF+2, TDIF+3, TDIF+4, TDIF+5, TDIF+7, TDIF+9, TADDE, TADD~, TADD+4 , TADD+7*, TADD+10, TADD+11
T2	TDIF~, TDIF+2, TDIF+3, TDIF+4, TDIF+6, TDIF+8, TDIF+9, TADD~, TADD+5, TADD+6 , TADD+8, TADD+10, TADD+13, TADD+16
TDIF	SORT~, SORT0+3*, SORT1+3, SORT1+4
TIME	SORT1+1~, SORT1+3, SORT1+4, SORT2+7*, SORT2+8, SORT3+23
TIME99	SORT3+13~*, SORT3+22
TT	DISP1+3~*, DISP1+10
U	SORT2+4, SORT3+2, SORT3+3, SORT3+6, SORT3+11, SORT3+13, SORT3+14, SORT3+15, SORT3+23, DISP+3 , DISP1+5, DISP1+7, DISP1+8, DISP1+10, DISPRESP+2, DISPRESP+14
USER	SORT~, SORT0+1*, SORT3+2, DISP~, DISP+3
X	SORT1~, SORT3+1~, SORT3+2, SORT3+3, SORT3+11, SORT3+13, SORT3+14, DISP+1~, DISP+4, DISP+5 , DISP+6, DISP+7~, DISP1+2~, TADD+3~, TADD+7, TADD+11*, TADDLOOP+6
X1	TADD+3~, TADD+7*
X2	TADD+3~, TADD+6*, TADD+7
Y	DISP+1~, DISP+5, DISP+6, DISP+7~, DISP1+2~, DISP1+10

Marked Items

Name	Field # of Occurrence
$T(	DEFDEST, SAVEAREA, SORT0, SORT0+7, DISP+1, TADDE

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSUA

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items