Routine: ORWPT

Information

ORWPT ;SLC/KCM/REV - Patient Lookup Functions ;Nov 10, 2025@11:55:00

Package	Total	Call Graph
Order Entry Results Reporting	5	DGINQ^ORCXPND1 ($$CWAD,$$EN1)^ORQPT2 SDA^ORQRY01 SAVDFLT^ORWPT1 SETITEM^ORWRP
Registration	3	$$TSDATA^DGACT ($$DOB,$$SSN)^DPTLK1 (52,DEM,DEMUPD,ELIG,KVAR,SVC)^VADPT
VA FileMan	2	^DIC $$GET1^DIQ
Kernel	1	$$HTFM^XLFDT
Master Patient Index VistA	1	($$GETICN,GETICN)^MPIF001
Text Integration Utility	1	$$HASDS^TIULX
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
Order Entry Results Reporting	29	ORQPTQ11 ORRHCQ ORWGAPI6 ORWGAPI8 ORWPT ADMITLST ORWPT APPTLST ORWPT BYWARD ORWPT CLINRNG ORWPT CWAD ORWPT DFLTSRC ORWPT DIEDON ORWPT DISCHARGE ORWPT ENCTITL ORWPT FULLSSN ORWPT FULLSSN RPL ORWPT GET FULL ICN ORWPT ID INFO ORWPT INPLOC ORWPT LAST5 ORWPT LAST5 RPL ORWPT LEGACY ORWPT LIST ALL ORWPT PTINQ ORWPT SAVDFLT ORWPT SELCHK ORWPT SELECT ORWPT SHARE ORWPT TOP ORWPT2
Enterprise Health Management Platform	4	HMPCAC HMPCRPC1 HMPPDL HMPROS8
Scheduling	3	SDEC02 SDECPT SDESGETPATINQUIR
Text Integration Utility	2	TIUHL7U1 TIUMED1
Shift Handoff Tool	1	CRHDPL

Entry Points

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

External References

Name	Field # of Occurrence
$$TSDATA^DGACT	SELECT+28, SELECT+29
^DIC	SHOW+1
$$GET1^DIQ	IDINFO+5, SELECT+32, ENCTITL+6, DFLTSRC+1
$$DOB^DPTLK1	IDINFO+7, LAST5+5, LAST5RPL+11, FULLSSN+4, FSSNRPL+14
$$SSN^DPTLK1	IDINFO+7, LAST5+5, LAST5RPL+11, FULLSSN+4, FSSNRPL+14
$$GETICN^MPIF001	SELECT+22, GETFICN+2
GETICN^MPIF001	SELECT+22
DGINQ^ORCXPND1	PTINQ+4, SHOW+3
$$CWAD^ORQPT2	SELECT+16, CWAD+1
$$EN1^ORQPT2	SELCHK+2, SELECT+16
SDA^ORQRY01	APPTLST+6
SAVDFLT^ORWPT1	SAVDFLT+1
SETITEM^ORWRP	PTINQ+2, PTINQ+3
$$HASDS^TIULX	ADMITLST+10
52^VADPT	DISCHRG+3
DEM^VADPT	IDINFO+4
DEMUPD^VADPT	SELECT+13
ELIG^VADPT	IDINFO+3, SCDIS+2, SELECT+21
KVAR^VADPT	PGULF+2
SVC^VADPT	PGULF+2
$$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
ORWPT GET FULL ICN	GETFICN

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ

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+18, ADMITLST+6, INPLOC+3
^DGPM("ATID1"	ADMITLST+3, ADMITLST+4
^DIC(31 - [#31]	SCDIS+6
^DIC(42 - [#42]	SELECT+15, BYWARD+4, ADMITLST+9, INPLOC+4, INPLOC+5, INPLOC+6
^DISV(	SELECT+42*, TOP+2
^DPT - [#2]	IDINFO+5, IDINFO+6, PTINQ+3, SCDIS+5, DIEDON+1, SELECT+7, SELECT+14, SELECT+18, SELECT+24, BYWARD+6 , LAST5+3, LAST5+4, LAST5+5, LAST5RPL+11, FULLSSN+4, FSSNRPL+14, TOP+3, ENCTITL+3, ENCTITL+5, LISTALL+5 , LISTALL+7, INPLOC+2, AGE+2
^DPT("B"	LISTALL+2, LISTALL+3, LISTALL+4
^DPT("CN"	BYWARD+5
^DPT("SSN"	FULLSSN+3, FSSNRPL+7
^OR(100.21 - [#100.21]	LAST5RPL+7, LAST5RPL+8, FSSNRPL+9, FSSNRPL+10
^SC - [#44]	ENCTITL+4
^TMP("OR QUICK ORDER AUDIT"	ENCTITL+2!, ENCTITL+7*
^TMP("ORALLERGYCHK"	SELECT+12!
^TMP("ORDATA"	PTINQ+1, PTINQ+10*, 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+11!
^TMP($J	PGULF+2, PGULF+3, SELECT+10!
^UTILITY("VASD"	APPTLST+2!, APPTLST+7!, APPTLST+8, APPTLST+9, APPTLST+10!
^VA(200 - [#200]	LAST5RPL+2, FSSNRPL+2

Label References

Name	Line Occurrences
$$AGE	SELECT+23
$$PGULF	PTINQ+9
@(	LEGACY+4

Naked Globals

Name	Field # of Occurrence
^(	IDINFO+6, SCDIS+5, SHOW+4, SELECT+14
^("E"	APPTLST+9
^(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
ATT	IDINFO+2~, IDINFO+5*, IDINFO+7
BEG	AGE~, AGE+3
CNT	LISTALL+1~*, LISTALL+3, LISTALL+4
DATA	PTINQ+6~, PTINQ+10
DATA(	PTINQ+8, PTINQ+9
DFN	IDINFO~, IDINFO+5, IDINFO+6, IDINFO+7, PTINQ~, PTINQ+2, PTINQ+3, PTINQ+4, PTINQ+9, PGULF~ , PGULF+2, PGULF+3, SCDIS~, SCDIS+5, SELCHK~, SELCHK+2, DIEDON~, DIEDON+1, SELECT~, SELECT+7 , SELECT+14, SELECT+16, SELECT+18, SELECT+22, SELECT+23, SELECT+24, SELECT+32, SELECT+42, SHARE~, SHARE+3 , BYWARD+1~, BYWARD+3, BYWARD+5, BYWARD+6, ENCTITL~, ENCTITL+3, ENCTITL+5, APPTLST~, ADMITLST~, ADMITLST+3 , ADMITLST+4, ADMITLST+10, DISCHRG~, CWAD~, CWAD+1, LEGACY~, INPLOC~, INPLOC+2, AGE~, AGE+2 , GETFICN~, GETFICN+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+42, LAST5RPL+2, FSSNRPL+2, 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+9
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+5, FULLSSN+1~, FULLSSN+2, FULLSSN+4 , LISTALL+1~, LISTALL+3, LISTALL+4, LISTALL+9, APPTLST+2~, APPTLST+8*, APPTLST+9
ID	LAST5~, LAST5+2, LAST5+3, LAST5RPL~, FULLSSN~, FULLSSN+3, FSSNRPL~, FSSNRPL+7
IEN	LAST5+1~, LAST5+2, LAST5+3, LAST5+4, LAST5+5, FULLSSN+1~, FULLSSN+2, FULLSSN+3, FULLSSN+4, TOP+1~ , TOP+2, TOP+3, LISTALL+1~, LISTALL+4, LISTALL+5, LISTALL+7, LISTALL+9
ILST	SCDIS+1~, SCDIS+5, SCDIS+8, SCDIS+9, BYWARD+1~, BYWARD+3, BYWARD+6, BYWARD+7, ADMITLST+2~, ADMITLST+11
IOST	SELECT+19*
IP	SHARE~, SHARE+3
LOC	ENCTITL~, ENCTITL+4
LST	SCDIS~, BYWARD~, LAST5~, LAST5RPL~, FULLSSN~, FSSNRPL~, TOP~, APPTLST~, APPTLST+7!, ADMITLST~ , CLINRNG~
LST(	SCDIS+8, BYWARD+6, LAST5+5, LAST5RPL+11, FULLSSN+4, FSSNRPL+14, APPTLST+9, ADMITLST+11
LST(0	LAST5RPL+4, FSSNRPL+4
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+6, LAST5RPL+10, LAST5RPL+11, FSSNRPL+1~, FSSNRPL+6, FSSNRPL+13, FSSNRPL+14
ORIDNAME	LISTALL+1~, LISTALL+6, LISTALL+7, LISTALL+9
ORLPT	FSSNRPL+1~, FSSNRPL+8, FSSNRPL+9, FSSNRPL+10
ORLST	LEGACY~
ORLST(0	LEGACY+2, LEGACY+5
ORPIEN	LAST5RPL+1~, LAST5RPL+8, LAST5RPL+9, LAST5RPL+11, FSSNRPL+1~, FSSNRPL+10, FSSNRPL+11, FSSNRPL+12, FSSNRPL+14
ORPREF	SELECT+9~, SELECT+13*, SELECT+14
ORPRON	SELECT+9~, SELECT+34, SELECT+37, SELECT+38, SELECT+39, SELECT+40
ORPT	LAST5RPL+1~, LAST5RPL+6, LAST5RPL+7, LAST5RPL+8, FSSNRPL+1~, FSSNRPL+6, FSSNRPL+7, FSSNRPL+12
ORRPL	LAST5RPL+1~, LAST5RPL+2, LAST5RPL+3, LAST5RPL+4, LAST5RPL+7, LAST5RPL+8, FSSNRPL+1~, FSSNRPL+2, FSSNRPL+3, FSSNRPL+4 , FSSNRPL+9, FSSNRPL+10
ORWRSLT	GETFICN~, GETFICN+1, GETFICN+2
OUT	PGULF+1~, PGULF+3*, PGULF+4
PROV	ENCTITL~, ENCTITL+6
REC	IDINFO~, IDINFO+7, SELCHK~, SELCHK+2, SELECT~, SELECT+7, SELECT+14, SELECT+15, SELECT+16, SELECT+18* , SELECT+20, SELECT+21, SELECT+22, SELECT+23, SELECT+24, SELECT+25, SELECT+28, SELECT+30, SELECT+32, SELECT+40 , ENCTITL~, ENCTITL+3, ENCTITL+4, ENCTITL+5, ENCTITL+6, ENCTITL+7, INPLOC~, INPLOC+2, INPLOC+4, INPLOC+5* , INPLOC+7*
REF	PTINQ~, PTINQ+1*, PTINQ+2, PTINQ+3, PTINQ+6
S1	SELECT+36~, SELECT+37, SELECT+38
SC	SCDIS+1~, SCDIS+7*, SCDIS+8
SRV	DFLTSRC+1~*, DFLTSRC+2
START	CLINRNG+9~
SUNDAY	CLINRNG+9~
TDATA	PTINQ+6~*
TDATA(	PTINQ+7, PTINQ+8
TIM	ADMITLST+2~, ADMITLST+3*, ADMITLST+4
TIUDA	ADMITLST+5~, ADMITLST+10*, ADMITLST+11
U	IDINFO+7, PGULF+3, SCDIS+3, SCDIS+4, SCDIS+6, SCDIS+7, SCDIS+8, SELECT+14, SELECT+15, SELECT+16 , SELECT+18, SELECT+20, SELECT+21, SELECT+22, SELECT+23, SELECT+24, SELECT+25, SELECT+28, SELECT+29, SELECT+30 , SELECT+32, SELECT+40, BYWARD+6, LAST5+5, LAST5RPL+3, LAST5RPL+11, FULLSSN+4, FSSNRPL+3, FSSNRPL+14, TOP+3 , ENCTITL+4, ENCTITL+5, ENCTITL+6, LISTALL+2, LISTALL+9, APPTLST+9, ADMITLST+7, ADMITLST+8, ADMITLST+9, ADMITLST+11 , INPLOC+3, INPLOC+5, INPLOC+6, INPLOC+7
VADEMO	SELECT+9~
VADEMO(1	SELECT+13
VADEMO(14	SELECT+35, SELECT+38
VADM	IDINFO+2~
VADM(14	IDINFO+4
VAEL	IDINFO+2~, SCDIS+1~, SELECT+21~, SELECT+41!
VAEL(3	IDINFO+3, SCDIS+3, SELECT+21
VAEL(4	IDINFO+3, SCDIS+4
VAEL(6	SCDIS+4
VAERR	PGULF+1~, SCDIS+1~, SELECT+9~, SELECT+41!, APPTLST+2~
VAIP	DISCHRG+1~
VAIP("D"	DISCHRG+3*
VAIP(17	DISCHRG+4, DISCHRG+5
VAL	DIEDON~, DIEDON+1, SHARE~, DFLTSRC~, DFLTSRC+2
VAROOT	PGULF+1~, PGULF+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	PTINQ+7~, PTINQ+8, PGULF+1~, SCDIS+1~, SCDIS+5, SCDIS+6, SCDIS+7, SCDIS+8, SELECT+9~, SELECT+14* , SELECT+15, SELECT+18, SELECT+22, SELECT+26~, SELECT+27, SELECT+28, SELECT+29, SELECT+30, 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+6, IDINFO+7, ADMITLST+2~, ADMITLST+6, ADMITLST+7, ADMITLST+8, ADMITLST+9
X1	IDINFO+2~, IDINFO+6*, IDINFO+7
X101	IDINFO+2~, IDINFO+6*, IDINFO+7
X24	IDINFO+2~, IDINFO+4, IDINFO+7, SELECT+9~, SELECT+32
X3	IDINFO+2~, IDINFO+3*, IDINFO+7
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+7
>> XWB("2"	SELECT+10
Y	PTINQ+7~, PTINQ+8, PTINQ+9, PGULF+1~, SHOW+1~, SHOW+3, SELECT+26~, SELECT+27, SELECT+28, LISTALL~ , ADMITLST+2~, DISCHRG~, DISCHRG+2, DISCHRG+4, DISCHRG+5, CWAD~, CWAD+1
Y(	LISTALL+9*
Y(2	SELECT+29
Z	SELECT+26~, SELECT+29*
Z(3	SELECT+30

Marked Items

Name	Field # of Occurrence
$T(@(1)	LEGACY+3
$T(GETICN^MPIF001	SELECT+22

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORWPT

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 39

Entry Points

External References

Interaction Calls

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items