Routine: BDGICE

Information

BDGICE ; IHS/ANMC/LJF - INCOMPLETE CHART EDIT ; [ 08/20/2004 11:44 AM ]

Source file <BDGICE.m>

Name	Comments	DBIA/ICR reference
EDIT	;EP; -- edit visit by supervisor
SCREEN	; -- call ScreenMan to add/edit parameters
PAT	; ask user for patient
ADD	; -- add new entry

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Incomplete Chart Entries for "_$$GET1^DIQ(2,DFN,.01)_":" Line Location: PAT+14
Function Call: WRITE	Prompt: !,$J(I,3),?6,$$GET1^DIQ(9009016.1,BDGA(I),.02),$$GET1^DIQ(9009016.1,BDGA(I),.05),?30,$$GET1^DIQ(9009016.1,BDGA(I),.0392) Line Location: PAT+15
Function Call: WRITE	Prompt: !,$J(I,3),?6,"ADD NEW ENTRY" Line Location: PAT+19
Routine Call	DIE Line Location: EDIT+6
Routine Call	DDS Line Location: SCREEN+6
Routine Call	DIC Line Location: EDIT+3

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^BDGIC - [#9009016.1]	Classic Fileman Calls, GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^BDGIC("B"	PAT+7

Name	Field # of Occurrence
APCDOVRR	ADD+4, ADD+10!, EDIT+2~, EDIT+4
BDGA	PAT+5~, PAT+12
BDGA(	PAT+9*, PAT+15, PAT+22
BDGN	PAT+5~, PAT+6, PAT+7, PAT+8, PAT+9, PAT+22, SCREEN+2, SCREEN+3, ADD+12
COUNT	PAT+5~, PAT+9*, PAT+20, PAT+21
DA	SCREEN+1~, SCREEN+3, ADD+2~, EDIT+2~, EDIT+5
DD	ADD+2~
DDSFILE	SCREEN+1~, SCREEN+3*
DFN	PAT+1~, PAT+2*, PAT+7, PAT+14, ADD+3
DIC	ADD+2~, ADD+3, EDIT+3
DIC("DR"	ADD+7, ADD+8
DIC(0	ADD+3, EDIT+3
DIE	EDIT+2~, EDIT+5*
>> DLAYGO	ADD+3*
DO	ADD+2~
DR	SCREEN+1~, SCREEN+5, ADD+2~, EDIT+2~, EDIT+5
I	PAT+5~, PAT+15*, PAT+19
TYPE	SCREEN+1~, SCREEN+2*, SCREEN+5
X	ADD+2~, ADD+3*
>> Y	PAT+20, PAT+21, PAT+22, ADD+1, ADD+7, ADD+8, ADD+9, ADD+12, EDIT+3, EDIT+5