Routine: DVBAADRP

Information

DVBAADRP ;ALB/GTS-557/THM-AMIE COMPLETE ADMISSION RPT ; 1/22/91 1:19 PM

Package	Total	Call Graph
Automated Medical Information Exchange	4	($$HFS,END,HFSOPEN)^DVBAB82 (DATE,FINAL,KILL)^DVBAUTIL NOPARM^DVBAUTL2 (ADM,ELIG,RCV)^DVBAVDPT
Kernel	4	(,HOME)^%ZIS ^%ZISC (,KILL)^%ZTLOAD $$FMTE^XLFDT
Registration	1	DEM^VADPT

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: 3

Package	Total	Caller Graph
Automated Medical Information Exchange	3	DVBA ALL ADMISSIONS DVBAB REPORT ADMINQ DVBAB REPORT ADMISSION INQUIRY

Entry Points

Name	Comments	DBIA/ICR reference
ENBROKER(Y)	; ; Returns some info for the CAPRI GUI to display prior ; to the user running this report
ENBROKE2(MSG,BDATE,EDATE,RO,RONUM,DVBADLMTR)	; ; This is the entry point to run the actual report from ; the CAPRI GUI.
SET
PRINTB
PRINTND	;print non-delimited admission inq report
PRINTD	;print delimited admission inq report
PRINT
PRINT1
TERM
SETUP
EN1
QUEUE
GO
KILL	;
DEQUE
COLHDR	;Column header for delimited report

External References

Name	Field # of Occurrence
^%ZIS	ENBROKE2+17, EN1+2
HOME^%ZIS	ENBROKER+6, ENBROKE2+12, TERM
^%ZISC	KILL+1
^%ZTLOAD	QUEUE+1
KILL^%ZTLOAD	KILL+1
$$HFS^DVBAB82	ENBROKE2+6
END^DVBAB82	ENBROKE2+18, ENBROKE2+22
HFSOPEN^DVBAB82	ENBROKE2+18
DATE^DVBAUTIL	EN1+1
FINAL^DVBAUTIL	KILL+1
KILL^DVBAUTIL	ENBROKER+7, ENBROKE2+13, ENBROKE2+19, TERM+1, EN1+3, GO+6
NOPARM^DVBAUTL2	ENBROKER+7, ENBROKE2+13, TERM+1
ADM^DVBAVDPT	PRINTB
ELIG^DVBAVDPT	PRINTND+6
RCV^DVBAVDPT	SET
DEM^VADPT	PRINTD+7
$$FMTE^XLFDT	ENBROKER+9, PRINTB+1, PRINTB+2, SETUP

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,?(80-$L(HEAD)\2),HEAD,!,?(80-$L(HEAD1)\2),HEAD1,!! Line Location: PRINTND+2
Function Call: WRITE	Prompt: !! Line Location: PRINTND+3
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,"Admission Date:",?26,ADMDT,!,?3,"Admitting Diagnosis:",?26,DIAG,! Line Location: PRINTND+4
Function Call: WRITE	Prompt: ?8,"Discharge Date:",?26,DCHGDT,!,?11,"Bed Service:",?26,BEDSEC,!,?13,"Recv A&A?:",?26,$S(RCVAA=0:"NO",RCVAA=1:"YES",1:"Not specified"),! Line Location: PRINTND+5
Function Call: WRITE	Prompt: !,""""_PNAM_""""_DVBADLMTR_$C(160)_CNUM_DVBADLMTR_CFLOC_DVBADLMTR_SSN_DVBADLMTR_ADMDT_DVBADLMTR_""""_DIAG_""""_DVBADLMTR Line Location: PRINTD+9
Function Call: WRITE	Prompt: DCHGDT_DVBADLMTR_""""_BEDSEC_""""_DVBADLMTR_$S(RCVAA=0:"NO",RCVAA=1:"YES",1:"Not specified")_DVBADLMTR Line Location: PRINTD+10
Function Call: WRITE	Prompt: $S(RCVPEN=0:"NO",RCVPEN=1:"YES",1:"Not specified")_DVBADLMTR_""""_ELIG_"""" Line Location: PRINTD+11
Function Call: WRITE	Prompt: @IOF,!,"VARO COMPLETE ADMISSION REPORT" Line Location: SETUP+0
Function Call: WRITE	Prompt: !,HEAD1 Line Location: SETUP+2
Function Call: WRITE	Prompt: !!,"Please enter dates for search, oldest date first, most recent date last.",!!,"Last report was run on " Line Location: EN1+0
Function Call: WRITE	Prompt: Y,!! Line Location: EN1+0
Function Call: WRITE	Prompt: "Patient Name"_DVBADLMTR_"Claim No"_DVBADLMTR_"Claim Folder Loc"_DVBADLMTR Line Location: COLHDR+1
Function Call: WRITE	Prompt: "Social Sec No"_DVBADLMTR_"Admission Date"_DVBADLMTR_"Admitting Diagnosis"_DVBADLMTR Line Location: COLHDR+2
Function Call: WRITE	Prompt: "Discharge Date"_DVBADLMTR_"Bed Service"_DVBADLMTR_"Recv A&A?"_DVBADLMTR Line Location: COLHDR+3
Function Call: WRITE	Prompt: "Pension?"_DVBADLMTR_"Eligibility Data" Line Location: COLHDR+4
Routine Call	%ZIS Line Location: ENBROKE2+17 EN1+2
Routine Call	%ZIS Line Location: ENBROKER+6 ENBROKE2+12 TERM

Used in RPC

RPC Name	Call Tags
DVBAB REPORT ADMINQ	ENBROKE2
DVBAB REPORT ADMISSION INQUIRY	ENBROKER

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	ENBROKER+13, EN1
^DGPM("AMV1"	GO
^DPT - [#2]	SET, PRINTD+5
^DVB(396.1 - [#396.1]	ENBROKER+9, SETUP
^TMP("DVBA"	ENBROKE2+4!
^TMP($J	DVBAADRP+6!, ENBROKER+5!, ENBROKE2+11!, SET+1*, PRINTND+8, PRINTND+14, PRINT+1, PRINT1, GO+1, GO+6 , DEQUE!

Label References

Name	Line Occurrences
COLHDR	PRINTD+8
DEQUE	ENBROKE2+21
GO	DEQUE
KILL	ENBROKE2+17, EN1+2, QUEUE+1, GO+1
PRINT	GO+6
PRINT1	PRINT+1
PRINTB	PRINT1
PRINTD	PRINTB+3
PRINTND	PRINTB+4
SET	GO
TERM	DVBAADRP+6

Naked Globals

Name	Field # of Occurrence
^(	PRINTD+5, PRINT1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	ENBROKE2+17!, EN1+2!
>> ADM	PRINTND+8, PRINTND+14, PRINT1*
>> ADMDT	PRINTB+1*, PRINTND+4, PRINTD+9
>> ANS	PRINTND+11, PRINTND+12, PRINTND+17
BDATE	ENBROKE2~, ENBROKE2+7, ENBROKE2+10*, GO
>> BEDSEC	PRINTND+5, PRINTD+10
>> CFLOC	SET, SET+1, PRINTND+4, PRINTND+8, PRINTND+14, PRINTD+9, PRINT+1*, PRINT1
>> CNUM	SET+1, PRINTB*, PRINTND+4, PRINTD+9
>> DA	SET, SET+1, PRINTB, PRINTND+8, PRINTND+14, PRINTD+5, PRINT1, GO
>> DATA	PRINTB, PRINT1*
>> DCHGDT	PRINTB+2*, PRINTND+5, PRINTD+10
DCHPTR	ENBROKE2+19!, EN1+3!, GO+6!, KILL+1!
>> DFN	SET, PRINTB
>> DIAG	PRINTND+4, PRINTD+9
DT	ENBROKER+9, SETUP
>> DTAR	ENBROKER+9, ENBROKER+10, ENBROKER+13, ENBROKE2+15, SETUP, SETUP+1, EN1
DTIME	PRINTND+11, PRINTND+17
DVBADHDR	ENBROKE2+3~, ENBROKE2+5, PRINTD+8, COLHDR+5
DVBADLMTR	ENBROKE2~, ENBROKE2+5*, PRINTB+3, PRINTB+4, PRINTD+9, PRINTD+10, PRINTD+11, GO, GO+3, GO+5 , COLHDR+1, COLHDR+2, COLHDR+3, COLHDR+4
>> DVBAELIG	PRINTD+3
>> DVBAELST	PRINTD+4
DVBAON2	ENBROKE2+19!, PRINTND+1, PRINTND+6*, EN1+3!, GO+6!, KILL+1!
>> DVBAQUIT	ENBROKER+7, ENBROKE2+13, PRINTND+13*, TERM+1, GO+6
DVBERR	ENBROKE2+3~, ENBROKE2+6*, ENBROKE2+18
DVBGUI	DVBAADRP+4~, DVBAADRP+5, ENBROKER+3~, ENBROKER+4, ENBROKE2+3~, ENBROKE2+6*, PRINTND+2, PRINTND+3, PRINTND+9, PRINTND+15 , GO+5
DVBHFS	ENBROKE2+3~, ENBROKE2+6*, ENBROKE2+18
EDATE	ENBROKE2~, ENBROKE2+7, ENBROKE2+10*, GO
ELIG	PRINTD+2~, PRINTD+3, PRINTD+4, PRINTD+6*, PRINTD+11
>> FDT(0	ENBROKER+9, ENBROKER+10, ENBROKE2+15, SETUP, SETUP+1
>> HEAD	ENBROKER+10, ENBROKE2+15, PRINTND+2, SETUP+1*, GO+5
>> HEAD1	ENBROKER+10, ENBROKER+11, ENBROKE2+15, PRINTND+2, SETUP+1*, SETUP+2, GO+5
I	ENBROKE2+3~, QUEUE*
INCMP	PRINTD+2~, PRINTD+3, PRINTD+5, PRINTD+6
IO	ENBROKE2+20, PRINT, GO+2
IO("Q"	QUEUE, QUEUE+1
IOF	PRINTND+1, SETUP
ION	QUEUE
IOST	PRINTND+1, PRINTND+6, PRINTND+7
J	ENBROKE2+19!, PRINT+1, EN1+3!, GO, GO+6!, KILL+1!
>> K	PRINT1*
>> L	PRINT1*
M	ENBROKE2+19!, PRINT+1*, EN1+3!, GO+6!, KILL+1!
MA	SET+1, PRINTB, PRINT!, GO
MB	SET+1, PRINT!, GO*
MSG	ENBROKE2~
NOASK	ENBROKER+6!, ENBROKE2+12!, TERM!, QUEUE*, GO
>> PNAM	PRINTND+4, PRINTD+9
>> POP	ENBROKE2+19, EN1+3
>> QUIT	PRINTND+12, PRINT, PRINT+1, PRINT1
QUIT1	ENBROKER+6!, ENBROKE2+12!, PRINTB*, TERM!
>> RCVAA	SET+1, PRINTB*, PRINTND+5, PRINTD+10
>> RCVPEN	SET+1, PRINTB*, PRINTND+6, PRINTD+11
RO	ENBROKE2~, SET
RONUM	ENBROKE2~, SET
>> SSN	PRINTND+4, PRINTD+7*, PRINTD+9
U	ENBROKER+10, ENBROKER+13, ENBROKE2+15, SET+1, PRINTB, PRINTND+12, PRINTD+5, PRINTD+7, SETUP+1, EN1
>> VADM(2	PRINTD+7
>> X	ENBROKE2+7, ENBROKE2+16, ENBROKE2+17, EN1+2, KILL+1
>> XCN	SET+1, PRINTND+8, PRINTND+14, PRINT+1*, PRINT1
Y	ENBROKER~, ENBROKER+13, ENBROKER+15, ENBROKE2+7, ENBROKE2+17, ENBROKE2+19!, EN1*, EN1+2, EN1+3!, GO+6! , KILL+1!
Y(1	ENBROKER+9*
Y(2	ENBROKER+11*
Y(3	ENBROKER+11*
Y(4	ENBROKER+12*
Y(5	ENBROKER+14*
Y(6	ENBROKER+15*
>> ZTDESC	QUEUE*
>> ZTIO	QUEUE*
>> ZTQUEUED	KILL+1
>> ZTRTN	QUEUE*
>> ZTSAVE(	QUEUE*
>> ZTSK	QUEUE+1

Customize PDF page

Package: Automated Medical Information Exchange