Index: Flow/Order/Hoofding.cls.xml =================================================================== diff -u -r48901 -r49009 --- Flow/Order/Hoofding.cls.xml (.../Hoofding.cls.xml) (revision 48901) +++ Flow/Order/Hoofding.cls.xml (.../Hoofding.cls.xml) (revision 49009) @@ -113,6 +113,10 @@ 0 + +%Library.Integer + + %String @@ -578,6 +582,10 @@ s {1D5}=$G(^KOD({1D1},{1D2},{L1},4)) {1D5} + + s {1D6}=$G(^KOD({1D1},{1D2},{L1},0)) +{1D6} + "\" @@ -629,6 +637,11 @@ {1D3} 40 + +"\" +{1D6} +1 + "\" {1D5}