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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DVBHQZ6

Package: HINQ

Routine: DVBHQZ6


Information

DVBHQZ6 ;ISC-ALBANY/JLU/PHH/PJH-print message ; 9/26/11 4:31pm

Source Information

Source file <DVBHQZ6.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
HINQ 6 EN^DVBHIQM  TEM^DVBHIQR  WRT1^DVBHQD1  MM^DVBHQM11  (LABELS,PAUSE)^DVBHS3  2^DVBHUTIL  
Kernel 3 ^%ZIS  ^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 3 ^%DT  ^DIC  YN^DICN  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
HINQ 7 DVB HSUSP-MAIL  DVB HSUSP-PRINTSUSP  DVBHCG  DVBHINQ PAT-HINQ COMP  DVBHQUP  DVBHS3  DVBHUTIL  

Entry Points

Name Comments DBIA/ICR reference
1
2
3
K
K1
M
M1
DT
R
R1
R3
D
D1
EM
LD
S1 ;
S2
QB
EX
DISP(DFN) ;Display episodes for [DVBHINQ PAT-HINQ COMP] template
NEW(DFN,ARRAY) ;Check for new MSE format data
OLD(DFN,ARRAY) ;Get old format VistA data
EPISODE(SUB,P1,P2) ;Get old VistA data and save

External References

Name Field # of Occurrence
^%DT DT
^%ZIS LD, QB+3, EX
^%ZTLOAD LD, QB+7
^DIC M+2, R
YN^DICN EM, QB
EN^DVBHIQM M1, R3
TEM^DVBHIQR M1, R3
WRT1^DVBHQD1 M1, R3
MM^DVBHQM11 S2+10
LABELS^DVBHS3 S1+1
PAUSE^DVBHS3 S2
2^DVBHUTIL 2
$$FMTE^XLFDT DISP+18, DISP+20

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,?5,"Printout by (M)ultiple patients, (R)equestor, (D)ate/time? Multiple//"
  • Line Location: 3+0
Function Call: READ
  • Variable: DVBA
  • Timeout: DTIME
  • Line Location: 3+1
Function Call: WRITE
  • Prompt: !!,*7,?10,"Answer with an 'M', 'R', 'D', <RET> for 'M', or '^' to quit."
  • Line Location: 3+3
Function Call: WRITE
  • Prompt: !,*7,*7,"TO date cannot be earlier than FROM date."
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: !!,"Do you wish to create a mail message, to be sent to the requestors"
  • Line Location: EM+0
Function Call: WRITE
  • Prompt: *7,!,"'YES' to create a mail message 'NO' will not"
  • Line Location: EM+0
Function Call: WRITE
  • Prompt: !,$S($P(DVBDX(JU),U,2)="":$P(DVBDX(JU),U),$D(^DIC(31,$P(DVBDX(JU),U,2),0)):$E($P(^(0),U),1,40),1:"")
  • Line Location: S2+2
Function Call: WRITE
  • Prompt: ?42,$S($P(DVBDX(JU),U,3)="X0":100,1:+$P(DVBDX(JU),U,3))
  • Line Location: S2+3
Function Call: WRITE
  • Prompt: ?50,$P($G(DVBDX(JU)),U,4)
  • Line Location: S2+4
Function Call: WRITE
  • Prompt: ?55,$G(DVBF(5)),?68,$G(DVBF(6))
  • Line Location: S2+12
Function Call: WRITE
  • Prompt: !!,"Would you like a HINQ message printed out "
  • Line Location: QB+0
Function Call: WRITE
  • Prompt: !!,"A YES will result in a HINQ printout queued to the device you select."
  • Line Location: QB+1
Function Call: WRITE
  • Prompt: !,"I will queue all messages!"
  • Line Location: QB+2
Function Call: WRITE
  • Prompt: !,"No printout queued!"
  • Line Location: QB+3
Function Call: WRITE
  • Prompt: !,"Can not queue to your HOME device."
  • Line Location: QB+5
Function Call: WRITE
  • Prompt: !,"I am QUEUEING this report to run now."
  • Line Location: QB+6
Function Call: WRITE
  • Prompt: !,?1,"Last episode"
  • Line Location: DISP+22
Function Call: WRITE
  • Prompt: !,?1,"NTL episode"
  • Line Location: DISP+23
Function Call: WRITE
  • Prompt: !,?1,"NNTL episode"
  • Line Location: DISP+24
Function Call: WRITE
  • Prompt: !,?1,"<more episodes>"
  • Line Location: DISP+27
Routine Call
  • DIC
  • Line Location:
    • M+2
    • R
Routine Call
  • %ZIS
  • Line Location:
    • LD
    • QB+3
    • EX

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DVB(395.5 - [#395.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS("C" K1, LD
^DIC(23 - [#23] DISP+16
^DIC(25 - [#25] DISP+14
^DIC(31 - [#31] S2+2
^DPT - [#2] DISP+4, NEW+3, NEW+4, NEW+5, NEW+7, OLD+2
^DVB(395.5 - [#395.5] M1, R1, D1

Label References

Name Line Occurrences
3 3+3
D 3+2
DT DT, R+1, D
EM EM
EPISODE OLD+4, OLD+6, OLD+8
EX QB+3
K 3+1, EM+2
LD M+4, R+2, D+1
M 3+2, EM+1
NEW DISP+6
OLD DISP+4
QB QB+1, QB+5
R 3+2
R3 R1, D1
S2 S1+2

Naked Globals

Name Field # of Occurrence
^("RS" M1, R1, D1
^(0 S2+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% K!, EM*, EM+1, QB*, QB+1
%DT K!, DT*, DT+1!
%DT("A" DT*
%IS LD*, QB+3*!
%IS("B" QB+3*
ARRAY DISP+2~, DISP+4, DISP+6, NEW~, OLD~
ARRAY( DISP+11, DISP+12, NEW+6*, EPISODE+5*
BOS DISP+9~, DISP+15*, DISP+16*, DISP+26
CNT DISP+10*, DISP+11*, DISP+12, DISP+22, DISP+23, DISP+24, DISP+27, NEW+1~, NEW+2*, NEW+3
, NEW+6*, NEW+7
COMP DISP+9~
DATA DISP+9~, DISP+12*, DISP+13, DISP+15, DISP+17, DISP+19, DISP+21, NEW+5*, NEW+6
DFN K!, M1*, R1*, D1*, DISP~, DISP+4, DISP+6, NEW~, NEW+3, NEW+4
, NEW+5, NEW+7, OLD~, OLD+2
DGRP OLD+1~
DGRP( OLD+2*, OLD+6, OLD+8, EPISODE+1
DGRPBR OLD+1~, EPISODE+2*, EPISODE+5
DGRPCO OLD+1~, EPISODE+1*, EPISODE+5
DGRPDI OLD+1~, EPISODE+2*, EPISODE+5
DGRPED OLD+1~, EPISODE+2*, EPISODE+5
DGRPSD OLD+1~, EPISODE+3*, EPISODE+5
DGRPSN OLD+1~, EPISODE+3*, EPISODE+5
DGRPX OLD+1~, EPISODE+1*, EPISODE+2, EPISODE+3
DIC K!, M*, M+3!, R*
DIC("A" M+1*
DIC("S" M+1*
DIC(0 M*, R*
DISCH DISP+9~, DISP+13*, DISP+14*, DISP+26
DTIME 3+1
DVB K!, K1!, M*, M+2*, M+3, M+4, M1, QB+7, EX!
DVBA 3+1*, 3+2, 3+3, K!
DVBAL K1!, R*, R+2, R1
DVBCS K!
>> DVBDX S1+1
>> DVBDX( S1+2, S2+2, S2+3, S2+4, S2+7
DVBDXSC K!
>> DVBERCS M1, R3
DVBF S2+6~, S2+7*, S2+11
DVBF( S2+11*
DVBF(5 S2+12
DVBF(6 S2+12
DVBFF S2+6~, S2+7*, S2+8, S2+9, S2+11
DVBFR K!, DT*, DT+1*, R+1, R+2, R1, D, D+1, D1
DVBI K!
DVBIO K1!
DVBIXMZ K!
DVBJIO K!, K1!, M1*, R3*
DVBLEN K!
DVBLP K!, M+2*, M+4, M1, R1*, D1*, QB+7, EX!
DVBLP1 K!, K1!, M1*, EM+1
DVBLP2 K1!
DVBMM 3+2*, K!, K1!, M+4, R+2, D+1, QB+7, EX!
DVBMM1 K!, M+4, M1, EM+1*
DVBMM2 3+2*, K!, M+4, R+2, D+1, QB+7*, EX!
DVBTO K!, DT+1*, R+1, R+2, R1, D, D+1, D1
DVBUSER K!
EODATE DISP+9~, DISP+19*, DISP+20*, DISP+26
IEN DISP+9~, NEW+4*, NEW+5
IO M1, R3, QB+5, QB+6
IO("DOC" QB+4
IO("Q" M+4, R+2, D+1, LD, QB+6*, QB+7!
IO(0 M1, R3, QB+5, QB+6
IOF 1
IOM QB+4
ION LD, QB+4
IOP QB+3!, QB+4*, QB+7, EX*!
IOSL S2, QB+4
IOST S2, QB+4
>> JU S1+2*, S2+2, S2+3, S2+4, S2+7
>> M S2+9*, S2+11
MORE DISP+2~, DISP+27, NEW+7*
P1 EPISODE~, EPISODE+1
P2 EPISODE~, EPISODE+1
POP K!, M+4, R+2, D+1, EM+1*, LD, QB+3
QUIT S2+1, S2+13!
R K!
R1 K!
RADATE DISP+9~, DISP+17*, DISP+18*, DISP+26
SDAT NEW+1~, NEW+2*, NEW+3*, NEW+4, NEW+7
SERVN DISP+9~, DISP+21*, DISP+26
SUB EPISODE~, EPISODE+1, EPISODE+5
U M1, S2+2, S2+3, S2+4, S2+7, DISP+13, DISP+14, DISP+15, DISP+16, DISP+17
, DISP+19, DISP+21, EPISODE+1, EPISODE+2, EPISODE+3, EPISODE+5
X K!, M1, R1*, D1*
Y K!, M+2, M+3, DT, DT+1, R
ZTDESC K!, LD*, QB+7*, EX!
>> ZTDTH QB+6*
ZTIO K!, LD*, QB+7*, EX!
ZTRTN K!, M+4*, R+2*, D+1*, QB+7*, EX!
ZTSAVE K!, EX!
ZTSAVE("DVB" M+4*, QB+7*
ZTSAVE("DVBAL" R+2*
ZTSAVE("DVBFR" R+2*, D+1*
ZTSAVE("DVBLP" M+4*, QB+7*
ZTSAVE("DVBMM" M+4*, R+2*, D+1*, QB+7*
ZTSAVE("DVBMM2" M+4*, R+2*, D+1*, QB+7*
ZTSAVE("DVBTO" R+2*, D+1*
ZTSK K!, K1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All