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

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LEX(757.01 - [#757.01] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call