GMRCP5A ;SLC/DCM,RJS,MA - Print Consult form 513 (Gather Data - TIU Results) ;4/18/01 10:29
Source file <GMRCP5A.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PRNT(GMRCIFN,TIUFLG,GMRCQUED,GMRCCPY,GMRCGUI,GMRCAUDT) | ;
|
|
PRNTAUDT(GMRCIFN,ZTIO,GMRCAUDT) | ; Update the last activity field in 123 and
; Processing Activity multiple ; Update the activity log to reflect "Printed To:" and the printer ; GMRCAUDT=1 indicates the consult is NW or Discontinued ; and it should update the audit trail. |
|
FORMAT(PAGEWID) | ;
|
|
EXDT(X) | ;EXTERNAL DATE FORMAT
|
|
CENTER(X) | ;
|
|
BLD(SUB,NDX,LINE,TAB,TEXT,RUNTIME) | ;
|
|
SUB(ZONE,SUB,NDX,TEXT) | ;
|
|
LASTLN(SUB,NDX) | ;
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
FileNo | Call Tags |
---|---|
^GMR(123 - [#123] | Classic Fileman Calls |
^DIC(4 - [#4] | GET1^DIQ |