Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  All
Print Page as PDF
Routine: DWCNST01

Package: Uncategorized

Routine: DWCNST01


Information

DWCNST01 ;NEW PROGRAM [ 06/20/97 2:49 PM ]

Source Information

Source file <DWCNST01.m>

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Referred Care Information System 1 BMC-CONSULT-REQUEST  

Entry Points

Name Comments DBIA/ICR reference
RQSV ;;W !,HI_"Enter requested service:"_NO
HEAD
RR
PDX
EDIT
VERIFY
FRSV ;;W !,HI_"Enter service making request:"_NO
EXTRAPRT
WRTHD
PRT
KILQT
REG
EXTRA

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DUZ not set ABORTING..."
  • Line Location: DWCNST01+3
Function Call: WRITE
  • Prompt: "Unable to verify user. ABORTING..."
  • Line Location: DWCNST01+4
Function Call: WRITE
  • Prompt: "Do you want to request a consultation (Y/N)"
  • Line Location: REG+0
Function Call: READ
  • Timeout: 60
  • Variable: RS
  • Line Location: REG+3
Function Call: WRITE
  • Prompt: !!,BLK_HI_"Sorry unable to accept your request - NOTHING DONE..."_NO,!!,"Press <Return> to Continue..."
  • Line Location: REG+3
Function Call: WRITE
  • Prompt: !!,HI_"Please respond to all prompts unless marked (optional)."_NO,!
  • Line Location: EDIT+0
Function Call: WRITE
  • Prompt: !,HI_"Sorry you must enter a provisional diagnosis!"_NO
  • Line Location: PDX+2
Function Call: WRITE
  • Prompt: !,HI_"Sorry you must enter a reason for the request!"_NO
  • Line Location: RR+2
Function Call: WRITE
  • Prompt: !!,"Do you want to EDIT the Request"
  • Line Location: RR+4
Function Call: WRITE
  • Prompt: !!,"Do you want to DELETE this Request"
  • Line Location: RR+5
Function Call: READ
  • Timeout: 60
  • Variable: RS
  • Line Location: KILQT+2
Function Call: WRITE
  • Prompt: !!,HI_"Request ABORTED. Nothing Done..."_NO,!!,"Press <Return> to Continue..."
  • Line Location: KILQT+2
Function Call: WRITE
  • Prompt: !!,HI_"SORRY UNABLE TO SEND YOUR PRINT REQUEST - ABORTING"_NO
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !!,HI_"SORRY UNABLE VERIFY YOU ENTRY - ABORTING"_NO
  • Line Location: VERIFY+0
Function Call: WRITE
  • Prompt: !,HI_"Is this correct"
  • Line Location: VERIFY+4
Function Call: WRITE
  • Prompt: NO
  • Line Location: VERIFY+4
Function Call: WRITE
  • Prompt: ?26,HI_"*****************************",!,?26,"*",?54,"*",!,?26,"* PIMC CONSULTATION REQUEST *",!,?26,"*",?54,"*",!,?26,"*",?34,"Enter Request",?54,"*",!,?26,"*",?54,"*",!,?26,"*****************************"_NO,!!!
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !,?15,$P(^(0),"^",1)
  • Line Location: EXTRAPRT+1
Function Call: WRITE
  • Prompt: !,HI_"The following are also accepting consults for this service:"_NO
  • Line Location: WRTHD+0
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  All