56 lines
2.1 KiB
Mathematica
56 lines
2.1 KiB
Mathematica
ENFAXMT2 ;WASHINGTON IRMFO/KLD/DH/SAB; CREATE CODE SHEET ;12/16/1998
|
|
;;7.0;ENGINEERING;**29,60**;Aug 17, 1993
|
|
;This routine should not be modified.
|
|
SEND ; Add code sheet to Generic Code Sheet (GCS) stack
|
|
; create GCS code sheet
|
|
D CONTROL^GECSUFMS("E",ENFAP("SITE"),ENFAP("TRANS"),ENFAP("DOC"),ENFAP("AO"),0,"","ENFAXMT")
|
|
; send remaining segments to GCS
|
|
F I=1:1:4 D:$D(X(I)) SETCS^GECSSTAA(GECSFMS("DA"),X(I))
|
|
; save copy of code sheet in ENG log file
|
|
D @ENFAP("DOC")
|
|
; set code sheet status to Queue on GCS stack
|
|
D SETSTAT^GECSSTAA(GECSFMS("DA"),"Q")
|
|
K GECSFMS
|
|
Q
|
|
;
|
|
FA ;copy FA
|
|
S ^ENG(6915.2,ENFA("DA"),1)=$P(GECSFMS("CTL"),"^~")
|
|
S ^ENG(6915.2,ENFA("DA"),2)=$P(GECSFMS("DOC"),U)
|
|
S ^ENG(6915.2,ENFA("DA"),3)=$P(X(1),U,1,9)_U_$P(X(1),U,11,20)_U_$P(X(1),U,22,32)_U_$P(X(1),U,21)
|
|
S ^ENG(6915.2,ENFA("DA"),6)=$P(X(3),"^~")
|
|
S ^ENG(6915.2,ENFA("DA"),7)=$P(X(4),U,1,2)_U_$P(X(4),U,10)
|
|
Q
|
|
;
|
|
FB ;copy FB
|
|
S ^ENG(6915.3,ENFB("DA"),1)=$P(GECSFMS("CTL"),"^~")
|
|
S ^ENG(6915.3,ENFB("DA"),2)=$P(GECSFMS("DOC"),U)
|
|
S ^ENG(6915.3,ENFB("DA"),3)=$P(X(1),U,1,4)_U_$P(X(1),U,10,17)
|
|
S ^ENG(6915.3,ENFB("DA"),4)=$P(X(2),U)_"^^^"_$P(X(2),U,8)
|
|
S ^ENG(6915.3,ENFB("DA"),5)=$P(X(3),"^~")
|
|
S ^ENG(6915.3,ENFB("DA"),6)=$P(X(4),U)_U_$P(X(4),U,2)_U_$P(X(4),U,10)
|
|
Q
|
|
;
|
|
FC ;copy FC
|
|
S ^ENG(6915.4,ENFC("DA"),1)=$P(GECSFMS("CTL"),"^~")
|
|
S ^ENG(6915.4,ENFC("DA"),2)=$P(GECSFMS("DOC"),U)
|
|
S ^ENG(6915.4,ENFC("DA"),3)=$P(X(1),U,1,4)_U_$P(X(1),U,10)_U_$P(X(1),U,12,21)
|
|
S ^ENG(6915.4,ENFC("DA"),4)=$P(X(2),U)_U_$P(X(2),U,6)_U_$P(X(2),U,8,10)_U_$P(X(2),U,12,18)_U_$P(X(2),U,20)_U_$P(X(2),U,22,24)
|
|
S ^ENG(6915.4,ENFC("DA"),5)=$P(X(3),"^~")
|
|
S ^ENG(6915.4,ENFC("DA"),6)=$P(X(4),U,1,2)_U_$P(X(4),U,10)
|
|
Q
|
|
;
|
|
FD ;copy FD
|
|
S ^ENG(6915.5,ENFD("DA"),1)=$P(GECSFMS("CTL"),"^~")
|
|
S ^ENG(6915.5,ENFD("DA"),2)=$P(GECSFMS("DOC"),U)
|
|
S ^ENG(6915.5,ENFD("DA"),3)=$P(X(1),U,1,4)_U_$P(X(1),U,10)
|
|
S ^ENG(6915.5,ENFD("DA"),4)=$P(X(3),"^~")
|
|
S ^ENG(6915.5,ENFD("DA"),5)=$P(X(4),"^~")
|
|
Q
|
|
;
|
|
FR ;copy FR
|
|
S ^ENG(6915.6,ENFR("DA"),1)=$P(GECSFMS("CTL"),"^~")
|
|
S ^ENG(6915.6,ENFR("DA"),2)=$P(GECSFMS("DOC"),U)
|
|
S ^ENG(6915.6,ENFR("DA"),3)=$P(X(1),U,1,4)_U_$P(X(1),U,10,13)_U_$P(X(1),U,15,24)
|
|
Q
|
|
;ENFAXMT2
|