GMRCEDT4 ;SLC/DCM,JFR - UTILITIES FOR EDITING FIELDS ;10/14/15 11:51
Source file <GMRCEDT4.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EDITFLD(GMRCO) | ||
SETUP | ||
01 | ||
1 | ;edit Procedure
|
|
2 | ||
3 | ;edit urgency
|
|
4 | ;edit place of CSLT
|
|
5 | ;edit Clinically Ind. Date wat/66/81
|
|
6 | ;edit ATTN person
|
|
7 | ;edit prov. DX
|
|
LEXLKUP(GMRCX) | ||
8 | ;edit Reason for Request
|
|
9 | ;add comment
|
|
DIFFRFR(SAVED) | ;edited reason for req same as original?
|
|
VALIDPL(PL,REND) | ; place still valid?
|
|
VALIDUR(URG,REND,PROC) | ;urgency still valid?
|
|
NOCHG() | ;no changes made
|
|
PDOK(GMRCDA) | ;check validity of Prov. DX code for active status
|
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 |
|
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 |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^ORD(101 - [#101] | FIND1^DIC, GET1^DIQ |
^GMR(123.3 - [#123.3] | GET1^DIQ |
^GMR(123.5 - [#123.5] | GET1^DIQ |
^VA(200 - [#200] | GET1^DIQ |
^LEX(757.01 - [#757.01] | Classic Fileman Calls |