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

Package: Consult Request Tracking

Routine: GMRCSRVS


Information

GMRCSRVS ;SLC/DCM,JFR - Add/Edit services in File 123.5. ;6/14/00 12:00

Source Information

Source file <GMRCSRVS.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;set up services entry point
ASK ;
END
READ(GMRC0,GMRCA,GMRCB,GMRCH,GMRCL,GMRCS) ;
NOED(SERV) ;
CLONPSAS ; clone a PROSTHETICS service
; choose service and text to append
GETAPP(GMRIEN) ;get text to append
INPUT(X,GMRCDA) ; INPUT TRANSFORM FOR THE SUB-SERVICE/SPECIALTY (#.01) FIELD
; OF THE SUB-SERVICE (#123.51) FILE WHICH IS A SUB-FILE OF THE
; SUB-SERVICE (#10) FIELD OF THE REQUEST SERVICES (#123.5) FILE.
INPUTQ
DUPCHK ;CHECK FOR CONSULT SERVICES APPEARING AS PART OF THE CONSULT SERVICE
PARSE(ARRAY) ;TAKE ARRAY VALUE AND PARSE INTO PIECES SHORTER THAN 70 CHARACTERS
PARSE1
YESNO(X,Y) ;YES/NO QUESTION/RESPONSE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: READ+20
Function Call: WRITE
  • Prompt: !,"Failed to create new entry. Please try again"
  • Line Location: CLONPSAS+20
Function Call: WRITE
  • Prompt: !!,GMRCNWNM," created",!
  • Line Location: CLONPSAS+21
Function Call: WRITE
  • Prompt: !!,"The new Service is currently DISABLED. To activate this service for use in"
  • Line Location: CLONPSAS+25
Function Call: WRITE
  • Prompt: !,"the Prosthetics interface, you MUST use the Setup Consult Services option"
  • Line Location: CLONPSAS+26
Function Call: WRITE
  • Prompt: !,"and delete the DISABLED flag from the SERVICE USAGE field.",!
  • Line Location: CLONPSAS+27
Function Call: WRITE
  • Prompt: !!
  • Line Location: GETAPP+4
Function Call: WRITE
  • Prompt: !!,$C(7),"This service already exists, you'll have to try again!",!
  • Line Location: GETAPP+14
Function Call: WRITE
  • Prompt: !,"The new service name will be:"
  • Line Location: GETAPP+16
Function Call: WRITE
  • Prompt: !,?5,GMRCNWNM,!
  • Line Location: GETAPP+17

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(123.5 - [#123.5] Classic Fileman Calls,  FIND1^DIC,  WP^DIE
^SC - [#44] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call