Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ORCDGMRC

Package: Order Entry Results Reporting

Routine: ORCDGMRC


Information

ORCDGMRC ;SLC/MKB-Utility functions for GMRC dialogs ;3/10/03 07:34

Source Information

Source file <ORCDGMRC.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
Consult Request Tracking 4 SERV1^GMRCASV  GETDEF^GMRCDRFR  GETSVC^GMRCPR0  ($$PROVDX,PREREQ)^GMRCUTL1  
Order Entry Results Reporting 3 ($$PTR,$$VAL)^ORCD  LISTSERV^ORCDGMRC  $$REQUIRED^ORCDLG1  
VA Fileman 3 EN^DDIOL  ^DIC  ^DIR  
Kernel 2 ($$RJ,$$UP)^XLFSTR  DISP^XQORM1  
DRG Grouper 1 $$STATCHK^ICDAPIU  
Lexicon Utility 1 CONFIG^LEXSET  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Order Entry Results Reporting 1 ORCDGMRC  

Entry Points

Name Comments DBIA/ICR reference
CKSERV ; -- Ck service usage in Post-Selection Action
URGENCY(TYPE) ; -- Returns index of allowable urgencies from file #101.42
CHANGED(PRMT) ; -- Kill lists for Request Service or Place of Consultation
ENPDX ; -- setup Prov Dx field
POP ; -- pop stack
SERVMSG ; -- Get, display text message for service ORSERV
PROCSVC ; -- Get list of services for procedure
REASON ; -- Get default Reason for Request text for Service
CKPROCSV ; -- Make sure procedure has at least one service
LISTSERV(ORI) ; -- List Consult services from ORSERV
CONT() ; -- continue?
LEX ; -- search Lexicon for Prov Dx
PLACE ; -- Returns list of allowable places of consultation
NWHELP ; -- help code for NW action
GETSERV ; -- Get list of orderable services

External References

Name Field # of Occurrence
EN^DDIOL ENPDX+9, ENPDX+10, ENPDX+11, ENPDX+12
^DIC LEX+8
^DIR CONT+1
SERV1^GMRCASV GETSERV+2
GETDEF^GMRCDRFR REASON+6
GETSVC^GMRCPR0 PROCSVC+1, PROCSVC+4, CKPROCSV+2
$$PROVDX^GMRCUTL1 ENPDX+2
PREREQ^GMRCUTL1 SERVMSG+3
$$STATCHK^ICDAPIU ENPDX+8
CONFIG^LEXSET LEX+5
$$PTR^ORCD CHANGED+3, REASON+2, ENPDX+3, LEX+14
$$VAL^ORCD URGENCY+1, PLACE+2, PROCSVC+3
LISTSERV^ORCDGMRC CKSERV+4
$$REQUIRED^ORCDLG1 LEX+12
$$RJ^XLFSTR SERVMSG+5, SERVMSG+6
$$UP^XLFSTR PLACE+7
DISP^XQORM1 NWHELP+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?((ORSTK*2)),$P(ORX,U,2)
  • Line Location: LISTSERV+7
Function Call: WRITE
  • Prompt: $C(7),!,"There are no services defined for this procedure!"
  • Line Location: PROCSVC+5
Function Call: WRITE
  • Prompt: $C(7),!,"There are no services defined for this procedure!",!
  • Line Location: CKPROCSV+2
Function Call: WRITE
  • Prompt: !!,"Select the type of request you wish to enter, either a consult to a service",!,"or a procedure that may be ordered without a formal consult."
  • Line Location: NWHELP+2
Function Call: WRITE
  • Prompt: !!,"Press <return> to continue ..."
  • Line Location: NWHELP+3
Function Call: WRITE
  • Prompt: !
  • Line Location: NWHELP+4
Function Call: WRITE
  • Prompt: !!,$C(7),"Use of only spaces not allowed!",!
  • Line Location: LEX+2
Function Call: WRITE
  • Prompt: !!,$C(7),$$REQUIRED^ORCDLG1,!
  • Line Location: LEX+12
Function Call: WRITE
  • Prompt: !!,$$RJ^XLFSTR("** Procedure Pre-requisite **",57)
  • Line Location: SERVMSG+5
Function Call: WRITE
  • Prompt: !!,$$RJ^XLFSTR("** Consult Service Pre-requisite **",57)
  • Line Location: SERVMSG+6
Function Call: WRITE
  • Prompt: !,ORTXT(I,0)
  • Line Location: SERVMSG+9
Function Call: WRITE
  • Prompt: !
  • Line Location: SERVMSG+10
Routine Call
  • DIC
  • Line Location:
    • LEX+8
Routine Call
  • DIR
  • Line Location:
    • CONT+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LEX(757.01 - [#757.01] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ORD(101.43 - [#101.43] CKSERV+2, PROCSVC+3, CKPROCSV+1, REASON+3
^TMP("GMRCS" GETSERV+1!, GETSERV+3*, CKSERV+3
^TMP("GMRCSLIST" GETSERV+1!, GETSERV+3, LISTSERV+3, LISTSERV+4, CKSERV+4
^TMP("ORWORD" REASON+4, REASON+7

Label References

Name Line Occurrences
$$CONT LISTSERV+6, SERVMSG+8, SERVMSG+10
POP LISTSERV+5, POP+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTION REASON+5~, ENPDX+14*
CHOICES PLACE+1~, PLACE+3*, PLACE+4*, PLACE+5
CNT SERVMSG+2~, SERVMSG+7*, SERVMSG+8*
CODE ENPDX+1~, ENPDX+3*, ENPDX+4, ENPDX+6, ENPDX+7, ENPDX+8, ENPDX+13
COND REASON+5~, ENPDX+4*
DIC LEX+4~, LEX+6*
DIC("A" LEX+6*
DIC("B" LEX+7*
DIC(0 LEX+6*
DIR CONT+1~, REASON+5~
DIR(0 CONT+1*
DONE CKSERV+4!, CKPROCSV+2!, LEX+2!, LEX+12!
DT ENPDX+8, LEX+5
DTIME NWHELP+3
DTOUT LEX+4~, LEX+11
DUOUT LEX+4~, LEX+11
>> FIRST SERVMSG+1
GMRCDG GETSERV+1~, GETSERV+2*
GMRCI CKSERV+1~, CKSERV+2*, CKSERV+3
GMRCTO GETSERV+1~, GETSERV+2*
HDR SERVMSG+2~*, SERVMSG+8
I PLACE+1~, PLACE+5*, PLACE+6*, PLACE+8, CHANGED+1~, CHANGED+2*, CHANGED+3, GETSERV+1~, GETSERV+3*, SERVMSG+2~
, SERVMSG+7*, SERVMSG+9
INPT PLACE+1~, PLACE+2*, PLACE+3, PLACE+4
INST REASON+4, REASON+5~, REASON+7, ENPDX+4, ENPDX+6, ENPDX+7, ENPDX+8, ENPDX+13
IOSL LISTSERV+6, SERVMSG+8
ITEM REASON+5~
J PLACE+1~, PLACE+5*
MULT REASON+5~
OI PROCSVC+2~, PROCSVC+3*
ORCNT LISTSERV+1~, LISTSERV+3*, LISTSERV+6*
>> ORDIALOG( URGENCY+2*, PLACE+1, PLACE+6*, PLACE+7*, PLACE+8*, CHANGED+4!, PROCSVC+1, PROCSVC+6*, PROCSVC+7*, REASON+2
, ENPDX+4!, ENPDX+6!, ENPDX+7*!, ENPDX+8, ENPDX+13!, LEX+9*, LEX+10!, LEX+12, LEX+13*, LEX+14*
>> ORESET LEX+1, LEX+7, LEX+9
ORI LISTSERV~, LISTSERV+2*, LISTSERV+3, LISTSERV+4*, CKSERV+1~, CKSERV+3*, CKSERV+4, PROCSVC+2~, PROCSVC+7*, LEX+9
, LEX+10, LEX+12, LEX+13, LEX+14
ORIT REASON+1~, REASON+2*, REASON+3
>> ORMENU SERVMSG+2
OROOT REASON+1~, REASON+4*, REASON+6, REASON+7
>> ORPDX ENPDX+2*, ENPDX+4, ENPDX+5, ENPDX+6, ENPDX+7, LEX+3
>> ORPROC ENPDX+2, SERVMSG+1, SERVMSG+3, SERVMSG+5
ORQ LISTSERV+1~, LISTSERV+3*, LISTSERV+4, LISTSERV+5*, LISTSERV+6*
>> ORQUIT PROCSVC+5*, LEX+11*, SERVMSG+7, SERVMSG+8*, SERVMSG+10*
ORSERV REASON+1~, REASON+3*, REASON+6, ENPDX+2, SERVMSG+1, SERVMSG+3
ORSTK LISTSERV+1~, LISTSERV+3*, LISTSERV+5, LISTSERV+7, LISTSERV+9*, POP+1*, POP+2
ORSTK( LISTSERV+5, LISTSERV+9*, POP+2
ORSTK(0 LISTSERV+3*
ORTXT SERVMSG+2~, SERVMSG+4
ORTXT( SERVMSG+7, SERVMSG+9
>> ORTYPE ENPDX+5
>> ORVP REASON+6, SERVMSG+3
ORX LISTSERV+1~, LISTSERV+4*, LISTSERV+5, LISTSERV+7, LISTSERV+8, LISTSERV+9, POP+2
ORY PROCSVC+2~, PROCSVC+4, PROCSVC+5, PROCSVC+6, CKPROCSV+1~, CKPROCSV+2
ORY( PROCSVC+7
P CHANGED+1~, CHANGED+3*, CHANGED+4
PRMT CHANGED~, CHANGED+2
PROMPT URGENCY+2, PLACE+1, PLACE+6, PLACE+7, PLACE+8, PROCSVC+1, PROCSVC+6, PROCSVC+7, REASON+4, REASON+5~
, REASON+7, ENPDX+4, ENPDX+7, ENPDX+13, LEX+9, LEX+10, LEX+12, LEX+13
PROT CKPROCSV+1~*, CKPROCSV+2
PROTCL PROCSVC+2~, PROCSVC+3*, PROCSVC+4
REQD REASON+5~, ENPDX+5*, ENPDX+10, ENPDX+11, LEX+12
TYPE URGENCY~, URGENCY+1
U PLACE+7, GETSERV+3, LISTSERV+3, LISTSERV+5, LISTSERV+7, LISTSERV+8, LISTSERV+9, POP+2, CKSERV+2, CKSERV+3
, CKSERV+4, PROCSVC+3, PROCSVC+6, PROCSVC+7, CKPROCSV+1, REASON+3, ENPDX+4, ENPDX+5, ENPDX+6, ENPDX+7
, LEX+3, LEX+13
X URGENCY+1~*, URGENCY+2, PLACE+1~, PLACE+5*, PLACE+6, PLACE+7, GETSERV+1~, GETSERV+3*, CONT+1~, PROCSVC+2~
, PROCSVC+7*, NWHELP+1~, NWHELP+3*, NWHELP+4*, REASON+5~
Y CONT+1~, CONT+2, CKSERV+2, CKPROCSV+1, REASON+5~, REASON+7*, LEX+1, LEX+2, LEX+8, LEX+13
Y(1 LEX+14!

Marked Items

Name Field # of Occurrence
$T(GETSVC^GMRCPR0 PROCSVC+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All