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 |