Routine: BDGSVE

Information

BDGSVE ; IHS/ANMC/LJF - SCHEDULED VISIT EDIT ;

Source file <BDGSVE.m>

Package	Total	Caller Graph
IHS Changes To ADT	1	BDGPI

Name	Comments	DBIA/ICR reference
SCREEN	; -- call ScreenMan to add/edit parameters
PAT	; ask user for patient ; If BDGSVEis set and = 1 then in edit mode, else in view mode
ADD	; add new entry then call Screenman
PATSET	;EP; entry where patient already known ; find all entries in SV file for patient (except deleted ones) ; put into array sorted by date

Name	Field # of Occurrence
KILL^AUPNPAT	PAT+2
$$READ^BDGF	PAT+3, PATSET+17, PATSET+30, SCREEN+6
PAUSE^BDGF	PATSET+16
^BDGSVS	PATSET+35, SCREEN+6
^DDS	SCREEN+5
FILE^DICN	ADD+3
$$GET1^DIQ	PATSET+6, PATSET+7, PATSET+20, PATSET+22, PATSET+23, PATSET+24, SCREEN+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No Scheduled Visits found for patient" Line Location: PATSET+15
Function Call: WRITE	Prompt: !!,"Scheduled Visit Entries for "_$$GET1^DIQ(2,DFN,.01)_":" Line Location: PATSET+20
Function Call: WRITE	Prompt: !,$J(COUNT,3),?6,$$GET1^DIQ(9009016.7,BDGA(COUNT),.02) Line Location: PATSET+22
Function Call: WRITE	Prompt: ?25,$$GET1^DIQ(9009016.7,BDGA(COUNT),.03) Line Location: PATSET+23
Function Call: WRITE	Prompt: ?45,$S(X]"":X,1:"Open/Pending") Line Location: PATSET+25
Function Call: WRITE	Prompt: ! Line Location: PATSET+26
Routine Call	DDS Line Location: SCREEN+5

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^BDGSV - [#9009016.7]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^BDGSV("B"	PATSET+5

Name	Field # of Occurrence
BDGA	PATSET+3~, PATSET+14
BDGA(	PATSET+11*, PATSET+21, PATSET+22, PATSET+23, PATSET+24, PATSET+33
BDGA1	PATSET+3~
BDGA1(	PATSET+10, PATSET+11
BDGA1(9999999	PATSET+7*
BDGN	PATSET+3~, PATSET+4, PATSET+5, PATSET+6, PATSET+7, PATSET+33, SCREEN+2, SCREEN+3, ADD+4
>> BDGSVE	PATSET+16, PATSET+29, PATSET+32, PATSET+34
COUNT	PATSET+3~, PATSET+11, PATSET+21, PATSET+22, PATSET+23, PATSET+24, PATSET+30
DA	SCREEN+1~, SCREEN+2*, ADD+1~
DD	ADD+3!
DDSFILE	SCREEN+1~, SCREEN+2*
DFN	PAT+2~, PAT+3*, PATSET+5, PATSET+20, ADD+2
DIC	ADD+1~, ADD+2*
DIC("DR"	ADD+3*
DIC(0	ADD+2*
DLAYGO	ADD+1~, ADD+2*
DO	ADD+3!
DR	SCREEN+1~, SCREEN+4*
PROMPT	PATSET+3~, PATSET+28, PATSET+29, PATSET+30
X	PATSET+3~, PATSET+10, PATSET+11, PATSET+24, PATSET+25, SCREEN+1~, SCREEN+3, SCREEN+4, ADD+1~, ADD+2
>> Y	PATSET+30*, PATSET+32, PATSET+33, ADD+4