Routine: BDGVHF

Information

BDGVHF ; IHS/ANMC/LJF - CREATE VHOSP IF MISSING ; [ 05/31/2002 4:22 PM ]

Source file <BDGVHF.m>

Package	Total	Call Graph
Kernel	3	^%ZISC $$NOW^XLFDT $$REPEAT^XLFSTR
IHS Changes To ADT	2	($$READ,$$TIME,PAUSE,ZIS)^BDGF ADDVH^BDGPCCL
VA Fileman	1	$$GET1^DIQ

Name	Comments	DBIA/ICR reference
HED	; -- heading
INIT	; initialize variables
LOOP	;EP; loop thru discharges to check for missing vhosps

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$GET1^DIQ(405,DSC,.01),?20,$$GET1^DIQ(2,DFN,.01) Line Location: LOOP+22
Function Call: WRITE	Prompt: @IOF Line Location: HED+1
Function Call: WRITE	Prompt: !,DGLIN Line Location: HED+2
Function Call: WRITE	Prompt: !?11,"***Confidential Patient Data Covered by Privacy Act***" Line Location: HED+3
Function Call: WRITE	Prompt: !,DGDUZ,?80-$L(DGSITE)/2,DGSITE Line Location: HED+4
Function Call: WRITE	Prompt: !,$$TIME^BDGF($$NOW^XLFDT),?80-$L(DGTY)/2,DGTY,?70,"Page: ",DGPG Line Location: HED+5
Function Call: WRITE	Prompt: !,Y Line Location: HED+6
Function Call: WRITE	Prompt: !,DGLIN2,! Line Location: HED+7

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DGPM - [#405]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVINP("AD"	LOOP+16
^AUPNVSIT - [#9000010]	LOOP+16
^DD("DD"	HED+6
^DGPM - [#405]	LOOP+9, LOOP+15, LOOP+20
^DGPM("ATT3"	LOOP+5, LOOP+7
^DIC(4 - [#4]	INIT+1
^VA(200 - [#200]	INIT+1

Name	Line Occurrences
HED	LOOP+2
INIT	LOOP+2

Name	Field # of Occurrence
ADM	LOOP+1~, LOOP+8*, LOOP+9, LOOP+15, LOOP+21
BDGBD	BDGVHF+5~, BDGVHF+9*, BDGVHF+10, LOOP+4
BDGED	BDGVHF+5~, BDGVHF+10*, BDGVHF+12, LOOP+4
DATE	LOOP+1~, LOOP+4, LOOP+5, LOOP+7
DFN	LOOP+18~, LOOP+19*, LOOP+22
>> DGDUZ	INIT+1*, HED+4
DGEND	LOOP+1~, LOOP+4*, LOOP+5
>> DGLIN	INIT+2*, HED+2
>> DGLIN2	INIT+2*, HED+7
>> DGPG	INIT+1, HED+1, HED+2, HED+5
DGPMA	LOOP+18~, LOOP+20*
DGPMCA	LOOP+18~, LOOP+21*
>> DGQ	INIT+3*
>> DGSITE	INIT+1*, HED+4
>> DGTY	HED+4*, HED+5
DSC	LOOP+1~, LOOP+6, LOOP+7, LOOP+8, LOOP+19, LOOP+20, LOOP+22
DT	BDGVHF+10, HED+6
DUZ	INIT+1
DUZ(2	INIT+1
IO	LOOP+2
IOF	HED+1
IOST	LOOP+25, HED+1
U	LOOP+15, LOOP+16, INIT+1
VST	LOOP+1~, LOOP+15*, LOOP+16
>> Y	HED+6*