Routine: ADGWMM1

Information

ADGWMM1 ; IHS/ADC/PDW/ENM - WARD MEDICARE/MEDICAID PRINT ; [ 09/26/2000 8:42 AM ]

Source Information

Source file <ADGWMM1.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
IHS Changes To ADT	3	CONF^ADGUTIL PRTOPT^ADGVAR LDT^ADGWMM2
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	^DIC ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
LWRD	; -- loop wards (current inpatients)
ZIS	; -- select device
NEWPG	; -- end of page control
WALL	;EP; -- all wards, current inpts
PRINT	; -- print
MCD	; -- medicaid
QONE	; -- entry point queued one ward
LDFN	; -- loop patients & check for medicaid/care
Q	; -- cleanup
WONE	;EP; -- one ward, current inpts
INIT	; -- initialize variables
TM	; -- queued outputs
QALL	; -- entry point queued all wards
DATE	;EP; -- by discharge date
SWRD	; -- select ward
INS	; -- private insurance
MCR	; -- medicare
HDH	; -- heading

External References

Name	Field # of Occurrence
^%ZIS	ZIS+1
HOME^%ZIS	TM+4
^%ZISC	Q+2
^%ZTLOAD	TM+3
CONF^ADGUTIL	HDH+2
PRTOPT^ADGVAR	Q+1
LDT^ADGWMM2	DATE+1
^DIC	SWRD+1
^DIR	NEWPG+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$E($P(^DPT(DFN,0),U),1,20) Line Location: PRINT+2
Function Call: WRITE	Prompt: ?22,$J($P(^(0),U,2),6) Line Location: PRINT+3
Function Call: WRITE	Prompt: ?67,$P(Y,"@") Line Location: PRINT+8
Function Call: WRITE	Prompt: !?2,"Admit Dx: ",$P(^DGPM(AD,0),U,10) Line Location: PRINT+9
Function Call: WRITE	Prompt: ?40,"MCAID #: ",DGMCDN Line Location: PRINT+11
Function Call: WRITE	Prompt: ?40,"MCAID #: ",DGMCDN Line Location: PRINT+12
Function Call: WRITE	Prompt: ?60,"MCARE #: ",DGMCRN Line Location: PRINT+13
Function Call: WRITE	Prompt: ?60,"MCARE #: ",DGMCRN Line Location: PRINT+14
Function Call: WRITE	Prompt: !?2,"Insurer: ",DGINSNM," #",DGINSN Line Location: PRINT+15
Function Call: WRITE	Prompt: !?2,"Insurer: ",DGINSNM," #",DGINSN Line Location: PRINT+16
Function Call: WRITE	Prompt: ! Line Location: PRINT+17
Function Call: WRITE	Prompt: @IOF Line Location: HDH+1
Function Call: WRITE	Prompt: !?20,"MEDICARE/MEDICAID/INSURANCE LIST" Line Location: HDH+3
Function Call: WRITE	Prompt: ?69,Y Line Location: HDH+5
Function Call: WRITE	Prompt: !?20,"CURRENT INPATIENTS ON WARD: ",DGW Line Location: HDH+6
Function Call: WRITE	Prompt: !?2,"Patient Name",?23,"HRCN",?30,"Room",?39,"Srv" Line Location: HDH+7
Function Call: WRITE	Prompt: ?47,"Provider",?67,"Admit Date" Line Location: HDH+8
Function Call: WRITE	Prompt: !,LN Line Location: HDH+9
Routine Call	%ZIS Line Location: TM+4
Routine Call	DIC Line Location: SWRD+1
Routine Call	DIR Line Location: NEWPG+1
Routine Call	%ZIS Line Location: ZIS+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNMCD - [#9000004]	MCD+1, MCD+2, MCD+3
^AUPNMCD("B"	LDFN+4
^AUPNMCR - [#9000003]	MCR+1, MCR+2, MCR+3
^AUPNMCR("B"	LDFN+3
^AUPNPAT - [#9000001]	PRINT+3
^AUPNPRVT - [#9000006]	INS+1, INS+2, INS+3, INS+4
^AUPNPRVT("B"	LDFN+5
^AUTNINS - [#9999999.18]	INS+4
^AUTTMCS - [#9999999.32]	MCR+3
^DD("DD"	PRINT+8, HDH+5
^DGPM - [#405]	PRINT+8, PRINT+9
^DIC(45.7 - [#45.7]	PRINT+5
^DPT - [#2]	PRINT+2, PRINT+4, PRINT+5, PRINT+6
^DPT("CN"	LWRD+1, LDFN+1, PRINT+7
^VA(200 - [#200]	PRINT+6

Label References

Name	Line Occurrences
HDH	WONE+1, SWRD+3, NEWPG+2, QONE+1
INIT	WONE+1, WALL+1, DATE+1
INS	LDFN+5
LDFN	WONE+1, LWRD+1, SWRD+3, QONE+1
LWRD	WALL+1, QALL+1
MCD	LDFN+4
MCR	LDFN+3
NEWPG	LWRD+1, PRINT+1
PRINT	LDFN+6
Q	WONE+1, WALL+1, DATE+1, SWRD+2, ZIS+1, TM+4, QONE+1, QALL+1
TM	ZIS+1
ZIS	SWRD+2

Naked Globals

Name	Field # of Occurrence
^(	LDFN+3, LDFN+4, LDFN+5, PRINT+4, PRINT+5, PRINT+6
^(0	MCR+3, PRINT+3

Local Variables

Name	Field # of Occurrence
>> %ZIS	ZIS+1*
>> AD	PRINT+7*, PRINT+8, PRINT+9
D	Q+3!
DFN	LDFN+1*, LDFN+3, LDFN+4, LDFN+5, Q+3!, PRINT+2, PRINT+3, PRINT+4, PRINT+5, PRINT+6 , PRINT+7
DGBD	Q+4!
DGED	Q+4!
DGINSN	LDFN+2, LDFN+6, Q+4!, INS+2, INS+3*, PRINT+16
DGINSNM	Q+5!, INS+4*, PRINT+16
DGMCDN	LDFN+2, LDFN+6, Q+4!, MCD+2, MCD+3*, PRINT+12
DGMCRN	LDFN+2, LDFN+6, Q+4!, MCR+2, MCR+3*, PRINT+14
DGMD	Q+4!
DGMR	Q+4!
DGPG	INIT+1, Q+4!, HDH+1, HDH+4, NEWPG+1
DGPI	Q+4!
DGPINM	Q+5!
DGPMCA	Q+5!
DGS	Q+5!
DGSTOP	INIT+1, LWRD+1, LDFN+1, Q+1, Q+4!, PRINT+1, NEWPG+1
DGT	Q+5!
DGW	LWRD+1, LDFN+1, Q+4!, SWRD+1, PRINT+7, HDH+6
DIC	Q+3!, SWRD+1*
DIC(0	Q+3!, SWRD+1*
DIR	NEWPG+1!
DIR(0	NEWPG+1*
DT	MCR+2, MCD+3, INS+2, HDH+5
DUZ(2	PRINT+3
ED	Q+3!, MCR+1, MCR+2, MCD+1, MCD+2, INS+1*, INS+2, INS+3, INS+4
EED	Q+3!, MCR+2, MCD+2, MCD+3, INS+2*
I	Q+3!
IFN	LDFN+3, LDFN+4, LDFN+5*, Q+3!, MCR+1, MCR+2, MCR+3, MCD+1, MCD+2, MCD+3 , INS+1, INS+2, INS+3, INS+4
INSN	Q+3!
INSNM	Q+3!
IO	INIT+1
IO("Q"	SWRD+2, ZIS+1
IOF	HDH+1
IOM	HDH+9
ION	TM+2
IOSL	PRINT+1
IOST	Q+1, HDH+1, NEWPG+1
LN	Q+3!, HDH+9*
MCDN	Q+3!
MCRN	Q+3!
>> POP	SWRD+2, ZIS+1
R	Q+3!
T	Q+3!, TM+1, TM+3
U	LWRD+1, LDFN+1, MCR+2, MCR+3, MCD+2, MCD+3, INS+2, INS+3, INS+4, SWRD+1 , PRINT+1, PRINT+2, PRINT+3, PRINT+5, PRINT+6, PRINT+9, NEWPG+1
W	Q+3!
X	Q+3!, NEWPG+1
Y	Q+3!, SWRD+1, PRINT+8, HDH+5
>> ZTDESC	TM+2*
>> ZTIO	TM+2*
>> ZTRTN	TM+1*
>> ZTSAVE("W"	TM+3*

Customize PDF page

Package: IHS Changes To ADT

Routine: ADGWMM1

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed