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
Print Page as PDF
Routine: DVBCPRNT

Package: Automated Medical Information Exchange

Routine: DVBCPRNT


Information

DVBCPRNT ;ALB/GTS-557/THM-FINAL REPORT DRIVER ; 5/17/91 10:29 AM

Source Information

Source file <DVBCPRNT.m>

Entry Points

Name Comments DBIA/ICR reference
SETUP
DEVICE
GO
GO1
SETLAB
HDA
WARN
BADXRF ; ** Display a message that a bad cross reference exists **

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!!,"You DIVISION NUMBER is incorrect.",!
  • Line Location: DVBCPRNT+3
Function Call: WRITE
  • Prompt: !,*7,"Your DIVISION NUMBER is invalid.",!
  • Line Location: DVBCPRNT+4
Function Call: WRITE
  • Prompt: @IOF,!?(IOM-$L(HD)\2),HD,!!!
  • Line Location: SETUP+1
Function Call: WRITE
  • Prompt: !!,"Note: All reports will be produced in 'terminal-digit' order.",!!
  • Line Location: SETUP+3
Function Call: WRITE
  • Prompt: !!!!!?25,"Nothing to print",!!
  • Line Location: GO+6
Function Call: WRITE
  • Prompt: !!,"Total requests to be printed: ",XCNT,!
  • Line Location: GO+7
Function Call: WRITE
  • Prompt: $E(PNAM,1,25),?28,$E($P(^(0),U,9),1,3)_" "_$E($P(^(0),U,9),4,5)_" "_$E($P(^(0),U,9),6,9)
  • Line Location: GO1+0
Function Call: WRITE
  • Prompt: ?43,CNUM,?55
  • Line Location: GO1+1
Function Call: WRITE
  • Prompt: Y,!
  • Line Location: GO1+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDA+1
Function Call: WRITE
  • Prompt: !,"Final C&P Reports for print date "
  • Line Location: HDA+3
Function Call: WRITE
  • Prompt: Y,!!,"Operator: ",$S($D(^VA(200,+DUZ,0)):$P(^(0),U,1),1:"Unknown operator"),!,"Location: ",$S($D(^DIC(4,+DUZ(2),0)):$P(^(0),U,1),1:"Unknown location"),!
  • Line Location: HDA+3
Function Call: WRITE
  • Prompt: !,"Veteran Name",?28,"SSN",?43,"C-Number",?55,"Request date",!
  • Line Location: HDA+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDA+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: HDA+6
Function Call: WRITE
  • Prompt: !!,*7,"Too many locations to store! Some locations may not be reported.",!!
  • Line Location: WARN+0
Function Call: WRITE
  • Prompt: !,"A bad 'D' X-Reference exists on the 2507 Request File (#396.3) for"
  • Line Location: BADXRF+1
Function Call: WRITE
  • Prompt: " DA="_DA(1)_"."
  • Line Location: BADXRF+2
Function Call: WRITE
  • Prompt: !,"Please notify IRM at the facility where you have created"
  • Line Location: BADXRF+3
Function Call: WRITE
  • Prompt: " this report.",!!
  • Line Location: BADXRF+4
Info |  Source |  Entry Points |  Interaction Calls