Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ADGWMM2

Package: IHS Changes To ADT

Routine: ADGWMM2


Information

ADGWMM2 ; IHS/ADC/PDW/ENM - WARD MEDICARE/MEDICAID PRINT ; [ 10/29/1999 1:31 PM ]

Source Information

Source file <ADGWMM2.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
IHS Changes To ADT 1 CONF^ADGUTIL  
IHS VA Utilities 1 $$VAL^XBDIQ1  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To ADT 1 ADGWMM1  

Entry Points

Name Comments DBIA/ICR reference
IDATE(X) ; -- inverse date
RANGE() ; -- printable date range
MCD ; -- medicaid
INS ; -- private insurance
NEWPG ; -- end of page control
DWD() ; -- find disch ward
LDT ;EP; -- loop by disch date
PRINT ; -- print
TMPLP ; -- loop thru tmp file
MCR ; -- medicare
CHECK ; -- check for insurance types requested
HDH ; -- heading

External References

Name Field # of Occurrence
CONF^ADGUTIL HDH+2
^DIR NEWPG+1
$$VAL^XBDIQ1 LDT+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(DFN,0),U),1,20)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: ?22,$J($P(^(0),U,2),6)
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: ?32,Y
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: ?50,Y
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: ?72,$E(W,1,5)
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !?2,"Admit Dx: ",$P(^DGPM(DGPMCA,0),U,10)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: ?40,"MCAID #: ",MD
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: ?61,"MCARE #: ",MR
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !?2,"Insurer: ",PVN," #",PV
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDH+1
Function Call: WRITE
  • Prompt: !?24,"MEDICARE/MEDICAID/INSURANCE LIST"
  • Line Location: HDH+3
Function Call: WRITE
  • Prompt: ?69,Y
  • Line Location: HDH+5
Function Call: WRITE
  • Prompt: !?17,"for Discharge Dates: ",$$RANGE
  • Line Location: HDH+6
Function Call: WRITE
  • Prompt: !?2,"Patient Name",?23,"HRCN",?32,"Admit Date",?50,"Dsch Date"
  • Line Location: HDH+7
Function Call: WRITE
  • Prompt: ?72,"Ward"
  • Line Location: HDH+8
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: HDH+9
Routine Call
  • DIR
  • Line Location:
    • NEWPG+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNMCD - [#9000004] MCD+2, MCD+3, MCD+4
^AUPNMCD("B" CHECK+3
^AUPNMCR - [#9000003] MCR+2, MCR+3, MCR+4
^AUPNMCR("B" CHECK+2
^AUPNPAT - [#9000001] PRINT+4
^AUPNPRVT - [#9000006] INS+2, INS+3, INS+4, INS+5
^AUPNPRVT("B" CHECK+4
^AUTNINS - [#9999999.18] INS+5
^AUTTMCS - [#9999999.32] MCR+4
^DD("DD" PRINT+6, PRINT+7, HDH+5, RANGE+2, RANGE+3
^DGPM - [#405] LDT+6, PRINT+6, PRINT+9, DWD+1, DWD+3, DWD+6
^DGPM("ATID2" DWD+2, DWD+4
^DGPM("ATT3" LDT+4, LDT+5
^DPT - [#2] PRINT+3
^TMP("ADGWMM" LDT+1!, LDT+10*, TMPLP+4, TMPLP+5, TMPLP+7, TMPLP+8

Label References

Name Line Occurrences
$$DWD LDT+8
$$IDATE DWD+1, DWD+3
$$RANGE HDH+6
CHECK LDT+7
HDH LDT+12, NEWPG+2
INS CHECK+4
MCD CHECK+3
MCR CHECK+2
NEWPG PRINT+2
PRINT TMPLP+9
TMPLP LDT+12

Naked Globals

Name Field # of Occurrence
^( CHECK+2, CHECK+3, CHECK+4
^(0 LDT+6, MCR+4, PRINT+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN LDT+6*, LDT+10, TMPLP+8*, CHECK+2, CHECK+3, CHECK+4, PRINT+3, PRINT+4, DWD+2, DWD+4
>> DGBD LDT+3, RANGE+2
DGD LDT+2~, LDT+3*, LDT+4*, LDT+5, LDT+10, TMPLP+5*, TMPLP+7, TMPLP+8, PRINT+7
>> DGED LDT+3, RANGE+3
>> DGMD LDT+7, LDT+10, CHECK+1*, MCD+3*, MCD+4*
>> DGMR LDT+7, LDT+10, CHECK+1*, MCR+3*, MCR+4*
DGN LDT+2~, LDT+5*, LDT+6, LDT+10, TMPLP+6*, TMPLP+7*, TMPLP+8
>> DGPG HDH+1, HDH+4*
>> DGPI LDT+7, LDT+10, CHECK+1*, INS+3*, INS+4*
>> DGPINM LDT+10, CHECK+1*, INS+5*
>> DGPMCA LDT+6*, LDT+10, PRINT+5*, PRINT+6, PRINT+9, DWD+1, DWD+3, DWD+5
>> DGS TMPLP+8*, PRINT+5, PRINT+10
>> DGSTOP TMPLP+4, TMPLP+5, TMPLP+7, PRINT+2, NEWPG+1*
>> DGW LDT+9
DIR NEWPG+1!
DIR(0 NEWPG+1*
DT MCR+3, MCD+4, INS+3, HDH+5
DUZ(2 PRINT+4
ED MCR+1~, MCR+2*, MCR+3, MCD+1~, MCD+2*, MCD+3, INS+1~, INS+2*, INS+3, INS+4
, INS+5
EED MCR+1~, MCR+3*, MCD+1~, MCD+3*, MCD+4, INS+1~, INS+3*
END LDT+2~, LDT+3*, LDT+4
>> IFN CHECK+2*, CHECK+3*, CHECK+4*, MCR+2, MCR+3, MCR+4, MCD+2, MCD+3, MCD+4, INS+2
, INS+3, INS+4, INS+5
IOF HDH+1
IOM HDH+9
IOSL PRINT+2
IOST HDH+1, NEWPG+1
>> LN HDH+9*
MD PRINT+1~, PRINT+10*, PRINT+11
MR PRINT+1~, PRINT+10*, PRINT+12
PV PRINT+1~, PRINT+10*, PRINT+13
PVN PRINT+1~, PRINT+10*, PRINT+13
R RANGE+1~, RANGE+2*, RANGE+3*, RANGE+4
U LDT+6, LDT+10, TMPLP+4, TMPLP+5, TMPLP+7, MCR+3, MCR+4, MCD+3, MCD+4, INS+3
, INS+4, INS+5, PRINT+2, PRINT+3, PRINT+4, PRINT+5, PRINT+9, PRINT+10, NEWPG+1, DWD+1
, DWD+6
>> W LDT+8*, LDT+9*, LDT+10, TMPLP+4*, TMPLP+5, TMPLP+7, TMPLP+8, PRINT+8
X TMPLP+1~, NEWPG+1, RANGE+1~, DWD+1~, DWD+2*, DWD+3, DWD+4, DWD+5, IDATE~, IDATE+1
Y PRINT+6*, PRINT+7*, HDH+5*, RANGE+1~, RANGE+2*, RANGE+3*, DWD+1~*, DWD+2
Z DWD+1~, DWD+3*, DWD+4*, DWD+5*, DWD+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All