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

Package: Automated Medical Information Exchange

Routine: DVBCPND1


Information

DVBCPND1 ;ALB/GTS-557/THM,SBW - 2507 PENDING REQUESTS, PART 2 ; MAY 03, 2011

Source Information

Source file <DVBCPND1.m>

Entry Points

Name Comments DBIA/ICR reference
NXT
SORT ; AJF;Request Status Conversion
SETUP
DATA
EXIT
KILL
PRINT
ITEMS ;
HEADER
ELAPSED

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Total pending: ",DVBCCNT,!
  • Line Location: DATA+7
Function Call: WRITE
  • Prompt: !!,"Press RETURN "
  • Line Location: DATA+8
Function Call: WRITE
  • Prompt: *7,!!!!!,"No pending requests found for selected parameters.",!!
  • Line Location: EXIT+0
Function Call: WRITE
  • Prompt: !?10,"Division: "_ADIV,!?12,"Status: "
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: STATUS,!!,PNAM,?49,"SSN: ",SSN,!?44,"Claim no: ",CNUM,!?40,"Request date: ",$$FMTE^XLFDT(RDATE1,"5DZ"),!?40,"Elapsed days: ",EDAYS,!!
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: "Transferred in from ",$S($D(^DIC(4.2,+OWNDOM,0)):$P(^(0),U,1),1:"Unknown site"),!
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !?5,"Exams requested:",!!
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !!,"Requested by: ",$S($D(^VA(200,+REQSTR,0)):$P(^(0),U,1),1:" (Not specified) ")," at "
  • Line Location: ITEMS+4
Function Call: WRITE
  • Prompt: $S(RONAME]"":RONAME,1:" (Not specified) "),!
  • Line Location: ITEMS+5
Function Call: WRITE
  • Prompt: "-"
  • Line Location: ITEMS+5
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: ITEMS+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ITEMS+7
Function Call: WRITE
  • Prompt: @IOF,!!
  • Line Location: HEADER+0
Function Call: WRITE
  • Prompt: ?(80-$L(HEAD)\2),HEAD,?71,"Page: ",PG,!?(80-$L(DVBCHDR)\2),DVBCHDR,!!
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: ?(80-$L(HEAD2)\2),HEAD2,!
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: ?(80-$L(PROCDT)\2),PROCDT,!?(80-$L(HEAD3)\2),HEAD3,!
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: "="
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: HEADER+3
Info |  Source |  Entry Points |  Interaction Calls