ASUJVOUC.m

ASUJVOUC ; IHS/ITSC/LMH -SCREENMAN FOR DATA ENTRY ; 

 ;;4.2T2;Supply Accounting Mgmt. System;;JUN 30, 2000

 ;This routine will be used to save Voucher Batch variables

 S ASUJT("CAN")=$G(ASUT(ASUT,"CAN"))

 S ASUJT("ACC")=$G(ASUT(ASUT,"ACC"))

 S ASUJT("CTG")=$G(ASUT(ASUT,"CTG"))

 S ASUJT("PON")=$G(ASUT(ASUT,"PON"))

 S ASUJT("PST")=$G(ASUT(ASUT,"PST"))

 S ASUJT("REQ")=$G(ASUT(ASUT,"REQ"))

 S ASUJT("RQN")=$G(ASUT(ASUT,"RQN"))

 S ASUJT("SOBJ")=$G(ASUT(ASUT,"SOBJ"))

 S ASUJT("SRC")=$G(ASUT(ASUT,"SRC"))

 S ASUJT("SSA")=$G(ASUT(ASUT,"SSA"))

 S ASUJT("SST")=$G(ASUT(ASUT,"SST"))

 S ASUJT("USR")=$G(ASUT(ASUT,"USR"))

 S ASUJT("VOU")=$G(ASUT(ASUT,"VOU"))

 S ASUJT("PT","ACC")=$G(ASUT(ASUT,"PT","ACC"))

 S ASUJT("PT","REQ")=$G(ASUT(ASUT,"PT","REQ"))

 S ASUJT("PT","SOBJ")=$G(ASUT(ASUT,"PT","SOBJ"))

 S ASUJT("PT","DOBJ")=$G(ASUT(ASUT,"PT","DOBJ"))

 S ASUJT("PT","SRC")=$G(ASUT(ASUT,"PT","SRC"))

 S ASUJT("PT","SSA")=$G(ASUT(ASUT,"PT","SSA"))

 S ASUJT("PT","SST")=$G(ASUT(ASUT,"PT","SST"))

 S ASUJT("PT","USR")=$G(ASUT(ASUT,"PT","USR"))

 S ASUF("TRAN")=2

 Q

CLRFLDS ;EP;

 S ASUJT("CAN")=""

 S ASUJT("ACC")=""

 S ASUJT("CTG")=""

 S ASUJT("PON")=""

 S ASUJT("PST")=""

 S ASUJT("REQ")=""

 S ASUJT("RQN")=""

 S ASUJT("SOBJ")=""

 S ASUJT("SRC")=""

 S ASUJT("SSA")=""

 S ASUJT("SST")=""

 S ASUJT("USR")=""

 S ASUJT("VOU")=""

 S ASUJT("PT","ACC")=""

 S ASUJT("PT","REQ")=""

 S ASUJT("PT","SOBJ")=""

 S ASUJT("PT","DOBJ")=""

 S ASUJT("PT","SRC")=""

 S ASUJT("PT","SSA")=""

 S ASUJT("PT","SST")=""

 S ASUJT("PT","USR")=""

 Q

ASUJVOUC  ; IHS/ITSC/LMH -SCREENMAN FOR DATA ENTRY ; 

 +1       ;;4.2T2;Supply Accounting Mgmt. System;;JUN 30, 2000

 +2       ;This routine will be used to save Voucher Batch variables

 +3        SET ASUJT("CAN")=$GET(ASUT(ASUT,"CAN"))

 +4        SET ASUJT("ACC")=$GET(ASUT(ASUT,"ACC"))

 +5        SET ASUJT("CTG")=$GET(ASUT(ASUT,"CTG"))

 +6        SET ASUJT("PON")=$GET(ASUT(ASUT,"PON"))

 +7        SET ASUJT("PST")=$GET(ASUT(ASUT,"PST"))

 +8        SET ASUJT("REQ")=$GET(ASUT(ASUT,"REQ"))

 +9        SET ASUJT("RQN")=$GET(ASUT(ASUT,"RQN"))

 +10       SET ASUJT("SOBJ")=$GET(ASUT(ASUT,"SOBJ"))

 +11       SET ASUJT("SRC")=$GET(ASUT(ASUT,"SRC"))

 +12       SET ASUJT("SSA")=$GET(ASUT(ASUT,"SSA"))

 +13       SET ASUJT("SST")=$GET(ASUT(ASUT,"SST"))

 +14       SET ASUJT("USR")=$GET(ASUT(ASUT,"USR"))

 +15       SET ASUJT("VOU")=$GET(ASUT(ASUT,"VOU"))

 +16       SET ASUJT("PT","ACC")=$GET(ASUT(ASUT,"PT","ACC"))

 +17       SET ASUJT("PT","REQ")=$GET(ASUT(ASUT,"PT","REQ"))

 +18       SET ASUJT("PT","SOBJ")=$GET(ASUT(ASUT,"PT","SOBJ"))

 +19       SET ASUJT("PT","DOBJ")=$GET(ASUT(ASUT,"PT","DOBJ"))

 +20       SET ASUJT("PT","SRC")=$GET(ASUT(ASUT,"PT","SRC"))

 +21       SET ASUJT("PT","SSA")=$GET(ASUT(ASUT,"PT","SSA"))

 +22       SET ASUJT("PT","SST")=$GET(ASUT(ASUT,"PT","SST"))

 +23       SET ASUJT("PT","USR")=$GET(ASUT(ASUT,"PT","USR"))

 +24       SET ASUF("TRAN")=2

 +25       QUIT 

CLRFLDS   ;EP;

 +1        SET ASUJT("CAN")=""

 +2        SET ASUJT("ACC")=""

 +3        SET ASUJT("CTG")=""

 +4        SET ASUJT("PON")=""

 +5        SET ASUJT("PST")=""

 +6        SET ASUJT("REQ")=""

 +7        SET ASUJT("RQN")=""

 +8        SET ASUJT("SOBJ")=""

 +9        SET ASUJT("SRC")=""

 +10       SET ASUJT("SSA")=""

 +11       SET ASUJT("SST")=""

 +12       SET ASUJT("USR")=""

 +13       SET ASUJT("VOU")=""

 +14       SET ASUJT("PT","ACC")=""

 +15       SET ASUJT("PT","REQ")=""

 +16       SET ASUJT("PT","SOBJ")=""

 +17       SET ASUJT("PT","DOBJ")=""

 +18       SET ASUJT("PT","SRC")=""

 +19       SET ASUJT("PT","SSA")=""

 +20       SET ASUJT("PT","SST")=""

 +21       SET ASUJT("PT","USR")=""

 +22       QUIT