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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENFAXMT2 2221 printed Dec 13, 2024@01:53:53 Page 2
ENFAXMT2 ;WASHINGTON IRMFO/KLD/DH/SAB; CREATE CODE SHEET ;12/16/1998
+1 ;;7.0;ENGINEERING;**29,60**;Aug 17, 1993
+2 ;This routine should not be modified.
SEND ; Add code sheet to Generic Code Sheet (GCS) stack
+1 ; create GCS code sheet
+2 DO CONTROL^GECSUFMS("E",ENFAP("SITE"),ENFAP("TRANS"),ENFAP("DOC"),ENFAP("AO"),0,"","ENFAXMT")
+3 ; send remaining segments to GCS
+4 FOR I=1:1:4
if $DATA(X(I))
DO SETCS^GECSSTAA(GECSFMS("DA"),X(I))
+5 ; save copy of code sheet in ENG log file
+6 DO @ENFAP("DOC")
+7 ; set code sheet status to Queue on GCS stack
+8 DO SETSTAT^GECSSTAA(GECSFMS("DA"),"Q")
+9 KILL GECSFMS
+10 QUIT
+11 ;
FA ;copy FA
+1 SET ^ENG(6915.2,ENFA("DA"),1)=$PIECE(GECSFMS("CTL"),"^~")
+2 SET ^ENG(6915.2,ENFA("DA"),2)=$PIECE(GECSFMS("DOC"),U)
+3 SET ^ENG(6915.2,ENFA("DA"),3)=$PIECE(X(1),U,1,9)_U_$PIECE(X(1),U,11,20)_U_$PIECE(X(1),U,22,32)_U_$PIECE(X(1),U,21)
+4 SET ^ENG(6915.2,ENFA("DA"),6)=$PIECE(X(3),"^~")
+5 SET ^ENG(6915.2,ENFA("DA"),7)=$PIECE(X(4),U,1,2)_U_$PIECE(X(4),U,10)
+6 QUIT
+7 ;
FB ;copy FB
+1 SET ^ENG(6915.3,ENFB("DA"),1)=$PIECE(GECSFMS("CTL"),"^~")
+2 SET ^ENG(6915.3,ENFB("DA"),2)=$PIECE(GECSFMS("DOC"),U)
+3 SET ^ENG(6915.3,ENFB("DA"),3)=$PIECE(X(1),U,1,4)_U_$PIECE(X(1),U,10,17)
+4 SET ^ENG(6915.3,ENFB("DA"),4)=$PIECE(X(2),U)_"^^^"_$PIECE(X(2),U,8)
+5 SET ^ENG(6915.3,ENFB("DA"),5)=$PIECE(X(3),"^~")
+6 SET ^ENG(6915.3,ENFB("DA"),6)=$PIECE(X(4),U)_U_$PIECE(X(4),U,2)_U_$PIECE(X(4),U,10)
+7 QUIT
+8 ;
FC ;copy FC
+1 SET ^ENG(6915.4,ENFC("DA"),1)=$PIECE(GECSFMS("CTL"),"^~")
+2 SET ^ENG(6915.4,ENFC("DA"),2)=$PIECE(GECSFMS("DOC"),U)
+3 SET ^ENG(6915.4,ENFC("DA"),3)=$PIECE(X(1),U,1,4)_U_$PIECE(X(1),U,10)_U_$PIECE(X(1),U,12,21)
+4 SET ^ENG(6915.4,ENFC("DA"),4)=$PIECE(X(2),U)_U_$PIECE(X(2),U,6)_U_$PIECE(X(2),U,8,10)_U_$PIECE(X(2),U,12,18)_U_$PIECE(X(2),U,20)_U_$PIECE(X(2),U,22,24)
+5 SET ^ENG(6915.4,ENFC("DA"),5)=$PIECE(X(3),"^~")
+6 SET ^ENG(6915.4,ENFC("DA"),6)=$PIECE(X(4),U,1,2)_U_$PIECE(X(4),U,10)
+7 QUIT
+8 ;
FD ;copy FD
+1 SET ^ENG(6915.5,ENFD("DA"),1)=$PIECE(GECSFMS("CTL"),"^~")
+2 SET ^ENG(6915.5,ENFD("DA"),2)=$PIECE(GECSFMS("DOC"),U)
+3 SET ^ENG(6915.5,ENFD("DA"),3)=$PIECE(X(1),U,1,4)_U_$PIECE(X(1),U,10)
+4 SET ^ENG(6915.5,ENFD("DA"),4)=$PIECE(X(3),"^~")
+5 SET ^ENG(6915.5,ENFD("DA"),5)=$PIECE(X(4),"^~")
+6 QUIT
+7 ;
FR ;copy FR
+1 SET ^ENG(6915.6,ENFR("DA"),1)=$PIECE(GECSFMS("CTL"),"^~")
+2 SET ^ENG(6915.6,ENFR("DA"),2)=$PIECE(GECSFMS("DOC"),U)
+3 SET ^ENG(6915.6,ENFR("DA"),3)=$PIECE(X(1),U,1,4)_U_$PIECE(X(1),U,10,13)_U_$PIECE(X(1),U,15,24)
+4 QUIT
+5 ;ENFAXMT2
