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

Package: Automated Medical Information Exchange

Routine: DVBCCNCL


Information

DVBCCNCL ;ALB/GTS,LAB - 557/THM-2507 CANCEL REQUESTS, EXAMS ;05/09/2019

Source Information

Source file <DVBCCNCL.m>

Entry Points

Name Comments DBIA/ICR reference
LOOK1
EN ;
LOOK
ASK
DATA
EXMSEL
EXIT
KILL
CNCLCHK
STATCHK ;Check status
CODE
CNCBY

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @FF,!?(IOM-$L(HD)\2),HD,!?(IOM-$L(HD2)\2),HD2,!!
  • Line Location: LOOK+0
Function Call: WRITE
  • Prompt: *7," ???"
  • Line Location: LOOK+0
Function Call: WRITE
  • Prompt: *7,!!,"Zeroth node for ^DPT record missing!",!!
  • Line Location: LOOK+8
Function Call: WRITE
  • Prompt: *7,!!,"This request cannot be cancelled entirely because",!," one or more exams have ",$S(TCNCL=2:"been transferred.",1:"been completed.")
  • Line Location: ASK+0
Function Call: READ
  • Variable: ANS
  • Timeout: 60
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!,"Do you want to cancel the entire exam"
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !!,"Enter Y to cancel the ENTIRE exam or N to cancel ONLY selected exams",!!
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: EXMSEL+5
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: EXMSEL+6
Function Call: WRITE
  • Prompt: " ??",!," Enter the response which best describes the reason for the cancellation."
  • Line Location: EXMSEL+19
Function Call: WRITE
  • Prompt: *7,!!,"Since all exams have been cancelled",!,"the entire request will be CANCELLED.",!!
  • Line Location: CNCLCHK+1
Function Call: WRITE
  • Prompt: !!,*7,"This request has a status of ",STNM," and can't be cancelled.",!!
  • Line Location: STATCHK+6
Function Call: WRITE
  • Prompt: @IOF,!,"Please enter cancellation code"_DVBCMSG,!
  • Line Location: CODE+0
Function Call: WRITE
  • Prompt: !!,*7,"NO '^' ALLOWED AT THIS PROMPT"
  • Line Location: CODE+5
Function Call: WRITE
  • Prompt: !,*7,"This is a required response."
  • Line Location: CODE+7
Function Call: WRITE
  • Prompt: !!,*7,"CANCELLED BY ",$S(CCODE="X":"MAS",CCODE="RX":"RO",1:"???"),", OK"
  • Line Location: CNCBY+0
Function Call: WRITE
  • Prompt: !!,*7,"NO '^' ALLOWED AT THIS PROMPT"
  • Line Location: CNCBY+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DVB(396.3 - [#396.3] Classic Fileman Calls,  GETS^DIQ
^DVB(396.4 - [#396.4] Classic Fileman Calls
^DVB(396.5 - [#396.5] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call