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

Package: Registration

Routine: DGODNP1


Information

DGODNP1 ;ALB/EG - OUTPUT TOT DISCH BY MEANS TEST CAT ; 23 DEC 88@0957

Source Information

Source file <DGODNP1.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Registration 6 TRN^DGODASK  ^DGODCV  (,TOTW)^DGODMT  ^DGODNP2  (ET,G1,T1)^DGODUTL  LO^DGUTL  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 ^%DT  YN^DICN  

Entry Points

Name Comments DBIA/ICR reference
BG
END
MT ;if MT="U" drive variation of DGPTF3 to determine current MT
DDV
1
0
EN
ZRO ;zero facility+suffix
2
DIV ;get facility for cases where PTF has div as ""
QTSK ;queue task

External References

Name Field # of Occurrence
^%DT DGODNP1+3, DDV+3, BG, BG+1
^%ZIS DDV
^%ZISC END
^%ZTLOAD QTSK+2
TRN^DGODASK DDV+4
^DGODCV EN+2
^DGODMT MT+1
TOTW^DGODMT EN+1
^DGODNP2 EN+2
ET^DGODUTL EN+1
G1^DGODUTL ZRO+1
T1^DGODUTL EN
LO^DGUTL EN
YN^DICN DDV+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"INPATIENT DISCHARGES BY MEANS TEST CATEGORY",!
  • Line Location: DGODNP1+5
Function Call: WRITE
  • Prompt: !,"REPORT REQUIRES 132 COLUMN OUTPUT",!
  • Line Location: DGODNP1+6
Function Call: WRITE
  • Prompt: !,"CANNOT QUEUE TO YOUR OWN DEVICE"
  • Line Location: DDV+1
Function Call: WRITE
  • Prompt: !,"CONTINUE DIRECTLY TO YOUR I/O DEVICE// "
  • Line Location: DDV+1
Function Call: WRITE
  • Prompt: !,"If you say YES execution will begin immediately and your default i/o device will hang during compilation, NO or ^ will end"
  • Line Location: DDV+2
Function Call: WRITE
  • Prompt: !
  • Line Location: BG+1
Function Call: WRITE
  • Prompt: *7,"TO DATE IS LESS THAN FROM DATE, TRY AGAIN"
  • Line Location: BG+1
Routine Call
  • %ZIS
  • Line Location:
    • DDV

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DGODNP1+3
^DG(40.8 - [#40.8] DIV+4
^DGPM - [#405] DIV+3
^DGPM("AMV3" DIV+2
^DGPT - [#45] 1, 2, 2+2, DIV+1, DIV+2, MT+1
^DGPT("ADS" 0, 1
^DIC(42 - [#42] DIV+4
^DIC(8 - [#8] 2+1
^DPT - [#2] 2, 2+1
^UTILITY("DGOD" EN!, EN+1*, END+1!, 1, 2+2*, 2+3*, ZRO+1*

Label References

Name Line Occurrences
0 EN
1 0
2 1
BG DGODNP1+7, BG+1
DDV DDV+2
DIV 1
EN DDV+1
END DDV, DDV+1, DDV+3, BG, BG+1
MT 2+2, 2+3
QTSK DDV+4
ZRO 1

Naked Globals

Name Field # of Occurrence
^( 2+1
^("AI" END+1!
^("T" END+1!
^("T1" END+1!
^("TOT" END+1!
^(0 1, 2+1, DIV+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DDV+1*, END+2!
%DT DGODNP1+3*, DDV+3*, END+2!, BG*
%DT("A" DDV+3*, BG*, BG+1*
%DT("B" DDV+3*
%DT(0 DDV+3*!, BG*, BG+1*
%Y DDV+2, END+2!
%ZIS DDV*, END+2!
%ZIS("A" DDV*
A END+2!
A( EN, ZRO+1*
A2 EN*, END+2!, ZRO+1*
>> AD MT+1*
B1 EN*, END+2!, 0*, 1, 2+2, DIV+2
B2 END+2!, 1*, 2, 2+2, DIV+1, DIV+2, MT+1
DFN END+2!, 2*, 2+1, DIV+2*
DG05 DGODNP1+4, DGODNP1+7, END+2!
DG0BD END+2!
DG0BD( QTSK+1
DG0ND END+2!
DG0ND( QTSK+1
DG0X END+2!
DGBD DGODNP1+4, DGODNP1+7, EN, EN+1, END+2!, QTSK+1*, BG+1*
DGDV EN*, EN+1*, END+2!, 1, 2+2, 2+3, ZRO+1, DIV+1*, DIV+3*, DIV+4*
DGDVN END+2!
DGEL END+2!, 2+1*, 2+2, 2+3
DGGE DGODNP1+3*, EN+1, END+2!, QTSK+1
DGJB DGODNP1+3*, EN+1, EN+2*, END+2!, QTSK+1, 1, 2+2, 2+3
DGMO DDV+1*, EN+2, END+2!, QTSK+1*
DGMO( QTSK+1
DGMT END+2!, 2+2*, 2+3*, MT+1*
DGND DGODNP1+4, DGODNP1+7, EN+1, END+2!, QTSK+1*, BG+1*, 0
DGPGM END+2!
DGQDT DDV+4*, END+2!, QTSK+1
DGREP EN*, END+2!
DGSP DDV+4, END+2!
DGTN EN*, EN+1, EN+2*, END+2!, 1, 2+2, 2+3
DGTOUT EN+1, END+2!
DGV END+2!, 2+1*, 2+2, 2+3
DGVAR END+2!
DGWADM END+2!, DIV+2*, DIV+3
DGWADMT END+2!
DGWARD END+2!, DIV+3*, DIV+4
DGWH END+2!, 2+1*
DGX END+3!, MT+1
DT BG
H1 EN*, END+3!
H2 EN+1*, END+3!
I DDV+4*, EN*, EN+1*, END+3!, QTSK+1, 0*
IO DDV+1, END
IO(0 DDV+1, END
IOM QTSK+1
ION QTSK+1
J END+3!, 1*
K END+3!
K1 EN*, END+3!
>> POP DDV, END, BG*
PTF END+3!, MT+1*
T2 DGODNP1+3*, END+3!
U DGODNP1+3*, EN, EN+1, BG*, 1, 2, 2+1, 2+2, 2+3, ZRO+1
, DIV+1, DIV+2, DIV+4, MT+1
X DGODNP1+3*, END+3!
Y DGODNP1+3, DDV+3, DDV+4, END+3!, BG, BG+1
>> Z( EN+1
ZRT DGODNP1+3*, END+3!
ZTDESC END+3!, QTSK+1*
ZTDTH END+3!, QTSK+1*
ZTIO END+3!, QTSK+1*
ZTRTN END+3!, QTSK+1*
ZTSAVE END+3!
ZTSAVE("DGBD" QTSK+1*
ZTSAVE("DGGE" QTSK+1*
ZTSAVE("DGJB" QTSK+1*
ZTSAVE("DGMO" QTSK+1*
ZTSAVE("DGND" QTSK+1*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All