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

Package: Consult Request Tracking

Routine: GMRC101C


Information

GMRC101C ;SLC/DLT,DCM - Create Protocol entries for OE/RR ADD orders screens (Continued) ;5/21/98 13:53

Source Information

Source file <GMRC101C.m>

Entry Points

Name Comments DBIA/ICR reference
DEFAULT ;default variable setting depending on protocol type
EN ;Loop logic to process consult types/procedure request
EN1 ;get a GMRCT or GMRCR prefixed protocol
ADD ;Enter a new protocol
ASK ;Ask for Item Text and Related Service
ASK1 ;Ask for Relate Service
ITEMTXT ;Ask for item text
SETUP ;Get the Itemtext and service name
ACCESS ;Check for Protocol Item with GMRC101 security restricting name change of the Protocols .01 field.
BUILD ;Logic to update file 101
END ;Clean-up logic

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Select a 'GMRCT ' prefixed protocol",!
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: !,"Select a 'GMRCR ' prefixed protocol",!
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+6
Function Call: WRITE
  • Prompt: !,$C(7),"You Cannot Delete This Entry, ONLY CHANGE IT!",!
  • Line Location: ASK1+1
Function Call: WRITE
  • Prompt: !,$C(7),$P(^(0),"^",1)_" Has Been Disabled.",!,"You Cannot Add A Procedure To A Disabled Service!",!
  • Line Location: ASK1+7
Function Call: WRITE
  • Prompt: !!," Each "_GMRCDESC_" will have a related consult service associated with it.",!," If no service is identified the service will be prompted for during the",!," add orders process.",!
  • Line Location: ASK1+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: ITEMTXT+2
Function Call: WRITE
  • Prompt: !!,"The ITEM TEXT should begin with an alphabetic character. Please re-enter."
  • Line Location: ITEMTXT+4
Function Call: WRITE
  • Prompt: !,"** "_Y_" is already being used by "
  • Line Location: ITEMTXT+7
Function Call: WRITE
  • Prompt: ?25," "_TXT
  • Line Location: ITEMTXT+8
Function Call: WRITE
  • Prompt: !,"This is a duplicate name. Please re-enter a unique item text."
  • Line Location: ITEMTXT+9
Function Call: WRITE
  • Prompt: !,"The Protocol name "_$P(^ORD(101,ORDA,0),"^",1),!," WILL NOT be changed to match ITEM TEXT due to Package Code dependencies!",!
  • Line Location: ITEMTXT+13
Function Call: WRITE
  • Prompt: !!,$C(7),GMRCPRO_" Was Not Added To The Protocol Or Orderable Item File!",!
  • Line Location: BUILD+3

FileMan Files Accessed Via FileMan Db Call

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