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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ADGWMM1

Package: IHS Changes To ADT

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

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All