Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  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 |  Marked Items  | All
Print Page as PDF
Routine: ORWPT

Package: Order Entry Results Reporting

Routine: ORWPT


Information

ORWPT ;SLC/KCM/REV - Patient Lookup Functions ; Apr 2, 2024@08:12:00

Source Information

Source file <ORWPT.m>

Call Graph

Call Graph

Call Graph Total: 14

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

Caller Graph

Caller Graph Total: 39

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
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
HXDATA^A7RDPAGU LEGACY+3, LEGACY+4
$$TSDATA^DGACT SELECT+28, SELECT+29
^DIC SHOW+1
$$GET1^DIQ IDINFO+5, SELECT+32, ENCTITL+5, 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+2, SHOW+3
$$CWAD^ORQPT2 SELECT+16, CWAD+1
$$EN1^ORQPT2 SELCHK+2, SELECT+16
SDA^ORQRY01 APPTLST+6
SAVDFLT^ORWPT1 SAVDFLT+1
$$HASDS^TIULX ADMITLST+10
52^VADPT DISCHRG+3
DEM^VADPT IDINFO+4
DEMUPD^VADPT SELECT+13
ELIG^VADPT IDINFO+3, SCDIS+2, SELECT+21
$$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

FileMan Files Accessed Via FileMan Db Call

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, 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+4, 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+3
^TMP("OR QUICK ORDER AUDIT" ENCTITL+2!, ENCTITL+6*
^TMP("ORALLERGYCHK" SELECT+12!
^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+11!
^TMP($J 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

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
DFN IDINFO~, IDINFO+5, IDINFO+6, IDINFO+7, PTINQ~, PTINQ+2, 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+4
, APPTLST~, ADMITLST~, ADMITLST+3, ADMITLST+4, ADMITLST+10, DISCHRG~, CWAD~, CWAD+1, LEGACY~, LEGACY+4
, 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+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+3
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~, LEGACY+4
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*
PROV ENCTITL~, ENCTITL+5
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, INPLOC~, INPLOC+2*, INPLOC+4*, INPLOC+5*, INPLOC+7*
REF PTINQ~, PTINQ+3*
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~
TIM ADMITLST+2~, ADMITLST+3*, ADMITLST+4
TIUDA ADMITLST+5~, ADMITLST+10*, ADMITLST+11
U IDINFO+7, 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+3
, ENCTITL+4, ENCTITL+5, 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(14 IDINFO+4
VAEL IDINFO+2~, SCDIS+1~, SELECT+41!
VAEL(3 IDINFO+3, SCDIS+3, SELECT+21
VAEL(4 IDINFO+3, SCDIS+4
VAEL(6 SCDIS+4
VAERR SCDIS+1~, 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*
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+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 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(GETICN^MPIF001 SELECT+22
$T(HXDATA^A7RDPAGU LEGACY+3
Info |  Source |  Call Graph |  Caller Graph |  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 |  Marked Items  | All