Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DVB(395.5 - [#395.5] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call