GECSCALL ;WISC/RFJ-calls to various options ;27 Apr 89
;;2.0;GCS;;MAR 14, 1995
Q
;
;
TYPE ; set selectable batch type
S GECSSYS="MAS"
Q
;
CREATE ; create a code sheet
D ^GECSEDIT
Q
;
BATCH ; batch a code sheet
D ^GECSBATC
Q
;
KEY ; keypunch a code sheet
D KEY^GECSEDIT
Q
;
REBAT ; remark a code sheet for rebatching
D REMARK^GECSMUT1
Q
;
EDITBAT ; edit a batch number
D EDITBAT^GECSMUT1
Q
;
EDITCOD ; edit a code sheet
D EDIT^GECSEDIT
Q
;
REVCODE ; review a code sheet
D REVIEW^GECSMUT1
Q
;
DELCODE ; delete a code sheet
D DELETE^GECSMUT1
Q
;
TRANS ; transmit a batch
D ^GECSTRAN
Q
;
RETRAN ; remark a batch for transmission
D RETRAN^GECSMUT2
Q
;
PURGE ; purge code sheets
D ^GECSPURG
Q
;
RCODEBA ; report: code sheets ready for batching
D READYBAT^GECSREP0
Q
;
RBATWA ; report: batches waiting to be transmitted
D WAITBAT^GECSREP0
Q
;
RSTATUS ; report: status of all batches
D BATCHES^GECSREP0
Q
;
D ^GECSSCOM
Q
;
STACRETR ; retransmit stack file document (for batch financial management)
D ^GECSSTT1
Q
;
STACSTAT ; stack status report (for batch financial management)
D ^GECSRSTA
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGECSCALL 1345 printed Dec 13, 2024@01:56:04 Page 2
GECSCALL ;WISC/RFJ-calls to various options ;27 Apr 89
+1 ;;2.0;GCS;;MAR 14, 1995
+2 QUIT
+3 ;
+4 ;
TYPE ; set selectable batch type
+1 SET GECSSYS="MAS"
+2 QUIT
+3 ;
CREATE ; create a code sheet
+1 DO ^GECSEDIT
+2 QUIT
+3 ;
BATCH ; batch a code sheet
+1 DO ^GECSBATC
+2 QUIT
+3 ;
KEY ; keypunch a code sheet
+1 DO KEY^GECSEDIT
+2 QUIT
+3 ;
REBAT ; remark a code sheet for rebatching
+1 DO REMARK^GECSMUT1
+2 QUIT
+3 ;
EDITBAT ; edit a batch number
+1 DO EDITBAT^GECSMUT1
+2 QUIT
+3 ;
EDITCOD ; edit a code sheet
+1 DO EDIT^GECSEDIT
+2 QUIT
+3 ;
REVCODE ; review a code sheet
+1 DO REVIEW^GECSMUT1
+2 QUIT
+3 ;
DELCODE ; delete a code sheet
+1 DO DELETE^GECSMUT1
+2 QUIT
+3 ;
TRANS ; transmit a batch
+1 DO ^GECSTRAN
+2 QUIT
+3 ;
RETRAN ; remark a batch for transmission
+1 DO RETRAN^GECSMUT2
+2 QUIT
+3 ;
PURGE ; purge code sheets
+1 DO ^GECSPURG
+2 QUIT
+3 ;
RCODEBA ; report: code sheets ready for batching
+1 DO READYBAT^GECSREP0
+2 QUIT
+3 ;
RBATWA ; report: batches waiting to be transmitted
+1 DO WAITBAT^GECSREP0
+2 QUIT
+3 ;
RSTATUS ; report: status of all batches
+1 DO BATCHES^GECSREP0
+2 QUIT
+3 ;
+1 DO ^GECSSCOM
+2 QUIT
+3 ;
STACRETR ; retransmit stack file document (for batch financial management)
+1 DO ^GECSSTT1
+2 QUIT
+3 ;
STACSTAT ; stack status report (for batch financial management)
+1 DO ^GECSRSTA
+2 QUIT
