GMRCSTS1 ;SLC/JFR,MA - GROUP UPDATE OF CONSULTS cont'd ;4/18/01 10:31
Source file <GMRCSTS1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PROCESS(GMRCCVT,GMRCMT) | ;Update consult status by service and date range
|
|
PRINT(GMRCM,GMRCCVT,GMRCSVC,GMRCMT,GMRCSTRT,GMRCSTOP,GMRCDO) | ;untasked print of records to update
|
|
PRTTSK | ; print the report then start the processing
; GMRCM= status of records to find A:active, P:pending, B:Both ; GMRCCVT= status to update records with 1:dc, 2:complete ; GMRCSVC= IEN from file 123.5 ; GMRCMT= array (passed by reference) of comment to stuff in records ; GMRCSTRT= first entry date to find/update ; GMRCSTOP= last entry date to find/update ; GMRCDO= 1:print only, 2:print and update records ; GMRCSTAT= Status of consult for the report (P,A,S) |
|
END | ||
HDR(PAGE) | ; print the header for the report
|
|
GETENTS(SERV,STRDT,STPDT,SRCH) | ||
GETDATA | ; Write ^GMR(123,IEN,0) to TMP
|
|
AUDIT(GMRCO,UPDSTS,GMRCOM) | ;Update the processing activity of the consult
|
|
STSUPD(GMRCO,UPDSTS) | ;change status of consult to COMPLETE or DC
|
|
CPRSUPDT(GMRCO,UPDSTS) | ;Update CPRS order with new status
|
|
UPDCRIT(UPD,STS,SVC,CMT,START,STOP) | ;print update criteria on page 1
|
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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^GMR(123 - [#123] | Classic Fileman Calls |
^GMR(123.5 - [#123.5] | GET1^DIQ |
^DPT - [#2] | GET1^DIQ |