ENFAXMT2.m

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 ---ENFAXMT2   2221     printed  Apr 09, 2024@21:00:39                                                                                                                                                                                                    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