cICHKIN ;Inlezen van schijf ; %ICHKIN [ 02/22/00  9:00 AM ]
 ;
T1 ;Foutieve bestandslocatie ;
T2 ;Het opgegeven formaat klopt niet ;
T3 ;Fout bij het lezen van de schijf ;
T4 ;Er zijn geen Host File Servers beschikbaar;
T5 ;Replicatie beëindigd;Geen gegevens beschikbaar;
 ;
T1F ;Lieu du fichier fautif ;
T2F ;Le format spécifié n'est pas correcte ;
T3F ;Erreur à la lecture de la disquette ;
T4F ;Il n'a pas Host File Servers disponibles;
T5F ;Replication terminée;Pas de données;
 ;
YZ Q
 ;
IN(LOC,home,S) S $ZT="TRAP"
 N DAT,LOG,ER,HFS,FILE,B,ZA,ZB,ZC,GN,GV
 S LOG="^|home|ZZLOG(""LOGGER"",S,""in"",DAT)"
 D ^cA105,^cA106 S DAT=$H
 S @LOG@(0)=DT_D_TD,TOT=0
 D S2
 I '$D(^HULP(boot,$j)) S ER=$P($T(@("T5"_QT)),U,3) D F1 Q
 S HFS=$$HFS^cQ9 I HFS<51!(HFS>54) S ER=$P($T(@("T4"_QT)),U,2) D F1 S SW=1 Q
 S FILE="",SW="",FP=2003 I '$G(JBD) W @F,@F1
 F  S FILE=$O(^HULP(boot,$J,FILE)) Q:FILE=""  D  Q:SW
 . S B=LOC_"/"_FILE
 . O HFS:(B:"R") U HFS D S1 I ZA=-1 C HFS S ER=$P($T(@("T1"_QT)),U,2) D F1 S SW=1 Q
 . U HFS R GN,GV D S1 I ZA=-1!ZC S ER=$P($T(@("T3"_QT)),U,2) D F1 S SW=1 Q
 . F  D  Q:GN="**"  Q:SW
 .. U HFS
 .. R GN,GV D S1 I ZC=-1 Q
 .. I ZA=-1!ZC S ER=$P($T(@("T3"_QT)),U,2) D F1 S SW=1 Q
 .. I GN="*" Q
 .. I GN="**" Q
 .. I '$L(GN) Q
 .. S @GN=GV,TOT=TOT+1
 .. I '$G(JBD) U 0 W @F,TOT,$C(13) S $X=0
 . C HFS H 1
 . I '$G(SW) S K=$ZOS(2,B)
INZ I $G(HFS) C HFS
 I '$G(JBD) S K=$P($T(@("T5"_QT)),U,2+'$G(TOT)) D TXT^cAFA1(250)
 D ^cA105,^cA106 S $P(@LOG@(0),D,3,5)=DT_D_TD_D_TOT
 Q
 ;
F1 I '$G(JBD) U 0 S K=ER D TXT^cAFA1(250)
 I $G(JBD) S %=ER D ^cA400
 S $P(@LOG@(0),D,6)=ER
 Q
 ;
S1 S ZA=$ZA,ZB=$ZB,ZC=$ZC
S1Z Q
 ;
S2 K ^HULP(boot,$J)
 S K=$ZOS(12,LOC_"/*.*",0) I K<0!'$L($P(K,"^")) G S2Z
 F  D  S K=$ZOS(13,K) Q:K<0!'$L($P(K,"^"))
 . S %I=$P(K,"^"),%J=$P(K,"^",2,999)
 . S %K=$ZASCII(%J,22)
 . S %A=$ZASCII(%J,27),%B=$ZASCII(%J,28),%C=$ZASCII(%J,29),%D=$ZASCII(%J,30)
 . S SIZE=%A+(%B*256)+(%C*256*256)+(%D*256*256*256) I 'SIZE Q
 . S ^HULP(boot,$J,%I)=%I_D_SIZE
S2Z Q
 ;
TRAP I $G(HFS) C HFS
 S %=$ZE,%ZR=$ZR,%UCI=$ZU(5)
TRAPA I %'["<INTERRUPT>",%'["<DBOVF>",%'["<FILEFULL>",%'["<DKRES>",%'["<SYSTEM>" D ^cA400
TRAPZ ZQ
 ;
ZZ ; 13.03.00 - 17 u 31 * V7.3