Routine: ORWPT

Package	Total	Call Graph
Order Entry Results Reporting	4	DGINQ^ORCXPND1 ($$CWAD,$$EN1)^ORQPT2 SDA^ORQRY01 SAVDFLT^ORWPT1
Registration	2	($$DOB,$$SSN)^DPTLK1 (52,ELIG)^VADPT
Uncategorized	2	HXDATA^A7RDPAGU ($$GETICN,GETICN)^MPIF001
Kernel	1	$$HTFM^XLFDT
Text Integration Utility	1	$$HASDS^TIULX
Toolkit	1	$$GET^XPAR
VA Fileman	1	^DIC

Package	Total	Caller Graph
Order Entry Results Reporting	5	ORQPTQ11 ORRDI1 ORRHCQ ORWGAPI6 ORWGAPI8
Care Management	1	ORRCLPT
Text Integration Utility	1	TIUHL7U1

Entry Points

Name	Comments	DBIA/ICR reference
LAST5RPL(LST,ID)	; ; Return list matching A9999 id's, but from RPL only.
IDINFO(REC,DFN)	; Return identifying information for a patient ; PID^DOB^SEX^VET^SC%^WARD^RM-BED^NAME
DFLTSRC(VAL)	; return default patient list source (T, W, C, P, S)
LAST5(LST,ID)	; Return a list of patients matching A9999 identifiers
TOP(LST)	; Return top for all patients list (last selected for now)
BYWARD(LST,WARD)	; Return a list of patients in a ward
LEGACY(ORLST,DFN)	; return message if data on the legacy system ; ORLST(0)=1 if data, ORLST(n)=display message if data
SAVDFLT(OK,X)	; save new default patient list settings (X=type^ien^sdt;edt)
ENCTITL(REC,DFN,LOC,PROV)	; Return external values for encounter ; LOCNAME^LOCABBR^ROOMBED^PROVNAME
APPTLST(LST,DFN)	; return a list of appointments ; APPTTIME^LOCIEN^LOCNAME^EXTSTATUS
INPLOC(REC,DFN)	; Return a patient's current location
SHARE(VAL,IP,HWND,DFN)	; Set global to share DFN with other applications
LISTALL(Y,FROM,DIR)	; Return a bolus of patient names. From is either Name or IEN^Name.
ROK(X)	; Routine OK (in UCI) (NDBI)
CWAD(Y,DFN)	; returns CWAD flags for a patient
AGE(DFN,BEG)	; returns age based on date of birth and date of death (or DT)
SCDIS(LST,DFN)	; Return service connected % and rated disabilities
CLINRNG(LST)	; return date ranges for clinic appointments
FSSNRPL(LST,ID)	; Return list matching Full SSN, but from RPL only.
DISCHRG(Y,DFN,ADMITDT)	; Get discharge movement information
SHOW	; temporary - show patient inquiry screen
SELECT(REC,DFN)	; Selects patient & returns key information ; 1 2 3 4 5 6 7 8 9 10 11 12 ; NAME^SEX^DOB^SSN^LOCIEN^LOCNM^RMBD^CWAD^SENSITIVE^ADMITTED^CONV^SC^ ; 13 14 15 16 ; SC%^ICN^AGE^TS
FULLSSN(LST,ID)	; Return a list of patients matching full SSN entered
SELCHK(REC,DFN)	; Check for sensitive pt ; SENSITIVE
ADMITLST(LST,DFN)	; return a list of admissions ; MOVETIME^LOCIEN^LOCNAME^TYPE
PTINQ(REF,DFN)	; Return formatted pt inquiry report
DIEDON(VAL,DFN)	; Check for a date of death

External References

Name	Field # of Occurrence
HXDATA^A7RDPAGU	LEGACY+3, LEGACY+4
^DIC	SHOW+1
$$DOB^DPTLK1	IDINFO+4, LAST5+4, LAST5RPL+12, FULLSSN+4, FSSNRPL+15
$$SSN^DPTLK1	IDINFO+4, LAST5+4, LAST5RPL+12, FULLSSN+4, FSSNRPL+15
$$GETICN^MPIF001	SELECT+19
GETICN^MPIF001	SELECT+19
DGINQ^ORCXPND1	PTINQ+2, SHOW+3
$$CWAD^ORQPT2	SELECT+13, CWAD+1
$$EN1^ORQPT2	SELCHK+2, SELECT+13
SDA^ORQRY01	APPTLST+6
SAVDFLT^ORWPT1	SAVDFLT+1
$$HASDS^TIULX	ADMITLST+10
52^VADPT	DISCHRG+3
ELIG^VADPT	SCDIS+2, SELECT+18
$$HTFM^XLFDT	APPTLST+3, APPTLST+4, CLINRNG+10, CLINRNG+13, CLINRNG+14
$$GET^XPAR	DFLTSRC+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,^(I) Line Location: SHOW+4
Routine Call	DIC Line Location: SHOW+1

Used in RPC

RPC Name	Call Tags
ORWPT ID INFO	IDINFO
ORWPT LIST ALL	LISTALL
ORWPT APPTLST	APPTLST
ORWPT ADMITLST	ADMITLST
ORWPT LAST5	LAST5
ORWPT CLINRNG	CLINRNG
ORWPT TOP	TOP
ORWPT SELCHK	SELCHK
ORWPT SELECT	SELECT
ORWPT ENCTITL	ENCTITL
ORWPT PTINQ	PTINQ
ORWPT DFLTSRC	DFLTSRC
ORWPT SHARE	SHARE
ORWPT DISCHARGE	DISCHRG
ORWPT SAVDFLT	SAVDFLT
ORWPT DIEDON	DIEDON
ORWPT CWAD	CWAD
ORWPT FULLSSN	FULLSSN
ORWPT BYWARD	BYWARD
ORWPT LEGACY	LEGACY
ORWPT INPLOC	INPLOC
ORWPT LAST5 RPL	LAST5RPL
ORWPT FULLSSN RPL	FSSNRPL

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	ROK+1
^DG(391 - [#391]	SCDIS+4
^DG(405.1 - [#405.1]	ADMITLST+8
^DGPM - [#405]	SELECT+15, ADMITLST+6, INPLOC+3
^DGPM("ATID1"	ADMITLST+3, ADMITLST+4
^DIC(31 - [#31]	SCDIS+6
^DIC(42 - [#42]	SELECT+12, BYWARD+4, ADMITLST+9, INPLOC+4, INPLOC+5, INPLOC+6
^DISV(	SELECT+23*, TOP+2
^DPT - [#2]	IDINFO+3, SCDIS+5, DIEDON+1, SELECT+7, SELECT+11, SELECT+15, SELECT+21, BYWARD+6, LAST5+3, LAST5+4 , LAST5RPL+12, FULLSSN+4, FSSNRPL+15, TOP+3, ENCTITL+3, LISTALL+6, INPLOC+2, AGE+2
^DPT("B"	LISTALL+2, LISTALL+3, LISTALL+4
^DPT("CN"	BYWARD+5
^DPT("SSN"	FULLSSN+3, FSSNRPL+8
^OR(100.21 - [#100.21]	LAST5RPL+8, LAST5RPL+9, FSSNRPL+10, FSSNRPL+11
^SC - [#44]	ENCTITL+2
^TMP("ORDATA"	PTINQ+1!, PTINQ+3, SHOW+2!, SHOW+4, SHOW+5!
^TMP("ORECALL"	SHARE+1!
^TMP("ORWCHART"	SHARE+1!, SHARE+3*
^TMP("ORWDXMQ"	SHARE+2!
^TMP("ORWORD"	SHARE+1!
^TMP("ORWPCE"	SELECT+10!
^UTILITY("VASD"	APPTLST+2!, APPTLST+7!, APPTLST+8, APPTLST+9, APPTLST+10!
^VA(200 - [#200]	LAST5RPL+3, FSSNRPL+3, ENCTITL+4, DFLTSRC+1

Label References

Name	Line Occurrences
$$AGE	SELECT+20

Naked Globals

Name	Field # of Occurrence
^(	IDINFO+3, SCDIS+5, SHOW+4, SELECT+11
^("E"	APPTLST+9
^("VET"	IDINFO+3
^(44	ADMITLST+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	CLINRNG+9~
%H	CLINRNG+9~
ADMITDT	DISCHRG~, DISCHRG+2, DISCHRG+3
BEG	AGE~, AGE+3
CNT	LISTALL+1~*, LISTALL+3, LISTALL+4
DFN	IDINFO~, IDINFO+3, IDINFO+4, PTINQ~, PTINQ+2, SCDIS~, SCDIS+5, SELCHK~, SELCHK+2, DIEDON~ , DIEDON+1, SELECT~, SELECT+7, SELECT+11, SELECT+13, SELECT+15, SELECT+19, SELECT+20, SELECT+21, SELECT+23 , SHARE~, SHARE+3, BYWARD+1~, BYWARD+3, BYWARD+5, BYWARD+6, ENCTITL~, ENCTITL+3, APPTLST~, ADMITLST~ , ADMITLST+3, ADMITLST+4, ADMITLST+10, DISCHRG~, CWAD~, CWAD+1, LEGACY~, LEGACY+4, INPLOC~, INPLOC+2 , AGE~, AGE+2
DIC	SHOW+1~*
DIC(0	SHOW+1*
DIR	LISTALL~, LISTALL+2, LISTALL+3
DIS	SCDIS+1~, SCDIS+6*, SCDIS+8
DT	CLINRNG+10, CLINRNG+15, CLINRNG+16, DISCHRG+2, DISCHRG+4, AGE+2
DUZ	SELECT+23, LAST5RPL+3, FSSNRPL+3, TOP+2, DFLTSRC+1
END	AGE+1~, AGE+2*, AGE+3
ERR	APPTLST+2~, APPTLST+6, APPTLST+7
ERRMSG	APPTLST+2~, APPTLST+6, APPTLST+7
FROM	LISTALL~, LISTALL+2, LISTALL+3, LISTALL+4, LISTALL+8
FROMIEN	LISTALL+1~, LISTALL+2, LISTALL+4*
HLOC	ADMITLST+2~, ADMITLST+9*, ADMITLST+10, ADMITLST+11
HWND	SHARE~, SHARE+3
I	SCDIS+1~, SCDIS+5, SHOW+1~, SHOW+4, LAST5+1~, LAST5+2, LAST5+4, FULLSSN+1~, FULLSSN+2, FULLSSN+4 , LISTALL+1~, LISTALL+3, LISTALL+4, LISTALL+8, APPTLST+8*, APPTLST+9
ID	LAST5~, LAST5+2, LAST5+3, LAST5RPL~, FULLSSN~, FULLSSN+3, FSSNRPL~, FSSNRPL+8
IEN	LAST5+1~, LAST5+2, LAST5+3, LAST5+4, FULLSSN+1~, FULLSSN+2, FULLSSN+3, FULLSSN+4, TOP+1~, TOP+2* , TOP+3, LISTALL+1~, LISTALL+4*, LISTALL+6, LISTALL+8
ILST	SCDIS+1~, SCDIS+5, SCDIS+8, SCDIS+9, BYWARD+1~, BYWARD+3, BYWARD+6, BYWARD+7, ADMITLST+2~, ADMITLST+11
IOST	SELECT+16*
IP	SHARE~, SHARE+3
LOC	ENCTITL~, ENCTITL+2
LST	SCDIS~, BYWARD~, LAST5~, LAST5RPL~, FULLSSN~, FSSNRPL~, TOP~, APPTLST~, APPTLST+7!, ADMITLST~ , CLINRNG~
LST(	SCDIS+8, BYWARD+6, LAST5+4, LAST5RPL+12, FULLSSN+4, FSSNRPL+15, APPTLST+9, ADMITLST+11
LST(0	LAST5RPL+5, FSSNRPL+5
LST(1	SCDIS+3, BYWARD+2, BYWARD+7, TOP+3, APPTLST+7, CLINRNG+1, CLINRNG+10*
LST(2	SCDIS+4, SCDIS+9, CLINRNG+2, CLINRNG+11
LST(3	CLINRNG+3, CLINRNG+13
LST(4	CLINRNG+4, CLINRNG+14
LST(5	CLINRNG+5, CLINRNG+15
LST(6	CLINRNG+6, CLINRNG+17
LST(7	CLINRNG+18*
MOV	ADMITLST+2~, ADMITLST+4*, ADMITLST+6, ADMITLST+11
MTIM	ADMITLST+2~, ADMITLST+7*, ADMITLST+10, ADMITLST+11
OK	SAVDFLT~
ORCNT	LAST5RPL+1~, LAST5RPL+7, LAST5RPL+11, LAST5RPL+12, FSSNRPL+1~, FSSNRPL+7, FSSNRPL+14, FSSNRPL+15
ORIDNAME	LISTALL+1~, LISTALL+5, LISTALL+6, LISTALL+8
ORLPT	FSSNRPL+1~, FSSNRPL+9, FSSNRPL+10, FSSNRPL+11
ORLST	LEGACY~, LEGACY+4
ORLST(0	LEGACY+2, LEGACY+5
ORPIEN	LAST5RPL+1~, LAST5RPL+9, LAST5RPL+10, LAST5RPL+12, FSSNRPL+1~, FSSNRPL+11, FSSNRPL+12, FSSNRPL+13, FSSNRPL+15
ORPT	LAST5RPL+1~, LAST5RPL+7, LAST5RPL+8, LAST5RPL+9, FSSNRPL+1~, FSSNRPL+7, FSSNRPL+8, FSSNRPL+13
ORRPL	LAST5RPL+1~, LAST5RPL+3, LAST5RPL+4, LAST5RPL+5, LAST5RPL+8, LAST5RPL+9, FSSNRPL+1~, FSSNRPL+3, FSSNRPL+4, FSSNRPL+5 , FSSNRPL+10, FSSNRPL+11
PROV	ENCTITL~, ENCTITL+4
REC	IDINFO~, IDINFO+4, SELCHK~, SELCHK+2, SELECT~, SELECT+7, SELECT+11, SELECT+12, SELECT+13, SELECT+15* , SELECT+17, SELECT+18, SELECT+19, SELECT+20, SELECT+21, ENCTITL~, ENCTITL+2, ENCTITL+3, ENCTITL+4, INPLOC~ , INPLOC+2, INPLOC+4, INPLOC+5, INPLOC+7
REF	PTINQ~, PTINQ+3*
SC	SCDIS+1~, SCDIS+7*, SCDIS+8
SRV	DFLTSRC+1~*, DFLTSRC+2
START	CLINRNG+9~
SUNDAY	CLINRNG+9~
TIM	ADMITLST+2~, ADMITLST+3*, ADMITLST+4
TIUDA	ADMITLST+5~, ADMITLST+10*, ADMITLST+11
U	IDINFO+4, SCDIS+3, SCDIS+4, SCDIS+6, SCDIS+7, SCDIS+8, SELECT+11, SELECT+12, SELECT+13, SELECT+15 , SELECT+17, SELECT+18, SELECT+19, SELECT+20, SELECT+21, BYWARD+6, LAST5+4, LAST5RPL+4, LAST5RPL+12, FULLSSN+4 , FSSNRPL+4, FSSNRPL+15, TOP+3, ENCTITL+2, ENCTITL+3, ENCTITL+4, LISTALL+2, LISTALL+8, APPTLST+9, ADMITLST+7 , ADMITLST+8, ADMITLST+9, ADMITLST+11, INPLOC+3, INPLOC+5, INPLOC+6, INPLOC+7
VAEL	SCDIS+1~, SELECT+22!
VAEL(3	SCDIS+3, SELECT+18
VAEL(4	SCDIS+4
VAEL(6	SCDIS+4
VAERR	SCDIS+1~, SELECT+22!, APPTLST+2~
VAIP	DISCHRG+1~
VAIP("D"	DISCHRG+3*
VAIP(17	DISCHRG+4, DISCHRG+5
VAL	DIEDON~, DIEDON+1, SHARE~, DFLTSRC~, DFLTSRC+2
VASD	APPTLST+2~
VASD("F"	APPTLST+3*
VASD("T"	APPTLST+4*
VASD("W"	APPTLST+5*
VSTR	ADMITLST+5~, ADMITLST+10*
WARD	BYWARD~, BYWARD+2, BYWARD+4*, BYWARD+5
X	SCDIS+1~, SCDIS+5, SCDIS+6, SCDIS+7, SCDIS+8, SELECT+9~, SELECT+11, SELECT+12, SELECT+15, SELECT+19* , CLINRNG+9~, CLINRNG+10, CLINRNG+11, CLINRNG+12, CLINRNG+13, CLINRNG+14, CLINRNG+16, CLINRNG+17, SAVDFLT~, INPLOC+1~ , INPLOC+2, INPLOC+3, INPLOC+4, INPLOC+5, INPLOC+6, INPLOC+7, AGE+1~, AGE+3, AGE+4, ROK~ , ROK+1
X0	IDINFO+2~, IDINFO+3, IDINFO+4, ADMITLST+2~, ADMITLST+6, ADMITLST+7, ADMITLST+8, ADMITLST+9
X1	IDINFO+2~, IDINFO+3*, IDINFO+4
X101	IDINFO+2~, IDINFO+3*, IDINFO+4
X3	IDINFO+2~, IDINFO+3*, IDINFO+4
XLOC	ADMITLST+2~, ADMITLST+9*, ADMITLST+11
XREF	LAST5+1~, LAST5+2*, LAST5+3
XTYP	ADMITLST+2~, ADMITLST+8*, ADMITLST+11
XV	IDINFO+2~, IDINFO+3*, IDINFO+4
Y	SHOW+1~, SHOW+3, LISTALL~, ADMITLST+2~, DISCHRG~, DISCHRG+2, DISCHRG+4, DISCHRG+5, CWAD~, CWAD+1
Y(	LISTALL+8*

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORWPT

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

Used in RPC

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items