Routine: DVBADSNT

Package	Total	Call Graph
Automated Medical Information Exchange	4	($$HFS,END,HFSOPEN)^DVBAB82 (DUZ2,KILL,LOS)^DVBAUTIL NOPARM^DVBAUTL2 (ADM,ELIG,RCV)^DVBAVDPT
Kernel	3	(,HOME)^%ZIS (,KILL)^%ZTLOAD $$FMTE^XLFDT
VA FileMan	3	DD^%DT YN^DICN ^DIE

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 4

Package	Total	Caller Graph
Automated Medical Information Exchange	4	DVBA NOTICE/DISCHARGE PRINT DVBAB REPORT NEW NOTICES DC DVBAB82 DVBADSR1

Entry Points

Name	Comments	DBIA/ICR reference
SET
ENBROKER(Y)	;
PRINTB
FUPD
PRINT
PRINT1
TERM
SETUP
EN1
QUEUE
GO
KILL
DEQUE
CHK	;pull 7131 pointer
REPRINT

External References

Name	Field # of Occurrence
DD^%DT	PRINTB+4
^%ZIS	EN1+3
HOME^%ZIS	TERM
^%ZTLOAD	QUEUE+1
KILL^%ZTLOAD	KILL
YN^DICN	EN1+1
^DIE	FUPD, FUPD+1
$$HFS^DVBAB82	ENBROKER+2
END^DVBAB82	PRINT+2, EN1+4
HFSOPEN^DVBAB82	EN1+4
DUZ2^DVBAUTIL	TERM+1
KILL^DVBAUTIL	SETUP, KILL
LOS^DVBAUTIL	PRINTB+12
NOPARM^DVBAUTL2	SETUP
ADM^DVBAVDPT	PRINTB
ELIG^DVBAVDPT	PRINTB+13
RCV^DVBAVDPT	SET
$$FMTE^XLFDT	PRINTB+10, SETUP

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Admission entry in Patient Movement File has been deleted for: ",!,?5,PNAM,?25,SSN,?35," at ",Y,!,"Contact VAMC for further information.",! Line Location: PRINTB+4
Function Call: WRITE	Prompt: !!!!,?(80-$L(HEAD)\2),HEAD,!,?(80-$L(HEAD1)\2),HEAD1,!! Line Location: PRINTB+9
Function Call: WRITE	Prompt: ?10,"Patient Name:",?26,PNAM,!!,?14,"Claim No:",?26,CNUM,!,?6,"Claim Folder Loc:",?26,CFLOC,!,?9,"Social Sec No:",?26,SSN,!,?8,"Discharge Date:",?26,$$FMTE^XLFDT(DCHGDT,"5DZ"),! Line Location: PRINTB+10
Function Call: WRITE	Prompt: ?5,"Type of Discharge:",?26,TDIS,! Line Location: PRINTB+11
Function Call: WRITE	Prompt: ?8,"Length of Stay:",?26,LOS_$S(LOS="":"Discharged same day",LOS=1:" day",1:" days"),! Line Location: PRINTB+12
Function Call: WRITE	Prompt: ?11,"Bed Service:",?26,BEDSEC,! Line Location: PRINTB+13
Function Call: READ	Variable: ANS Timeout: DTIME Line Location: FUPD+3
Function Call: WRITE	Prompt: *7,!,"Press RETURN to continue or ""^"" to stop " Line Location: FUPD+3
Function Call: WRITE	Prompt: @IOF,!,"NOTICE OF DISCHARGE REPORT" Line Location: SETUP+0
Function Call: WRITE	Prompt: !,HEAD1 Line Location: SETUP+2
Function Call: WRITE	Prompt: !!,"This program will print out any new NOTICES OF DISCHARGE,",!,"based on the hospital's discharges.",!!,"Do you want to continue" Line Location: EN1+1
Function Call: WRITE	Prompt: !!,"Enter Y to print out the notice, N if you want to exit the program.",! Line Location: EN1+2
Function Call: WRITE	Prompt: "." Line Location: GO+0
Function Call: WRITE	Prompt: !!,*7,"No data found.",!! Line Location: GO+1
Routine Call	DIE Line Location: FUPD FUPD+1
Routine Call	%ZIS Line Location: EN1+3
Routine Call	%ZIS Line Location: TERM

Used in RPC

RPC Name	Call Tags
DVBAB REPORT NEW NOTICES DC	ENBROKER

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DVB(396 - [#396]	Classic Fileman Calls
^DVB(396.2 - [#396.2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(405.2 - [#405.2]	PRINTB+6
^DGPM - [#405]	PRINTB+2, PRINTB+3, PRINTB+5, PRINTB+7
^DPT - [#2]	SET, PRINTB+3
^DVB(396 - [#396]	FUPD, CHK+1
^DVB(396.1 - [#396.1]	SETUP
^DVB(396.2 - [#396.2]	GO
^TMP($J	DVBADSNT+4!, SET*, ENBROKER+3!, PRINT+1, PRINT1, GO+1, DEQUE!

Label References

Name	Line Occurrences
CHK	GO, REPRINT
EN1	EN1+2
FUPD	PRINTB+4
GO	DEQUE
KILL	TERM+1, EN1+3, QUEUE+1, GO+1, REPRINT
PRINT	GO+2, REPRINT
PRINT1	PRINT+1
PRINTB	PRINT1
SET	GO, REPRINT
TERM	DVBADSNT+4, ENBROKER+3

Naked Globals

Name	Field # of Occurrence
^(	PRINT1
^(0	PRINTB+5, PRINTB+6, PRINTB+7, GO

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN1+1*, EN1+3
>> %Y	EN1+2
%ZIS	EN1+3*!
>> ADM	PRINTB+1, PRINT1*
>> ADMDT	SET, PRINTB, PRINTB+3, PRINTB+4, GO, CHK+1
>> ANS	FUPD+3*
>> BEDSEC	PRINTB+13
>> CFLOC	SET, PRINTB+10, FUPD+1, PRINT+1*, PRINT1
>> CNUM	SET, PRINTB*, PRINTB+10
DA	PRINTB+13, FUPD!, FUPD+1*
>> DATA	PRINTB, PRINT1*
>> DCHGDT	PRINTB+7*, PRINTB+10
>> DCHPTR	PRINTB+5*, PRINTB+7
>> DFN	SET, PRINTB+13, PRINT1, GO, CHK+1
>> DIE	FUPD, FUPD+1
>> DR	FUPD, FUPD+1
DT	FUPD, FUPD+1, SETUP
>> DTAR	SETUP*, SETUP+1
DTIME	FUPD+3
DUZ	FUPD+1
>> DVBAD2	FUPD+1, GO
DVBAON2	PRINTB+8, FUPD+4*, KILL!
DVBAQUIT	FUPD+3*, TERM+1!, SETUP
DVBERR	ENBROKER+1~, ENBROKER+2*, EN1+4
DVBGUI	DVBADSNT+2~, DVBADSNT+3, ENBROKER+1~, ENBROKER+2, FUPD+2, PRINT+2, EN1, EN1+4
DVBHFS	ENBROKER+1~, ENBROKER+2*, EN1+4
>> FDT(0	SETUP*, SETUP+1
FND	PRINTB+2, PRINTB+3, PRINTB+4!
>> HEAD	PRINTB+9, SETUP+1*
>> HEAD1	PRINTB+9, SETUP+1*, SETUP+2
HPAT	PRINTB+3~*
>> I	QUEUE*
IO	PRINT, GO+1
IO("Q"	QUEUE, QUEUE+1
IOF	PRINTB+8, SETUP
ION	QUEUE
IOST	PRINTB+8, FUPD+3
>> J	PRINT+1*
>> K	PRINT1*
>> L	PRINT1*
>> LADM	PRINTB+1*, PRINTB+2, PRINTB+3, PRINTB+5
>> LOS	PRINTB+12
>> M	PRINT+1*
>> MB	SET, GO*
NOASK	TERM!, QUEUE*, GO
>> PNAM	PRINTB+3, PRINTB+4, PRINTB+10
>> POP	EN1+3
>> QUIT	FUPD+3, PRINT, PRINT+1, PRINT1
>> QUIT1	PRINTB*
>> RCVAA	SET, PRINTB*
>> RCVPEN	SET, PRINTB*
>> SSN	PRINTB+4, PRINTB+10
>> TDIS	PRINTB+5, PRINTB+6, PRINTB+11
U	SET, PRINTB, PRINTB+5, PRINTB+6, PRINTB+7, FUPD, FUPD+3, SETUP+1, GO, CHK+1
>> XCN	SET, PRINT+1*, PRINT1
>> XDA	SET, PRINTB, FUPD+1, GO
>> XDA2	SET, PRINTB, FUPD, CHK+1
Y	ENBROKER~, PRINTB+4~*!
>> ZTDESC	QUEUE*
>> ZTIO	QUEUE*
>> ZTQUEUED	KILL
>> ZTRTN	QUEUE*
>> ZTSAVE(	QUEUE*
ZTSK	QUEUE+1!

Customize PDF page

Package: Automated Medical Information Exchange

Routine: DVBADSNT

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: