GMRCSRVS ;SLC/DCM,JFR - Add/Edit services in File 123.5. ;6/14/00 12:00
Source file <GMRCSRVS.m>
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
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^GMR(123.5 - [#123.5] | Classic Fileman Calls, FIND1^DIC, WP^DIE |
^SC - [#44] | Classic Fileman Calls |