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

Package: Uncategorized

Routine: DWCNST02


Information

DWCNST02 ;NEW PROGRAM [ 07/07/1999 3:35 PM ]

Source Information

Source file <DWCNST02.m>

Caller Graph

Caller Graph Total: 1

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

Entry Points

Name Comments DBIA/ICR reference
DISP
IDSETUP
ACCEPT
RESEL
CHKACC ;give opportunity to change accepting privider
SELECT
REALLY
VERIFY
FPRT
REG
PRT
HD
ASKPRT
HEAD
OTHER ;replace usual service with the entry in ^DWCNST03 1966195
XIT
XT
MM ;mailman message if accepted
GETLIST
EDT
USEROK
SKPCHK

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DUZ not set ABORTING..."
  • Line Location: DWCNST02+5
Function Call: WRITE
  • Prompt: !,"DUZ(2) not set ABORTING..."
  • Line Location: DWCNST02+6
Function Call: WRITE
  • Prompt: "Unable to verify user. ABORTING..."
  • Line Location: DWCNST02+7
Function Call: WRITE
  • Prompt: "Unable to locate Service - ABORTING.."
  • Line Location: DWCNST02+11
Function Call: WRITE
  • Prompt: "Unable to locate Service - ABORTING.."
  • Line Location: DWCNST02+12
Function Call: WRITE
  • Prompt: "Unable to locate Service - ABORTING.."
  • Line Location: DWCNST02+13
Function Call: WRITE
  • Prompt: "Unable to locate Service - ABORTING.."
  • Line Location: DWCNST02+18
Function Call: READ
  • Timeout: 15
  • Variable: XXX
  • Line Location: REG+1
Function Call: WRITE
  • Prompt: !!,?25,HI_"There are NO Consultations..."_NO
  • Line Location: REG+1
Function Call: WRITE
  • Prompt: !!,"Press <Return> to Continue..."
  • Line Location: REG+1
Function Call: READ
  • Timeout: 60
  • Variable: XXX
  • Line Location: REG+4
Function Call: WRITE
  • Prompt: !!,HI_BLK_"Unable to Locate Selection - Aborting. Nothing Done!"_NO
  • Line Location: REG+4
Function Call: WRITE
  • Prompt: !!,"Press <Return> to Continue..."
  • Line Location: REG+4
Function Call: WRITE
  • Prompt: !,HI_"Ok, Nothing Done!"_NO
  • Line Location: REG+19
Function Call: WRITE
  • Prompt: !,HI_"The consultation has been CANCELED!"_NO
  • Line Location: REG+20
Function Call: WRITE
  • Prompt: !,HI_"The consultation has been Signed-Off!"_NO
  • Line Location: REG+21
Function Call: WRITE
  • Prompt: !,HI_"You did not enter a Consultation Report. Enter it now"
  • Line Location: REALLY+3
Function Call: WRITE
  • Prompt: NO
  • Line Location: REALLY+3
Function Call: WRITE
  • Prompt: !,HI_"The consultation has been Signed-Off!"_NO
  • Line Location: REALLY+4
Function Call: WRITE
  • Prompt: !!,"Do you want to EDIT your Consultation Report (Y/N)"
  • Line Location: EDT+0
Function Call: WRITE
  • Prompt: !!,"Do want to ACCEPT this Consultation Request (Y/N)"
  • Line Location: ACCEPT+0
Function Call: WRITE
  • Prompt: !,$C(7),"Selected Provider is not a member of the "_SVC_" Service!"
  • Line Location: USEROK+3
Function Call: WRITE
  • Prompt: ?26,HI_"*****************************",!,?26,"* PIMC CONSULTATION REQUEST *",!,?26,"*",?33,"Pending Consults",?54,"*",!,?26,"*****************************"_NO
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !,"Service: "_SVC,?40,"User: "_USR,!!
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: "SEL#",?6,"ST",?9,"CLIENT",?35,"SEEN",?41,"PIMC#",?51,"RQSV or *PROV",?65,"WARD-ROOM",!,"-------------------------------------------------------------------------------"
  • Line Location: HD+0
Function Call: WRITE
  • Prompt: !,III,?6,STAT,?9,$E(PTNA,1,24),?35,$S(SEEN="N":"NO",SEEN="Y":"YES",1:""),?41,ID,?51,SVPRV,?65,WDRM
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !!,"Select Client or Press <Return> for More: "
  • Line Location: SELECT+0
Function Call: READ
  • Timeout: DTIME
  • Variable: SEL
  • Line Location: RESEL+0
Function Call: WRITE
  • Prompt: " ?? Invalid - Try Again: "
  • Line Location: RESEL+5
Function Call: WRITE
  • Prompt: !!!,HI_"This consult has already been accecpted by "_$P(^VA(200,USN,0),"^",1)_".",!!,"Do you want to take over this consult (Y/N)"
  • Line Location: CHKACC+1
Function Call: WRITE
  • Prompt: NO
  • Line Location: CHKACC+2
Function Call: READ
  • Timeout: 60
  • Variable: XXX
  • Line Location: CHKACC+3
Function Call: WRITE
  • Prompt: !!,BLK_HI_"Ok, Nothing Done!"_NO,!!,"Press Return to Continue..."
  • Line Location: CHKACC+3
Function Call: WRITE
  • Prompt: !!,HI_"Ok, "_USR_" is now assigned to this consult!"_NO
  • Line Location: CHKACC+5
Function Call: WRITE
  • Prompt: !!,"Do want to print the Consultation Request (Y/N)"
  • Line Location: PRT+0
Function Call: WRITE
  • Prompt: !!,HI_"SORRY UNABLE TO SEND YOUR PRINT REQUEST - ABORTING"_NO
  • Line Location: FPRT+0
Function Call: WRITE
  • Prompt: !!,HI_"SORRY UNABLE VERIFY YOU ENTRY - ABORTING"_NO
  • Line Location: VERIFY+0
Function Call: WRITE
  • Prompt: !,HI_"MailMan message sent to :"_$S($D(^VA(200,ACUSER,0)):$P(^(0),"^",1),1:"")_NO
  • Line Location: MM+23
Function Call: WRITE
  • Prompt: !!,"You may SWITCH your Service From: "_SVC_" To: "_NSVNA,!!,"Do you want to switch"
  • Line Location: OTHER+10
Function Call: WRITE
  • Prompt: !!,"Done. Do you want to print a Final Consultation Form (Y/N)"
  • Line Location: ASKPRT+0
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  All