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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGQPT

Package: Registration

Routine: DGQPT


Information

DGQPT ; SLC/MKB - Patient Selection ;8/8/97 13:07

Source Information

Source file <DGQPT.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
Registration 9 $$CONTEXT^DGQPT1  TEAMPTS^DGQPTQ1  (CLINPTS,PROVPTS,SPECPTS,WARDPTS)^DGQPTQ2  COMBPTS^DGQPTQ6  ($$DOB,$$SSN)^DPTLK1  (ELIG,OERR,SDA)^VADPT  (CHGCAP,EN)^VALM  FULL^VALM1  
(CLEAN,CNTRL)^VALM10  
VA Fileman 3 ^%DT  ^DIC  ^DIR  
Kernel 2 ($$DOW,$$FMTE)^XLFDT  ($$LJ,$$UP)^XLFSTR  
Toolkit 1 $$GET^XPAR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGQPT1  

Entry Points

Name Comments DBIA/ICR reference
FIND ; -- find patient in ^DPT
BUILD(LIST) ; -- build list in ^TMP("DG",$J,"PATIENTS")
EN ; -- main entry point for DG PATIENT SELECTION
HELP ; -- help code
MSG() ; -- Lmgr msg bar
OK(DATE) ; -- Patient is deceased; ok to continue?
BQ
DEFAULT() ; -- Returns default action
INIT ; -- init variables and list array
; Modifications for multiple "Combination" lists by PKS.
EXIT ; -- exit code
B1
B2
SLCT2 ; -- convert patient's orders, if not already done
SLCT1 ; -- may enter here with DFN from FIND
APPT(DFN,CLINIC,FROM,TO) ; -- Return [next?] clinic appointment
ID(DFN) ; -- Returns short ID for patient ID
ALT ; -- XQORM("ALT") code to search File 2 for patient X
SELECT ; -- select patient from list
HDR ; -- header code

External References

Name Field # of Occurrence
^%DT BUILD+9, BUILD+10
$$CONTEXT^DGQPT1 SLCT1+4
TEAMPTS^DGQPTQ1 BUILD+11
CLINPTS^DGQPTQ2 BUILD+15
PROVPTS^DGQPTQ2 BUILD+12
SPECPTS^DGQPTQ2 BUILD+13
WARDPTS^DGQPTQ2 BUILD+14
COMBPTS^DGQPTQ6 BUILD+17
^DIC ALT+3, FIND+3, SELECT+5
^DIR OK+4
$$DOB^DPTLK1 B2+14
$$SSN^DPTLK1 B2+12
ELIG^VADPT SLCT1+2
OERR^VADPT SLCT1+2
SDA^VADPT APPT+3
CHGCAP^VALM BQ+3
EN^VALM EN+2
FULL^VALM1 HELP+1, ALT+1, FIND+2, SELECT+5
CLEAN^VALM10 BUILD+23
CNTRL^VALM10 B2+16
$$DOW^XLFDT INIT+17
$$FMTE^XLFDT INIT+22, INIT+25, B2+2, B2+4, OK+3
$$LJ^XLFSTR B2+15
$$UP^XLFSTR INIT+17, INIT+21, INIT+24
$$GET^XPAR INIT+13, INIT+18, INIT+21, INIT+24, INIT+27

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Enter the display number of the patient whose chart you wish to open"
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !,"or enter a patient name, SSN, or initial/last 4 combination. To"
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !,"change the list of patients displayed on this screen, enter CV. To"
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !,"have the new list automatically displayed when selecting a new patient,"
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !,"enter SV. Enter FD to search by patient name or identifier."
  • Line Location: HELP+6
Function Call: WRITE
  • Prompt: !!,"Press <return> to continue ..."
  • Line Location: HELP+7
Function Call: WRITE
  • Prompt: $C(7),!!,NMBR_" is not a valid selection.",!
  • Line Location: SELECT+3
Function Call: WRITE
  • Prompt: !!,"Press <return> to continue ..."
  • Line Location: SLCT1+14
Function Call: WRITE
  • Prompt: !,"DONE"
  • Line Location: SLCT2+2
Function Call: WRITE
  • Prompt: $C(7),!!,$P(DGCNV,U,2)
  • Line Location: SLCT2+3
Function Call: WRITE
  • Prompt: $C(7),!!,"This patient died "_$$FMTE^XLFDT(DATE)_"!"
  • Line Location: OK+3
Routine Call
  • VALM
  • Line Location:
    • EN+2
Routine Call
  • VALM
  • Line Location:
    • BQ+3
Routine Call
  • DIC
  • Line Location:
    • ALT+3
    • FIND+3
    • SELECT+5
Routine Call
  • DIR
  • Line Location:
    • OK+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGSL(38.1 - [#38.1] SLCT1+10
^DIC(42 - [#42] BUILD+14, SLCT1+3
^DIC(45.7 - [#45.7] BUILD+13
^DPT - [#2] B1+7, B2+2, B2+3, ID+1, ID+2, ALT+4, FIND+4, SELECT+6, SLCT1+10
^OR(100.21 - [#100.21] BUILD+11
^ORD(101 - [#101] BQ+1
^SC - [#44] BUILD+15, SLCT1+6
^TMP("DG" DEFAULT+1, EXIT+1!, BUILD+22*, B1+11*, B1+12, B1+17*, B2, B2+4, B2+7*, B2+15*
, BQ*, BQ+1*, SELECT+2
^UTILITY("VASD" APPT+1!, APPT+3, APPT+4!
^VA(200 - [#200] INIT+11, BUILD+12
^XUSEC("DG SENSITIVITY" SLCT1+10

Label References

Name Line Occurrences
$$ID B2+11
$$OK ALT+4, FIND+4, SELECT+6
BQ BUILD+19, B1+12
BUILD INIT+30
SLCT1 ALT+5, FIND+5

Naked Globals

Name Field # of Occurrence
^( B2, APPT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT BUILD+1~, BUILD+9*, BUILD+10*
BEG BUILD+1~, BUILD+9*, BUILD+15, BUILD+17
CLINIC APPT~, APPT+2
DATE OK~, OK+3
DFN BUILD+1~, B1+1*, B1+11, B2+1*, B2+2, B2+3, B2+11, B2+12, B2+14, ID~
, ID+1, ID+2, APPT~, ALT+1~, ALT+5*, FIND+1~, FIND+5*, SELECT+1~, SELECT+2*, SELECT+3
, SELECT+5, SLCT1+7
>> DGAGE SLCT1+8*
>> DGATTEND SLCT1+9*
>> DGDOB SLCT1+8*
DGI BUILD+1~, B1*, B1+1, B1+4, B1+6, B1+7, B1+10, B1+11
>> DGL SLCT1+6*
>> DGL(0 SLCT1+6*
>> DGL(1 SLCT1+6*
>> DGPNM EN+1, HDR+2, SLCT1+7*
>> DGSC SLCT1+9*
>> DGSEX SLCT1+8*
DGSRV INIT+11~*, INIT+13, INIT+18, INIT+21, INIT+24, INIT+27
>> DGSSN EN+1, HDR+2, SLCT1+7*
>> DGTS SLCT1+9*
DGVP EN+1!, HDR+1, ALT+5, FIND+5, SLCT1+7*, SLCT1+10
>> DGWARD SLCT1+9*
DGX INIT+8~, INIT+14, INIT+18*, INIT+23*, INIT+26*, BUILD+1~, B1+3*, B1+4*, B1+5*, B1+6*
, B1+7*, B1+8*, B1+10*, B1+11, B2*, B2+4, ALT+1~*, ALT+2, ALT+4*, FIND+1~
, FIND+4*, SELECT+1~, SELECT+6*
DGY INIT+8~, INIT+13*, INIT+14*, INIT+16, INIT+17, INIT+20, INIT+27*, INIT+30, BUILD+1~, BUILD+11
, BUILD+12, BUILD+13, BUILD+14, BUILD+15, B2*, B2+1, B2+7
DGY( B1, B1+1, B1+4, B1+6, B1+7, B1+10, B1+11
DGY(1 B1+16
DGYZB INIT+8~, INIT+21*, INIT+22*, INIT+23
DGYZE INIT+8~, INIT+24*, INIT+25*, INIT+26
DIC ALT+1~, ALT+2*, FIND+1~, FIND+2*, SELECT+1~, SELECT+5*
DIC(0 ALT+2*, FIND+2*, SELECT+5*
DIR OK+1~
DIR("A" OK+2*
DIR("B" OK+1*
DIR(0 OK+1*
DOB BUILD+1~, B2+2*, B2+14*, B2+15
DT INIT+17, INIT+22, INIT+25
DTIME HELP+7, SLCT1+15
DUZ INIT+11, SLCT1+10
END BUILD+1~, BUILD+10*, BUILD+15, BUILD+17
FROM APPT~, APPT+2
ID ID+1~*, ID+2*, ID+3
>> IOINHI B2+16
>> IOINORM B2+16
LCNT BUILD+1~, BUILD+21*, BUILD+23*, B1+15*, B2+6*, B2+15, B2+16, BQ, BQ+4
LIST BUILD~, BUILD+2, BUILD+8*, BUILD+9, BUILD+10, BQ
LOC SLCT1+1~, SLCT1+3*, SLCT1+4*, SLCT1+5*, SLCT1+6
MSG BUILD+17~, BUILD+20, BUILD+22, B1+13~, B1+14*, B1+16*, B1+17
NAME BUILD+1~, B2+1*, B2+15, ID+3
>> NEXT APPT+3*, APPT+5
NMBR SELECT+1~*, SELECT+2, SELECT+3, SLCT1+4
NUM BUILD+1~, BUILD+21*, BUILD+23*, B1+15*, B2+6*, B2+7, B2+15, BQ, BQ+1
ORCNV SLCT1+1~
PARAM INIT+8~, INIT+16*, INIT+17*, INIT+18
PTID BUILD+1~, B2+10*, B2+11*, B2+13*, B2+15
PTR BUILD+1~, BUILD+2*, BUILD+11, BUILD+12, BUILD+13, BUILD+14, BUILD+15, BUILD+17
RBED BUILD+1~, B2+3*, B2+4*, B2+15, BQ+2*, BQ+3
SENS BUILD+1~, B2+12*, B2+13
SORT BUILD+1~, BUILD+2*, BUILD+4*, BUILD+6, BUILD+7*, BUILD+8, B1+4, B1+7, B1+8, B2+4
TITLE BUILD+1~, BUILD+11*, BUILD+12*, BUILD+13*, BUILD+14*, BUILD+15*, BUILD+17*, BQ+4
TO APPT~, APPT+2
TYPE BUILD+1~, BUILD+2*, BUILD+4, BUILD+5, BUILD+11, BUILD+12, BUILD+13, BUILD+14, BUILD+15, BUILD+17
, BUILD+19, B1+4, B1+7, B2+3, B2+4, BQ+2
U INIT+11, DEFAULT+1, BUILD+11, BUILD+12, BUILD+13, BUILD+14, BUILD+15, B1+4, B1+6, B1+7
, B1+10, B2+1, B2+2, B2+3, B2+4, BQ, ID+1, ID+2, APPT+3, SLCT1+6
, SLCT1+7, SLCT1+8
VA SLCT1+1~
VADM SLCT1+1~
VADM(1 SLCT1+7
VADM(2 SLCT1+7
VADM(3 SLCT1+8
VADM(4 SLCT1+8
VADM(5 SLCT1+8
VAEL SLCT1+1~
VAEL(3 SLCT1+9
VAERR APPT+1~, SLCT1+1~
VAIN SLCT1+1~
VAIN(11 SLCT1+9
VAIN(3 SLCT1+9
VAIN(4 SLCT1+3, SLCT1+9
VAIN(5 SLCT1+6
>> VALM("TITLE" BQ+4*
>> VALMBCK HELP+1*, BQ+4*, ALT+3*, ALT+4*, FIND+3*, FIND+4*, SELECT+3*, SELECT+5*, SELECT+6*
>> VALMBG BQ+4*
>> VALMCNT BQ+4*
VALMHDR BQ+3!
VALMHDR(1 HDR+3*
VASD APPT+1~
VASD("C" APPT+2*
VASD("F" APPT+2*
VASD("T" APPT+2*
X HDR+1~*, HDR+2*, HDR+3, HELP+1~, HELP+7*, BUILD+1~, BUILD+9*, BUILD+10*, ALT+1, ALT+2*
, FIND+1~, SELECT+1~, SELECT+5*, SLCT1+4~*, SLCT1+13~, SLCT1+15*, OK+1~
>> XQAID SLCT1+3
>> XQORM("ALT" EXIT+1!
>> XQORM("B" DEFAULT+2
>> XQORMRCL ALT+2
>> XQORNOD(0 SELECT+1
Y BUILD+1~, BUILD+9, BUILD+10, ALT+1~, ALT+3, ALT+4, ALT+5, FIND+1~, FIND+3, FIND+4
, FIND+5, SELECT+1~, SELECT+2*, SELECT+5, SELECT+6, OK+1~, OK+5
Z SELECT+1~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All