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 ;Nov 20, 2023@08:56:08

Source Information

Source file <ORCDGMRC.m>

Call Graph

Call Graph

Call Graph Total: 18

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Order Entry Results Reporting 3 ORCDGMRC  ^ORD(101.41  ITEMS  

Entry Points

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

External References

Name Field # of Occurrence
^%DT CID+4
EN^DDIOL ENPDX+9, ENPDX+10, ENPDX+11, ENPDX+12
^DIC LEX+10
^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^ICDXCODE ENPDX+8
CONFIG^LEXSET LEX+7
$$IMPDATE^LEXU LEX+6
$$PTR^ORCD CHANGED+3, REASON+2, ENPDX+3, LEX+16, LEX+17
$$VAL^ORCD URGENCY+1, PLACE+2, PROCSVC+3
LISTSERV^ORCDGMRC CKSERV+4
$$REQUIRED^ORCDLG1 LEX+14
$$FMADD^XLFDT CID+5
$$RJ^XLFSTR SERVMSG+5, SERVMSG+6
$$UP^XLFSTR PLACE+7
$$GET^XPAR CID+5
DISP^XQORM1 NWHELP+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,"Response must be relative date (e.g. TODAY, T+7D, T+3M)"
  • Line Location: CID+3
Function Call: WRITE
  • Prompt: $C(7),!,"Response cannot be more than "_FUTDAYS_" days in the future."
  • Line Location: CID+6
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+14
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+10
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
%DT CID+4~*
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+8*
DIC("A" LEX+8*
DIC("B" LEX+9*
DIC(0 LEX+8*
DIR CONT+1~, REASON+5~
DIR(0 CONT+1*
DONE CID+3!, CID+6!, CKSERV+4!, CKPROCSV+2!, LEX+2!, LEX+14!
DT CID+5, ENPDX+8, LEX+6, LEX+7
DTIME NWHELP+3
DTOUT LEX+4~, LEX+13
DUOUT LEX+4~, LEX+13
>> FIRST SERVMSG+1
FUTDATE CID+4~, CID+5*, CID+6
FUTDAYS CID+4~, CID+5*, CID+6
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 CID+3, CID+4, 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*
ORCS LEX+4~, LEX+5*, LEX+6*, LEX+7, LEX+16, LEX+17
>> ORDATE CID+4*, CID+6
>> ORDIALOG( CID+3, CID+4, 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+11*, LEX+12!, LEX+14
, LEX+15*, LEX+16*, LEX+17*
>> ORESET LEX+1, LEX+9, LEX+11
ORI LISTSERV~, LISTSERV+2*, LISTSERV+3, LISTSERV+4*, CKSERV+1~, CKSERV+3*, CKSERV+4, PROCSVC+2~, PROCSVC+7*, LEX+11
, LEX+12, LEX+14, LEX+15, LEX+16, LEX+17
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+13*, 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 CID+2, 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 CID+3, CID+4, 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+11, LEX+12, LEX+14, LEX+15
PROT CKPROCSV+1~*, CKPROCSV+2
PROTCL PROCSVC+2~, PROCSVC+3*, PROCSVC+4
REQD REASON+5~, ENPDX+5*, ENPDX+10, ENPDX+11, LEX+14
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+15
X CID+4~*, 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 CID+4~, CONT+1~, CONT+2, CKSERV+2, CKPROCSV+1, REASON+5~, REASON+7*, LEX+1, LEX+2, LEX+10
, LEX+15
Y(1 LEX+16!
Y(30 LEX+17!

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