Routine: DGRPTU

Information

DGRPTU ;ALB/RMO - 10-10T Registration - Utilities; 04/25/2003

Source file <DGRPTU.m>

Package	Total	Call Graph
Registration	4	PAUSE^DG10 NEW^DGRP LO^DGUTL $$PRIM^VASITE
VA Fileman	2	^DIC ^DIE
Kernel	1	(,HOME)^%ZIS

Package	Total	Caller Graph
Registration	7	DGEN DGEN1 DGENCD DGMTHL DGRPT DGRPTI DGRPTL1

Name	Comments	DBIA/ICR reference
GETPRTQ
SETPAR(DGDIV,DGIO,DGASKDEV,DGRPTOUT)	;Set up registration parameters ; Input -- None ; Output -- DGDIV Primary Medical Center Division IEN ; DGIO Registration printer array ; DGASKDEV Registration ask device flag ; DGRPTOUT Quit flag ; 1 =Timeout or User up-arrow
ELGCHK(DFN)	;Eligibility check for editing ; Input -- DFN Patient IEN ; Output -- 0=No and 1=Yes
GETPRT(DGDIV,DGIO,DGASKDEV,DGRPTOUT)	;Get registration printer defaults ; Input -- DGDIV Primary Medical Center Division IEN ; Output -- DGIO Registration printer array ; DGASKDEV Registration ask device flag ; DGRPTOUT Quit flag ; -1 =User entered up-arrow ; -2 =Timeout
SETPARQ
ASK	;Ask device in registration
GETPAT(DGHOWPT,DGADDF,DFN,DGNEWPF)	;Look-up patient ; Input -- DGHOWPT How was patient entered ; 1 =10-10T registration ; DGADDF Add new entry flag (optional) ; 1 =Allow new patient ; Output -- DFN Patient IEN ; # =Patient IEN ; -1 =No patient selected ; DGNEWPF New patient added flag ; 1 =New patient added ; Null=Existing patient	ICR #3325 Status: Active Usage: Private

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: GETPAT+14
Function Call: WRITE	Prompt: ! Line Location: GETPAT+14
Function Call: WRITE	Prompt: ! Line Location: ASK+5
Function Call: WRITE	Prompt: !,*7,"Not a printer" Line Location: ASK+6
Function Call: WRITE	Prompt: !,"Using closest printer ",Y,! Line Location: ASK+13
Routine Call	%ZIS Line Location: ASK+18
Routine Call	DIE Line Location: GETPAT+19
Routine Call	DIC Line Location: GETPAT+14
Routine Call	%ZIS Line Location: ASK+5 ASK+11

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	ASK+12
^DG(40.8 - [#40.8]	ASK+3, ASK+16
^DG(43 - [#43]	ASK+1, ASK+9
^DPT - [#2]	ELGCHK+5
^XUSEC("DG ELIGIBILITY"	ELGCHK+8

Name	Field # of Occurrence
>> %ZIS	ASK+4, ASK+10
>> %ZIS("A"	ASK+4*
>> %ZIS("B"	ASK+3*, GETPRTQ!
DA	GETPAT+17~, GETPAT+19*
DD	GETPAT+11~
DFN	GETPAT~, GETPAT+14*, GETPAT+19, ELGCHK~, ELGCHK+5
DGADDF	GETPAT~, GETPAT+13
DGASK	GETPRT+7~, ASK+1, ASK+2, ASK+6
DGASKDEV	SETPAR~, SETPAR+12, GETPRT~, ASK+7*
DGDIV	SETPAR~, SETPAR+10*, SETPAR+12, GETPRT~, ASK+3, ASK+16
DGHOWPT	GETPAT~, GETPAT+19
DGIO	SETPAR~, SETPAR+12, GETPRT~, ASK+9, ASK+16
DGIO(	ASK+14*
DGIO("HS"	ASK+7*
DGIO("PRF"	ASK+7*
DGIO("RT"	ASK+7*
DGIO(10	ASK+7, ASK+16
DGNEWPF	GETPAT~, GETPAT+14*, GETPAT+16
DGRPTOUT	SETPAR~, SETPAR+12, GETPRT~, ASK+1, ASK+5*
DIC	GETPAT+11~, GETPAT+12*
DIC(0	GETPAT+12, GETPAT+13
DIE	GETPAT+17~, GETPAT+19*
DINUM	GETPAT+11~
DLAYGO	GETPAT+11~, GETPAT+13*
DO	GETPAT+11~
DR	GETPAT+17~, GETPAT+19*
DTOUT	GETPRT+7~, ASK+5
DUOUT	GETPRT+7~
DUZ	ELGCHK+8
I	GETPRT+7~, ASK+14*
IO("Q"	GETPRTQ!
ION	ASK+7
>> IOP	ASK+10*
>> IOS	ASK+12
IOST	ASK+6
POP	GETPRT+7~, ASK+5
U	GETPAT+14, ASK+1, ASK+3, ASK+9, ASK+12, ASK+16, ELGCHK+5
X	GETPAT+11~
Y	GETPAT+11~, GETPAT+14~, GETPRT+7~, ASK+12, ASK+13, ASK+14, ELGCHK+3~, ELGCHK+5, ELGCHK+8*, ELGCHK+9