Routine: DGWAIT

Information

DGWAIT ;ALB/JDS - ENTER PATIENTS INTO WAIT LIST; 21 APR 84 13:57

Source file <DGWAIT.m>

Package	Total	Call Graph
VA Fileman	4	^DIC YN^DICN ^DIE ^DIK

Package	Total	Caller Graph
Registration	3	DG WAITING LIST DELETE DG WAITING LIST ENTRY DGDIS1

Name	Comments	DBIA/ICR reference
DIVK
EDIT
CD
Q
OKD
W
PAT
DIV
PATK
T	;;S DIE("NO^")="",DFN=+^DGWAIT(DA(1),"P",DA,0);S SC=$S('$D(^DPT(DFN,.3)):0,$P(^(.3),"^",1)="Y":1,1:0);.01;2//NOW;12//HOSPITAL;I X'="h" S Y=1;13//GENERAL;1;1.5;3.5;I 'X S Y=4;3.6;3.7;4//PENDING;3///^S X=SC;K SC;5;K DIE("NO^");10;

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: PAT+0
Function Call: WRITE	Prompt: !!,"Patient Deleted from Waiting List",*7 Line Location: EDIT+0
Function Call: WRITE	Prompt: !!,"Patient Entered on Waiting List" Line Location: CD+0
Function Call: WRITE	Prompt: !!,"Above inconsistencies must be corrected before continuing.",! Line Location: CD+1
Function Call: WRITE	Prompt: !,"ANSWER 'Y'ES OR 'N'O" Line Location: OKD+0
Function Call: WRITE	Prompt: !,"DELETED" Line Location: OKD+1
Function Call: WRITE	Prompt: ! Line Location: W+0
Function Call: WRITE	Prompt: !," > ",$P(DGF,"^",X)," ",X1 Line Location: W+0
Routine Call	DIE Line Location: EDIT
Routine Call	DIC Line Location: DIV PAT DIVK PATK

FileNo	Call Tags
^DGWAIT - [#42.5]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DGWAIT - [#42.5]	PAT*, EDIT+1, OKD
^DIC(42.55 - [#42.55]	EDIT+6
^DPT - [#2]	OKD

Name	Field # of Occurrence
^(0	EDIT+6

Name	Field # of Occurrence
>> %	OKD*, OKD+1
DA	EDIT, Q!, PATK, OKD
DA(1	PAT, EDIT, CD+1, PATK, OKD+1
DE	PAT!, PATK!
DGD	EDIT+1*, EDIT+3, EDIT+4, EDIT+5, EDIT+6, EDIT+7, Q!
DGER	EDIT+1, CD, Q!, W
DGF	EDIT+2*, Q!, W
DGI	EDIT*!, EDIT+1, CD+1, Q!
DGI1	EDIT*!, EDIT+1, CD+1, Q!
DGWAIT	DIV*, EDIT, CD, Q!
DIC	DIV!, PAT!, EDIT, Q!, DIVK!, PATK!, OKD+1
DIC("A"	DIVK, PATK
DIC(0	DIV, PAT, DIVK, PATK
DIE	PAT!, EDIT*, Q!, PATK!
DIE("NO^"	DIV!, DIVK!
>> DIK	OKD+1*
DIV	DIV, PAT, Q!, DIVK, PATK, OKD, OKD+1
>> DP	EDIT*
DQ	PAT!, PATK!
DR	EDIT*!, Q!
X	EDIT+3, EDIT+4, EDIT+5, EDIT+6, EDIT+7*, Q!, W
X1	EDIT+3, EDIT+4, EDIT+5, EDIT+6, EDIT+7*, Q!, W
>> Y	DIV, PAT, EDIT, CD+1*, DIVK, PATK

Name	Field # of Occurrence
$T(T	EDIT